schnellere Übernahme
26.01.2004 17:17:57
TiniMaus
ich möchte gern den Wert von Zelle a1 in Zelle c3 automatisch schreiben lassen , wobei dies aber die Zeile 1 bis 2399 betrifft. (a20 --> B20
Wenn i Spalte A der Text "per" drinsteht soll die nächste Zeile genommen werden.
Folgendes habe ich bisher gemacht:
For i = 4 To 2399
If Worksheets("Tabelle1").Cells(i, 1) = "per" Then GoTo Naechste1:
Worksheets("Tabelle1").Cells(i, 3).Value = Worksheets("Tabelle1").Cells(i, 1).Value
Naechste1:
Next i
Kennt jemand eine elegantere Variante, die auch schneller läuft?
Danke & Gruß TiniMaus