Select-Fehler -> ratlos?
12.05.2006 09:44:34
maiz
Ich habe ein Problem. Und zwar will ich einen einfachen Vorgang programmieren. Dazu habe ich das Ganze aufgenommen, und die überflüssigen Dinge gelöscht und die variablen Zahlenangaben durch Variablen ersetzt. So weit so gut.
Der nachfolgende, aufgenommene Code läuft problemlos ab:
--------------------------------------------------------------------------------
Selection.Insert Shift:=xlDown
Sheets("Monatsrapport").Select
ActiveWindow.SmallScroll Down:=81
Rows("128:128").Select
Selection.Insert Shift:=xlDown
Rows("127:127").Select
Selection.AutoFill Destination:=Rows("127:128"), Type:=xlFillDefault
Rows("127:128").Select
Range("A128").Select
ActiveCell.FormulaR1C1 = _
"=IF('Basisdaten SAP'!R[1]C<>"""",'Basisdaten SAP'!R[1]C,"""")"~f~
--------------------------------------------------------------------------------
Ändere ich den Code ein bisschen ab (noch nicht mal Variablen ersetzt) und füge ihn in den Zusammenhang ein, kommt immer die Fehlermeldung "Runtime Error 1004" auf der Zeile Rows(128:128).Select
--------------------------------------------------------------------------------
~f~If ActiveCell.Worksheet.Name = "Basisdaten SAP" Then
On Error GoTo ende
If tRng.Row > tRow Then
MsgBox "Zellen eingefügt! " & oRng
On Error GoTo 0
Sheets("Monatsrapport").Select
Rows("128:128").Select
Selection.Insert Shift:=xlDown
Rows("127:127").Select
Selection.AutoFill Destination:=Rows("127:128"), Type:=xlFillDefault
Range("A128").Select
ActiveCell.FormulaR1C1 = _
"=IF('Basisdaten SAP'!R[1]C<>"""",'Basisdaten SAP'!R[1]C,"""")"
End If
End If
Exit Sub
ende:
MsgBox "Zellen gelöscht! " & oRng
--------------------------------------------------------------------------------
Hat jemand von euch eine Ahnung, wieso das nicht geht? Was habe ich übersehen?