ich wollte mir ein kl. Macro schreiben, durch das der Wert der Zelle A1 in einem Arbeitsblatt gesucht wird. Mit cells.find komme ich leider nicht weiter, da ich nicht what:=Tabelle!A1 eintragen kann.
Ich bin sicher, dass Ihr helfen könnt.
VG
Michael
Sub nk()
' nk Makro
' Makro am 10.07.2007 von mp aufgezeichnet
Range("A1").Select
Selection.Copy
Sheets("Tabelle1").Select
Cells.Find(What:=Tabelle2!A1, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub
danach käme ich schon weiter.
Der Hintergrund:
In Tabelle1 habe ich eine Unmenge von Daten. In Tabelle2 trage ich in die ersten 4 Zellen Werte ein.
Den Wert in Tabelle2!A1 möchte ich in Tabelle1 suchen und dann in genau der Zeile, in drei weiteren Zellen (nicht nebeneinander) die restlichen 3 Werte eintragen.
VG
Michael