Nach Zelle suchen
22.02.2019 16:21:49
Christoph
unten ein Code der ein Sheet nach dem String "abc" durchsucht.
Nach dem ich "abc" gefunden habe:
In "Zelle.address" steht ja die Adresse, also z.B. $A$5. Wie kann ich diese Adresse verändern? Zum Beispiel auf Zeile 6 erhöhen.
Versucht hab ichs mit Sheets("Tabelle1").Range(Zelle.address+1)
Leider funzt das nicht. habt ihr mir einen Tip?
Danke.
Private Sub CommandButton1_Click()
Dim Anz As Long, a As Long, SuchIN As Range
Dim MeinTXT As String, Zelle As Range
MeinTXT = "abc" 'Mein Suchtext
Set SuchIN = Sheets("Tabelle1").Cells 'Wo soll gesucht werden
'Zähle Zellen mit diesen Textinhalt
Anz = Application.WorksheetFunction.CountIf(SuchIN, "*" & MeinTXT & "*")
With SuchIN
For a = 1 To Anz
If a = 1 Then
'Suche erste
Set Zelle = .Find(what:=MeinTXT, _
After:=Cells(.Row + .rows.count - 1, .Column + .Columns.count - 1), _
LookIn:=xlValues, LookAt:=xlWhole)
MeinTXT = Zelle.address & Chr(13)
End If
End Sub