2 Zeilen kopieren und einfügen
05.11.2017 18:05:30
Erik
ich komme hier einfach nicht weiter,
ich suche nach einem VBA Code für das Kopieren und Einfügen von 2 Zeilen.
Und zwar sollen immer die Zeilen 5 und 6 direkt über der jeweils aktiven Zeile eingefügt werden.
Unter der Voraussetzung, dass:
- die aktive Zelle sich in Spalte A befindet und
- in Spalte B ein Datensatz vorhanden ist.
Hier meine Anfänge:
Private Sub Datensatz_Click()
Set wks = Worksheets(1)
wks.Unprotect Password:=""
If ActiveCell.Column = 1 Then
Else
MsgBox "Datensatz kann hier nicht eingefügt werden, markiere den 'Mitarbeiter' in _
Spalte A"
Exit Sub
End If
wks.Protect _
DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFormattingColumns:=True, _
AllowFiltering:=True, _
Password:=""
wks.EnableSelection = xlUnlockedCells
End Sub
Erik