Tabelle nach Wert durchsuchen der sich wiederholt
06.01.2019 15:55:46
Philipp
vielen Dank im Voraus für eure Hilfe egal welcher Art!
Fakten zur Tabelle:
Die Daten stehen ab Zeile: 8
Spalte A: Personalnummern (die Personalnummern hat immer 6 Zahlen, es gibt auch welche die mit der Zahl "0" beginnen (ca. 20
Mitarbeiter sind seit über 30 Jahren dabei))
Spalte B: Nachnamen (einige Mitarbeiter haben den gleichen Nachnamen)
Spalte C: Vornamen (einige Mitarbeiter haben den gleichen Vornamen)
Spalten D bis J: weitere Mitarbeiterdaten nach denen aber nicht gesucht werden muss
Ziel ist es die Tabelle nach der Spalte zu sortieren in der gerade ein Wert gesucht wird.
Zum Beispiel: Wenn die Tabelle nach dem Vornamen "Thomas" durchsucht wird, soll sich die Tabelle nach Spalte C sortieren. Sodass alle Mitarbeiter mit dem Vornamen Thomas nacheinander angezeigt werden.
Zurzeit habe ich es mit folgendem Code geschafft, dass in der Tabelle nach der Personalnummer gesucht wird. Da diese ja auch nur einmal vorkommt.
Private Sub ComboBox1_Change() 'Feld zur Eingabe der Personalnummer
'Variablen ihrem Typ zuweisen
Dim Wiederholungen As Long, Auswahl As String
ComboBox2 = ""
ComboBox3 = ""
'Angezeigten Wert aus Kombinationsfeld1 in Variable "Auswahl" schreiben
Auswahl = ComboBox1
'For/ Next Schleife zum Finden von Übereinstimmungen des Inhaltes der
'Variablen "Auswahl"
For Wiederholungen = 8 To 4000
'Abfrage: Wenn Kombinationsfeld leer dann zur Sprungmarke "Ende" springen
If Cells(Wiederholungen, 1) = "" Then GoTo Ende
'Abfrage: Wenn Inhalt der angesprochenen Zelle gleich dem Inhalt der
'Variablen "Auswahl", dann...
If Cells(Wiederholungen, 1) = Auswahl Then
'Zelle markieren,
Cells(Wiederholungen, 1).Select
'Fenster an die entsprechende Position scrollen
ActiveWindow.ScrollColumn = ActiveWindow.ActiveCell.Column
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
'Kombinationsfeld zur weiteren Eingabe wieder aktivieren
ComboBox1.Activate
'Abfrage Ende
End If
'Nächsten Schleifendurchlauf starten
Next
'Sprungmarke
Ende:
'Worksheets("Stammdaten").ComboBox1.Value = ""
End Sub
Ich schaffe es aber leider nicht, dass die Tabelle bereits schon scrollt, wenn ich die erste Zahl der Personalnummer eingebe. Es wäre schön, das die Tabelle nach Eingabe der 8 alle Personale anzeigt dessen Personalnummer mit 8 beginnt usw.
Da einige Personale den gleichen Nachnamen oder Vornamen haben, wird die Suche nach diesen Werte umso schwieriger. Da habe ich noch keinen Code erstellen können oder aus Forumsbeiträgen zusammbasteln können. Obwohl ich schon, dass ganze Wochenende damit verbringe.
Ich hoffe wirklich sehr, dass ihr mit Tipps in die richtige Richtung oder einen Code weiterhelfen könnt. Vielen Dank bereits schon jetzt.
MfG
Philipp