Suchen mit Weitersuchen in einer Spalte
07.02.2015 23:50:06
T.K.
vielleicht könnt ihr mir ja helfen :)
Ich verwende folgenden Code zum der gesamten Tabelle:
Sub Auswahl()
Dim rng As Range
Dim sBegriff As String, sAddress As String
sBegriff = InputBox( _
prompt:="Bitte Suchbegriff eingeben:", _
Default:="Hallo")
If sBegriff = "" Then Exit Sub
Set rng = Cells.Find( _
what:=sBegriff, _
lookat:=xlWhole, _
LookIn:=xlValues, _
MatchCase:=False, _
after:=ActiveCell)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
MsgBox rng.Address(False, False)
rng.Offset(1).Select
Do
Cells.FindNext(after:=ActiveCell).Activate
If ActiveCell.Address = sAddress Then Exit Sub
MsgBox ActiveCell.Address(False, False)
Loop
End Sub
Diesen habe ich von hier ( Diesem Forum )
Vielen Dank dafür!
Dieser Code sucht die Ganze Tabelle nach Dem Suchbegriff ab und schreibt
die Zelle raus wo der Begriff gefunden wurde...
Das Weitersuchen funktioniert super.. Auch hier wird die Zelle ausgeben...
Sobald alle Begriffe durch sind wiederholt sich das ganze.
Nun zu meinem Problem:
Ich wolle das ganze Umbauen damit nur in einer Spalte, besser gesagt
von Zelle("G9:G100") gesucht wird. Hab versucht das ganze mit Selection.Find
oder Range.Find umzubauen... Jedoch ohne erfolg... Entweder funktioniert das
Weitersuchen nicht oder das ganze hängt sich in einer Endlosschleife auf...
Wichtig wäre mir das die Funktionen erhalten bleiben wie das Zelle rausscheiben und
das weitersuchen, nur eben in einer Spalte und nicht im ganzen Sheet.
Bin hier schon seit Stunden dran :( Bekomme das ganze nur hin, ohne weitersuchen...
Wäre nett wenn jemand eine Lösung dazu parat hätte.
Gruß
T.K.