Laufzeitfehler 1004
06.11.2010 12:51:54
Isolde
Hallo,
alle meiner Makros hatten bisher einwandfrei funktioniert (Auch dieses Makro:) der Laufzeitfehler 1004 ist erst im Nachhinein ohne erkennbare Ursache aufgetreten:
Es erscheint die Meldung: "Objekte können nicht über das Blatt hinaus verschoben werden"
Das makro wird an der fett markierten Stelle debuggt:
Sub Makro6_Sp_Aufrüstzeit()
Columns("R:R").Select
Selection.Insert Shift:=xlToRight
Range("R1").Select
ActiveCell.FormulaR1C1 = "Aufrüst-zeit"
With ActiveCell.Characters(Start:=1, Length:=12).Font
.Size = 16
Range("R3").Select
ActiveCell.FormulaR1C1 = "[hh:mm]"
With ActiveCell.Characters(Start:=1, Length:=7).Font
End With
End With
Range("R2:R3").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.Merge
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End Sub
Ich hatte hier mit dem Makrorecorder aufgezeichnet wie zwischen zwei Spalten (per rechtsklick Spalte einfügen) eine zusätzliche Spalte eigefügt, formatiert und beschriftet wird.
Auf dieses Makro bauen weitere Makros auf...also wenn das nicht läuft geht gar nix mehr.
Ich habe mir auch im Internet diverse Tipps zu dieser Fehlermeldung durchgelesen...bekomme es aber nicht hin.
Vielen Dank für eure Hilfe