Brauche dringend Hilfe
08.10.2004 09:01:48
Kersten
Bei dem nachfolgenden Makro taucht an der markierten Stelle ( -> )folgende Fehlermeldung auf:
PastSpecial Methode des RangeObjektes konnte nicht ausgeführt werden.
Diese Meldung war plötzlich da. Das hatte alles vorher lange funktioniert.
Wer kann mir sagen woher das kommen könnte? Ich kann mir nicht erklären warum das plötzlich passiert und worauf sich das bezieht.
Danke
Gruß Kersten
Sub Zeilen_einfügen()
Dim iCount As Integer
Dim anfang As Integer
Dim Var As String
Var = InputBox("Anzahl der Zeilen:", , 3)
If Var = "" Then Exit Sub
For anfang = 1 To Var
'Hier wird die aktuelle Zeile makiert
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
With Selection
iCount = .Rows.Count
Rows(.Row + iCount & ":" & _
.Row + (iCount * 2) - 1).Rows.Insert
End With
ActiveCell.Offset(1, 0).Range("A1").Select
->Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
->False, Transpose:=False
ActiveCell.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
Next anfang
Set rng = Range(Cells(68, 1), _
Cells(Cells(Rows.Count, 13).End(xlUp).Row - 1, 13))
Sheets("Erfassen").ScrollArea = rng.Address
End Sub