Auflistung tabelle
Amintire
Sub Look_for_foto()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim Zeile1 As Long, Zeile2 As Long
Dim varSuchen
'Tabelle mit zu durchsuchender Spalte
Set wks1 = Worksheets("Tabelle1")
'Tabelle in die Fundstellen eingetragen werdne sollen
Set wks2 = Worksheets("Tabelle2")
'Alte Fundstellen löschen
wks2.Columns(1).ClearContents
'Suchbegriff
varSuchen = "foto"
Zeile2 = 1 'Startzeile im Blatt in das Fundstellen eingetragen werden
With wks1
'Werte in Spalte 1 (A) nach dem Suchbegriff durchsuchen
For Zeile1 = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile1, 1).Value = varSuchen Then
'Wert aus Spalte 2 (B) im 2. Blatt Spalte 1 (A) eintragen
wks2.Cells(Zeile2, 1).Value = .Cells(Zeile1, 2).Value
Zeile2 = Zeile2 + 1
End If
Next
End With
End Sub