leerzeile einfügen
26.05.2003 11:38:23
Toni
wer kann mir bei diesem Problem helfen?
Ich habe zwei Datenblätter "Abrechnung" und "Daten"
mit folgendem Code übertrage ich eine Zeile nach "Abrechnung".
Jetzt hätte ich gern, daß danach noch eine Leerzeile eingefügt wird.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets(1).Cells(Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - 6, 1) = Cells(Target.Row, 1)
End Sub
Vielen Dank für eine Antwort
Toni
Anzeige