Zeile löschen / hinzufügen Bereich
14.11.2017 11:45:29
Erik
ich will Zeilen per VBA in einem bestimmten Tabellenbereich (Spalte A zwischen Text Nachunternehmer und NachEnde) einfügen bzw. löschen.
Leider erkennt der VBA Code meine Einschränkung nicht, irgendetwas fehlt noch.
Hier mein Anfang:
Private Sub NU_LOESCHEN_Click()
Dim rNachunternehmer, rNachEnde
rNachunternehmer = ActiveSheet.Columns("A").Find("Nachunternehmer").Row + 1
rNachEnde = ActiveSheet.Columns("A").Find("NachEnde").Row - 1
ActiveCell.EntireRow.Delete
'Rows(rNachunternehmer & ":" & rNachEnde).EntireRow.Delete
End Sub
Private Sub NU_HINZUFUEGEN_Click()
Dim rNachunternehmer, rNachEnde
rNachunternehmer = ActiveSheet.Columns("A").Find("Nachunternehmer").Row + 1
rNachEnde = ActiveSheet.Columns("A").Find("NachEnde").Row - 1
ActiveCell.EntireRow.Insert
'Rows(rNachunternehmer & ":" & rNachEnde).EntireRow.Delete
End Sub
Erik