cells.offset
27.06.2003 11:06:28
Olli
habe eine Frage bezueglich dieser 3 Zeilen Code:
Warum klappt der Offset-Befehl nicht?
Sub letzteZeilefinden()
Dim LetzteZ As Long
LetzteZ = Range("6500").End(xlUp).Row
Cells(LetzteZ, 1).Offset(1, 0).Value = 2110
End Sub
Habe auch schon folgendes versucht:
Sub letzteZeilefinden()
Dim LetzteZ As Long
LetzteZ = Range("6500").End(xlUp).Row
Cells(LetzteZ, 1).Select
ActiveCell.Offset(1, 0).Value = 2110
End Sub
Erhalte immer den Laufzeitfehler 1004
Irgendjemand eine Idee? Waere sehr dankbar.
Noch etwas: Wie kann ich dann statts dem Value (bin in der Entwicklungsphase ;-)) eine Zeile einfuegen hinter der letzten?
Insert.Row xlshift irgendwas? Werden dann alle Formeln und Formate der Tabelle uebernommen?
Viele Gruesse
Olli