Wert der aktive Zelle 16 Spalten nach links eintr.
26.12.2005 21:09:00
Peter
Ich möchte in einem Arbeitsblatt die Werte in Spalte U (beginnend ab Zeile 5, endend beim letzten Wert) 16 Spalten weiter vorne eintragen (also in Spalte E). Mit anderen Worten: In E5 soll auch der Wert von U5, in E6 von U6, etc., stehen.
Ich habe mit dies wiefolgt festgestellt (wobei mir die wichtigste Zeile fehlt):
Sub InhalteUebertr()
Application.Goto reference:=Range("u5")
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
End Sub
* hier suche ich den Befehl, der mir den Wert der aktiven Zelle 16 Spalten weiter vorne einträgt.
Kann mir jemand weiterhelfen?
Danke, Peter
Anzeige