Zelle einfügen VBA
16.12.2004 16:06:41
köbi
komme nicht weiter - HILFE - möchte letzte zelle in Spalte A ermitteln, ist mit der Recherche auch gelungen. Code:
Sub ErsteFreieA()
Dim s As String
Dim i As Long
With ActiveSheet
i = 3
Do
i = i + 1
j = j - 1
s = Cells(i, "A")
If Len(s) = 0 Then
Cells(i, "A").Activate
Exit Do
End If
Loop While i < 65535
End With
End Sub
Nun soll aber diese letzte ganze Zeile (A:IV) oberhalb eingefügt werden.
Manuell mit Rechtsklick und Zeile einfügen ist möglich, möchte jedoch gerne das ganze als Code (Userproblem beseitigen)
Warum: da Excel automatisch nun die untenstehenden Formeln aktualisiert
Beispieldatei:
https://www.herber.de/bbs/user/14920.xls
vielen Dank für eure Hilfe
köbi