Guten Tag an das Forum
Ich versuche auf 2 Tabellen ein neue Zeile über einen Button einzufügen.
Aber Ich bekomme immer 2 Zeilen in dem Aktiven Tabellenblatt und in dem Andern keine neue Zeile.
Was mache ich Falsch ?
Hier das Makro
Public Sub Zeile_einfügen()
Application.EnableEvents = False
'Worksheets("Ausarbeitung").Unprotect Password:="xxx" 'Blattschutz AUS
'Worksheets("Kalkulation").Unprotect Password:="xxx"
DoInsertRows Worksheets("Kalkulation")
DoInsertRows Worksheets("Ausarbeitung")
'Worksheets("Ausarbeitung").Protect Password:="xxx" 'Blattschutz EIN
'Worksheets("Kalkulation").Protect Password:="xxx"
End Sub
Private Sub DoInsertRows(sh As Worksheet)
Dim lngZeile As Long
With Worksheets
lngZeile = Cells(Rows.Count, 1).End(xlUp).Row + 1 ' Ermittlung der letzten Zeile in Spalte A (+ eine Zeile)
Cells(lngZeile, 1).Value = "NEU" ' Einfügen einer Neuen Zeile in Spalte A wird der Wert "NEU" reingeschriben
End With
Application.EnableEvents = True
End Sub
Ich wäre für eure Hilfe Dankbar
MfG Björn
|