WinFuture-Forum.de: Suchfunktion In Excel Tabelle Einprogrammieren - WinFuture-Forum.de

Zum Inhalt wechseln

Nachrichten zum Thema: Office
Seite 1 von 1

Suchfunktion In Excel Tabelle Einprogrammieren


#1 Mitglied ist offline   reIgNmaKeR 

  • Gruppe: aktive Mitglieder
  • Beiträge: 301
  • Beigetreten: 25. September 06
  • Reputation: 1
  • Geschlecht:Männlich
  • Wohnort:Shawshank

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
Eingefügtes Bild
0

Anzeige



#2 Mitglied ist offline   DPXone 

  • Gruppe: Mitglieder
  • Beiträge: 19
  • Beigetreten: 06. Juli 08
  • Reputation: 0
  • Geschlecht:Männlich

geschrieben 21. Dezember 2008 - 01:28

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
0

#3 Mitglied ist offline   sn00b 

  • Gruppe: aktive Mitglieder
  • Beiträge: 2.242
  • Beigetreten: 07. November 05
  • Reputation: 0
  • Geschlecht:Männlich

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.
0

#4 Mitglied ist offline   reIgNmaKeR 

  • Gruppe: aktive Mitglieder
  • Beiträge: 301
  • Beigetreten: 25. September 06
  • Reputation: 1
  • Geschlecht:Männlich
  • Wohnort:Shawshank

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
Eingefügtes Bild
0

#5 Mitglied ist offline   DPXone 

  • Gruppe: Mitglieder
  • Beiträge: 19
  • Beigetreten: 06. Juli 08
  • Reputation: 0
  • Geschlecht:Männlich

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 )
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

0

#6 Mitglied ist offline   reIgNmaKeR 

  • Gruppe: aktive Mitglieder
  • Beiträge: 301
  • Beigetreten: 25. September 06
  • Reputation: 1
  • Geschlecht:Männlich
  • Wohnort:Shawshank

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
Eingefügtes Bild
0

#7 Mitglied ist offline   DPXone 

  • Gruppe: Mitglieder
  • Beiträge: 19
  • Beigetreten: 06. Juli 08
  • Reputation: 0
  • Geschlecht:Männlich

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

0

#8 Mitglied ist offline   reIgNmaKeR 

  • Gruppe: aktive Mitglieder
  • Beiträge: 301
  • Beigetreten: 25. September 06
  • Reputation: 1
  • Geschlecht:Männlich
  • Wohnort:Shawshank

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

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

Eingefügtes Bild
0

#9 Mitglied ist offline   DPXone 

  • Gruppe: Mitglieder
  • Beiträge: 19
  • Beigetreten: 06. Juli 08
  • Reputation: 0
  • Geschlecht:Männlich

geschrieben 21. Dezember 2008 - 13:06

Dazu müsstest du dir eine UserForm erstellen.

Beispiel:
Angehängte Datei  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

0

#10 Mitglied ist offline   reIgNmaKeR 

  • Gruppe: aktive Mitglieder
  • Beiträge: 301
  • Beigetreten: 25. September 06
  • Reputation: 1
  • Geschlecht:Männlich
  • Wohnort:Shawshank

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
Eingefügtes Bild
0

#11 Mitglied ist offline   DPXone 

  • Gruppe: Mitglieder
  • Beiträge: 19
  • Beigetreten: 06. Juli 08
  • Reputation: 0
  • Geschlecht:Männlich

geschrieben 21. Dezember 2008 - 13:29

Da hätte ich diese Alternative:
Angehängte Datei  Test.xls (36K)
Anzahl der Downloads: 2195

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

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

0

#12 Mitglied ist offline   reIgNmaKeR 

  • Gruppe: aktive Mitglieder
  • Beiträge: 301
  • Beigetreten: 25. September 06
  • Reputation: 1
  • Geschlecht:Männlich
  • Wohnort:Shawshank

geschrieben 21. Dezember 2008 - 13:49

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

danke vielmals
Eingefügtes Bild
0

#13 Mitglied ist offline   klaku 

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
0

Thema verteilen:


Seite 1 von 1

1 Besucher lesen dieses Thema
Mitglieder: 0, Gäste: 1, unsichtbare Mitglieder: 0