AW: aktuellen Zelleninhalt in anderer Mappe suchen
24.04.2007 11:20:00
Oberschlumpf
tausch den Code im Makro gegen diesen aus:
Sub Suchen()
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 Wert wurde gefunden.", vbInformation, "Treffer")
Exit Sub
End If
Next
End With
lbMsg = MsgBox("Der Wert wurde nicht gefunden.", vbExclamation, "kein Treffer")
End Sub
In der With-Zeile wird bestimmt, um welche Tabelle es sich handelt.
Hättest du gleich den Namen der Tabelle angegeben, und nicht so allgemein formuliert, es geht um Mappe 1 + 2, dann hätte sich deine Frage bzgl. der Festlegung, in welcher Tabelle gesucht wird, erübrigt.
Konnte ich denn helfen?
Ciao
Thorsten