Wert in Spalte B gefunden - Brauch Spalte A

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)
Else
'Suche nächste
Set Zelle = .FindNext(Zelle)
MeinTXT = MeinTXT & Zelle.Address & Chr(13)
End If
Next a
End With
Set Zelle = Nothing
Set SuchIN = Nothing
MsgBox MeinTXT 'Ausgabe der Info
End Sub