Laufzeitfehler 1004
11.06.2014 13:49:10
Barbara
kann mir jemand sagen, warum ich hier einen Laufzeitfehler 1004 bekomme? Es soll eigentlich nur eine Leerzeile eingefügt werden, die dieselbe Formatierung und Formeln hat wie die Zeile A6:O6. Das ganze soll nur geschehen, wenn die ganze Zeile, unter der die neue Zeile eingefügt wird, markiert ist, sonst MsgBox!
Das Makro funktioniert übrigens, nur wird immer dieser blöde Laufzeitfehler angezeigt :(
Option Explicit
Sub MitarbeiterEinfügen()
Const strAnfang As String = "A"
Const strEnde As String = "O"
Dim sRow As String
Dim rngD As Range
Dim rngC As Range
sRow = Right(Selection.Rows(1).Address, 5)
While (Val(sRow) = 0)
sRow = Right(sRow, Len(sRow) - 1)
Wend
If ActiveSheet.Rows(Val(sRow)).Cells.Count Selection.Cells.Count Then
MsgBox "Bitte komplette Zeile markieren!"
End If
If ActiveSheet.Rows(Val(sRow)).Cells.Count = Selection.Cells.Count Then
Rows(Selection.Row + Selection.Rows.Count).Insert Shift:=xlDown
End If
Set rngD = Range("A6:O6")
Set rngC = Range(Selection.Offset(1, 1), Selection.Offset(1, Asc(strEnde) - Asc(strAnfang)))
rngD.Copy Destination:=rngC
rngD.Copy
rngD = rngC
rngC.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
rngC.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub