[reIgNmaKeR]

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

[DPXone]

Hier mal ein Makro:

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

[sn00b]

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.

[reIgNmaKeR]

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

[DPXone]

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 )

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

[reIgNmaKeR]

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

[DPXone]

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

[reIgNmaKeR]

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

Dieser Beitrag wurde von reIgNmaKeR bearbeitet: 21. Dezember 2008 - 12:57

[DPXone]

Dazu müsstest du dir eine UserForm erstellen.

Beispiel:
 Test.xls (41,5K)
Anzahl der Downloads: 2139
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

[reIgNmaKeR]

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

[DPXone]

Da hätte ich diese Alternative:
 Test.xls (36K)
Anzahl der Downloads: 2227

EDIT:
Oder Alternativ ohne Schaltfläche. Man muss nur was in das gelbe Feld eingeben und [ENTER] drücken.
 Test.xls (37,5K)
Anzahl der Downloads: 2257

Dieser Beitrag wurde von DPXone bearbeitet: 21. Dezember 2008 - 13:36

[reIgNmaKeR]

suuuuuuuuuuuper. genau sowas hab ich gebraucht, hast mir sehr geholfen.

danke vielmals

[klaku]

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