AW: Wert in Spalte B gefunden - Brauch Spalte A
31.10.2018 11:21:25
Peter
Hajo und Daniel - ganz herzlichen Dank - es funktioniert !
Ihr seit super - hier nochmals den ganzen funktionierenden Code an alle :
Sub test()
Dim Anz As Long, a As Long, SuchIN As Range
Dim MeinTXT As String, Zelle As Range
MeinTXT = InputBox("Suchwort eingeben :", "Suche...")
Set SuchIN = Sheets("Tabelle1").Cells 'Wo soll gesucht werden
'Zähle Zellen mit diesem 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)
'MeinTXT = Zelle.Address & Chr(13)
MeinTXT = Zelle.Offset(0, -1) & Zelle.Address & Chr(13)
Else
'Suche nächste
Set Zelle = .FindNext(Zelle)
MeinTXT = MeinTXT & Zelle.Offset(0, -1) & Zelle.Address & Chr(13)
End If
Next a
End With
Set Zelle = Nothing
Set SuchIN = Nothing
MsgBox MeinTXT 'Ausgabe der Info
End
Sub