Nach Find Methode Zeile merken
frank
Ich habe mehrere gleich aufgebaute Tabellenblätter.
Es wird in Spalte A nach der Kalenderwoche gesucht.
Wird diese gefunden werden Einträge in den Zellen daneben gemacht.
In den anderen Tabellenblättern werden dann in der selben Zeile Einträge vorgenommen.
Muß ich die Suchabfrage in allen Tabellenblättern neu durchführen oder kann ich die Zeilennummer merken und damit weiterarbeiten?
Dim rng As Range
Set rng = Sheets("Tabelle1").Range("A3:A53").Find(What:=TextBox1.Text, Lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
With Sheets("Tabelle1")
rng.Offset(0, 22) = CDbl(TextBox3)
mfg
frank