Zeile an bestimmte Stelle kopieren
williams
Ich habe noch eine Frage bzgl. meiner ersten VBA Programmierung.
Vor einer bestimmten Zeile sollen immer auf Knopfdruck einer oder mehrer Zeilen eingefügt werden können.
1. Die bestimmte Zeile vor der eingefügt werden soll ist die Zeile, in der mehrere Summen stehen. Diese ergeben sich aus den Inhalten der Zeilen davor. Die Summenzeile rückt also immer weiter nach unten. Wie finde ich sie nun?
2. Des weiteren soll eine Zeile mit richtiger Formatierung und Formeln - allerdings noch ohne Inhalt - vor die Summenzeile eingefügt werden.
Mein Ansatz hierzu:
Sub CopyRow()
Dim lngLetzte As Long
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
.Range(.Rows(23), .Rows(23)).Copy
.Cells(lngLetzte + 1, 1).Insert
.Range(.Cells(lngLetzte + 1, 1), .Cells(lngLetzte + 1, 13)).ClearContents
End With
End Sub
Grüße
Tony