Makro für Suche
04.04.2014 21:54:21
Uwe
mit meinem Makro durchsuche ich die Tabelle nach dem eingegebenen Suchbegriff. Das funktioniert bestens, solange ein String gesucht wird, Zahlen werden aber nicht gefunden.
Kann mir jemand sagen wo der Hase hier im Pfeffer liegt?
Sub suchen()
Dim Suche, Lz As Long, rng As Range, c As Range, CC As Long
Suche = InputBox("Suchbegriff eingeben:")
With Sheets("Tabelle1")
Lz = .Cells(Rows.Count, 1).End(xlUp).Row
'CC = .Cells(3, Columns.Count).End(xlToLeft).Column
Set rng = .Range("A3:F" & Lz)
For Each c In rng
If c = Suche Then
Application.Goto reference:=c, Scroll:=True
MsgBox Suche & " gefunden in Zelle " & c.Address(False, False)
End If
Next
End With
End Sub
Anzeige