Seite 1 von 1
Suchfunktion In Excel Tabelle Einprogrammieren
#1
geschrieben 20. Dezember 2008 - 22:07
ich habe eine große anzahl von dvd`s in einer Tabelle angelegt und möchte nun ein suchfenster programmieren um zu sehen ob eine bestimmte dvd bereits in der liste vorhanden ist.
excel soll sofern die dvd vorhanden ist mit "Ja" bzw "Nein" antworten.
die integrierte suchfunktion in excel möchte ich nicht verwenden.
ich bin absolut unerfahren im bereich vba programmierung.
danke für eure hilfe
excel soll sofern die dvd vorhanden ist mit "Ja" bzw "Nein" antworten.
die integrierte suchfunktion in excel möchte ich nicht verwenden.
ich bin absolut unerfahren im bereich vba programmierung.
danke für eure hilfe
Anzeige
#2
geschrieben 21. Dezember 2008 - 01:28
Hier mal ein Makro:
-> Wie fügt man ein Makro oder eine benutzerdefinierte Funktion in ein Modul ein? <-
Der Titel muss auf das Zeichen genau übereinstimmen, sonst wird "Nein" ausgegeben.
Für Teiltreffer müsstest du LookAt:=xlWhole durch LookAt:=xlPart ersetzten
Option Explicit Sub TitelSuchen() Dim Titel As String Titel = InputBox("Titel der DVD:", "Titelsuche") If Not ActiveSheet.Cells.Find(What:=Titel, LookAt:=xlWhole) Is Nothing Then MsgBox "Ja" Else MsgBox "Nein" End If End Sub
-> Wie fügt man ein Makro oder eine benutzerdefinierte Funktion in ein Modul ein? <-
Der Titel muss auf das Zeichen genau übereinstimmen, sonst wird "Nein" ausgegeben.
Für Teiltreffer müsstest du LookAt:=xlWhole durch LookAt:=xlPart ersetzten
#3
geschrieben 21. Dezember 2008 - 09:32
wenn es nur darum geht das du keinen posten doppelt einträgst sollte auch ein normaler filter ausreichen!
hier kannst du dann unter benutzerdefiniert den titel eingeben und bekommst ihn sofern vorhanden angezeigt.
hier kannst du dann unter benutzerdefiniert den titel eingeben und bekommst ihn sofern vorhanden angezeigt.
#4
geschrieben 21. Dezember 2008 - 11:55
also ich hab das makro nun erstellt
allerdings erscheint keine maske bzw. suchfeld wo ich den gesuchten titel eingeben kann.
muss ich noch mehr beachten
allerdings erscheint keine maske bzw. suchfeld wo ich den gesuchten titel eingeben kann.
muss ich noch mehr beachten
#5
geschrieben 21. Dezember 2008 - 12:30
Was anderes: Im unteren Makro hab ich noch eine Zeile hinzugefügt, bitte diese deshalb nehmen.
Nun zu deiner Frage:
Um die Suche zu starten müsstet du auf EXTRAS -> Makros -> "TitelSuchen" klicken
oder wenn du stattdessen STRG + F drücken möchtest:
Diese Arbeitsmappe: ( Hilfe )
Modul1:
Nun zu deiner Frage:
Um die Suche zu starten müsstet du auf EXTRAS -> Makros -> "TitelSuchen" klicken
oder wenn du stattdessen STRG + F drücken möchtest:
Diese Arbeitsmappe: ( Hilfe )
Option Explicit Private Sub Workbook_Open() Application.OnKey "^f", "TitelSuchen" End Sub
Modul1:
Option Explicit Sub TitelSuchen() Dim Titel As String Titel = InputBox("Titel der DVD:", "Titelsuche") If Trim(Titel) = "" Then Exit Sub If Not ActiveSheet.Cells.Find(What:=Titel, LookAt:=xlWhole) Is Nothing Then MsgBox "Ja" Else MsgBox "Nein" End If End Sub
#6
geschrieben 21. Dezember 2008 - 12:45
cool. also das klappt schonmal klasse.
wie mach ich das jetz noch das er mir sagt wo , sprich an welcher stelle/zeile der jeweilige film steht und das er mich auch dorthin bringt.
und kann man man nicht ein suchfenster mit button "Film suchen" in die tabelle integrieren
wie mach ich das jetz noch das er mir sagt wo , sprich an welcher stelle/zeile der jeweilige film steht und das er mich auch dorthin bringt.
und kann man man nicht ein suchfenster mit button "Film suchen" in die tabelle integrieren
#7
geschrieben 21. Dezember 2008 - 12:48
Dazu benutz das Makro hier:
Option Explicit Sub TitelSuchen() Dim Titel As String, C As Object Titel = InputBox("Titel der DVD:", "Titelsuche") If Trim(Titel) = "" Then Exit Sub Set C = ActiveSheet.Cells.Find(What:=Titel, LookAt:=xlWhole) If Not C Is Nothing Then C.Select MsgBox "Ja" Else MsgBox "Nein" End If End Sub
#8
geschrieben 21. Dezember 2008 - 12:54
kriegste das auch hin das ich den titel in ein suchfenster eingeben kann dann auf nen "command button" klicke und er mir dann sagt "Ja" oder "Nein"
Command button sollte "Film suchen" heissen
Command button sollte "Film suchen" heissen
Dieser Beitrag wurde von reIgNmaKeR bearbeitet: 21. Dezember 2008 - 12:57
#9
geschrieben 21. Dezember 2008 - 13:06
Dazu müsstest du dir eine UserForm erstellen.
Beispiel:
Test.xls (41,5K)
Anzahl der Downloads: 2101
Einfach nach dem Öffnen [Strg] + [F] drücken
Kannst natürlich auch gleich diese Datei als Vorlage nehmen, wenn du nicht weißt wie man eine Userform erstellt.
Beispiel:
Test.xls (41,5K)
Anzahl der Downloads: 2101
Einfach nach dem Öffnen [Strg] + [F] drücken
Kannst natürlich auch gleich diese Datei als Vorlage nehmen, wenn du nicht weißt wie man eine Userform erstellt.
Dieser Beitrag wurde von DPXone bearbeitet: 21. Dezember 2008 - 13:06
#10
geschrieben 21. Dezember 2008 - 13:22
klasse geht super. wie bearbeite ich denn die suchmaske. ist nur ein kleiner rechtschreibfehler drin. ansonsten klasse arbeit von dir.
geht das nicht irgendwie das die suchmaske permanent geöffnet ist wenn ich die datei starte. sprich das ich sie nicht immer mit strg+f öffnen muss, sondern das sie fest integriert ist in das tabellenblatt
geht das nicht irgendwie das die suchmaske permanent geöffnet ist wenn ich die datei starte. sprich das ich sie nicht immer mit strg+f öffnen muss, sondern das sie fest integriert ist in das tabellenblatt
#11
geschrieben 21. Dezember 2008 - 13:29
#12
geschrieben 21. Dezember 2008 - 13:49
suuuuuuuuuuuper. genau sowas hab ich gebraucht, hast mir sehr geholfen.
danke vielmals
danke vielmals
#13
geschrieben 01. September 2017 - 13:15
Hallo DPXONE,
ich habe ebenfalls genau Deine Lösung gesucht.
Zwei Fragen:
1. Ist es möglich die "Ja"/"Nein" Fenster abzuschalten, habe einiges versucht bin jedoch gescheitert.
Absolut VBA unwissender!!
2. Deine Funktion erlaubt kein wiederholtes suchen, so wie bei der integrierten Funktion. Wäre das auch möglich?
Für Deine Hilfe vielen Dank im Voraus.
klaku
ich habe ebenfalls genau Deine Lösung gesucht.
Zwei Fragen:
1. Ist es möglich die "Ja"/"Nein" Fenster abzuschalten, habe einiges versucht bin jedoch gescheitert.
Absolut VBA unwissender!!
2. Deine Funktion erlaubt kein wiederholtes suchen, so wie bei der integrierten Funktion. Wäre das auch möglich?
Für Deine Hilfe vielen Dank im Voraus.
klaku
- ← Outlook 2003, Namensvervollständigung ohne Funktion
- andere Office-Versionen
- Excel XP - Probleme bei WENN-Formeln →
Thema verteilen:
Seite 1 von 1