Dim liZeile As Integer, lbMsg As Byte
With ThisWorkbook.Sheets("Adresse")
For liZeile = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If ActiveCell.Value = .Range("A" & liZeile).Value Then
.Activate
.Range("A" & liZeile).Select
.Range("C" & liZeile).Copy
lbMsg = MsgBox("Der Text wurde gefunden.", vbInformation, "Treffer")
Exit Sub
End If
Next
End With
lbMsg = MsgBox("Der Text wurde NICHT gefunden.", vbExclamation, "kein Treffer")
End Sub
Nun hab ich noch ein kleines Problem:
Wie springe ich auf die ursprüngliche Tabelle (am besten das ursprüngliche Feld) wieder zurück?
Die ist nicht immer Tabelle1. (hab ca. 20 verschiedene von wo aus die suche gestartet wurde)
Danke noch mal!
Gruß Haxley