Suchen und Filtern von Bezeichnungen mit VBA

Private Sub Filternummer() Dim Nummer As Double Dim zaehler As Double Dim Massnahme As String Dim Zahlwerk As Double Nummer = InputBox("Bitte geben Sie die Nummer der Maßnahme ein nach der selektiert werden soll", "Eingabe Maßnahmen Nummer") Zahlwerk = Nummer For zaehler = 10 To Zahlwerk + 10 'Es geht erst in Zeile10 los If Cells(Zahlwerk, 2) = Nummer Then Massnahme = Cells(Zahlwerk, 3) Next zaehler Selection.AutoFilter Field:=3, Criteria1:=Massnahme End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
so sollte es etwa ausschauen


Private Sub Filternummer()
Dim Nummer As Integer
Dim zaehler As Long
Dim Massnahme As String
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
Nummer = CInt(Val(InputBox("Bitte geben Sie die Nummer der Maßnahme ein nach der selektiert werden soll", "Eingabe Maßnahmen Nummer")))
If Nummer = 0 Then Exit Sub 'Abbrechen wurde angeklickt
With wks1
'Für den Zaehler werden alle ausgefüllten Zeilen unterhalb von Zeile 10 erfasst
For zaehler = 10 To .Cells(.Rows.Count, 2).End(xlUp).Row 'Es geht erst in Zeile10 los
If .Cells(zaehler, 2) = Nummer Then Massnahme = .Cells(zaehler, 3): Exit For
Next zaehler
End With
With wks2
If .Cells.SpecialCells(xlCellTypeVisible).Count <> .Cells.Count Then
.ShowAllData ' Zeigt alle Daten in tabelle an
End If
.Range("A1").AutoFilter Field:=3, Criteria1:=Massnahme 'zu filternde Liste beginnt in A1
.Activate
End With
End Sub

Deklariere Zähler für For-Next-Schleifen und Variablen für Tabellenzeilen immer als Integer oder Long.
Statt der For-Next-Schleife könnte man auch die schneller Tabellenfunktion VLookup (SVERWEIS) nutzen. Dies schaut dann so aus:


Sub Filternummer()
Dim Nummer As Integer
Dim Massnahme As String
Dim wks1 As Worksheet, wks2 As Worksheet, Massnahmen As Range
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
'Massnahme auswahlen
Nummer = CInt(Val(InputBox("Bitte geben Sie die Nummer der Maßnahme ein nach der selektiert werden soll", "Eingabe Maßnahmen Nummer")))
If Nummer = 0 Then Exit Sub 'Abbrechen wurde angeklickt
With wks1
Set Massnahmen = .Range(.Cells(10, "B"), .Cells(.Rows.Count, "C").End(xlUp))
Massnahme = Application.WorksheetFunction.VLookup(Nummer, Massnahmen, 2, False)
End With
With wks2
If .Cells.SpecialCells(xlCellTypeVisible).Count <> .Cells.Count Then
.ShowAllData ' Zeigt alle Daten in tabelle an
End If
.Range("A1").AutoFilter Field:=3, Criteria1:=Massnahme 'zu filternde Liste beginnt in A1
.Activate
End With
End Sub

gruss Franz

Beliebteste Forumthreads (12 Monate)

Suchen und Filtern von Bezeichnungen mit VBA

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen und Filtern von Bezeichnungen mit VBA

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread