Laufzeitfehler bei Zellenformatierung mit vba
20.08.2018 12:29:19
Oms
ich möchte mit VBA ein Tabellenblatt formatieren.
Allerdings kommt die Fehlermeldung:
Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler
Die kommt erst, seit ich die Datei neu abgespeichert habe, davor war das kein Problem.
Da wo der Debugger zum stehen kommt, habe ich auch schon:
ActiveSheet.Range("(A:B);(C:D);(E:F);(G:H)").Select
ausprobiert, bzw. die Klammern weggelassen...
Code:
Function Datenausgabe()
'Kopf-Zellen einfärben:
'Kopf blau färben
Range("A2:H2").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
Range("A1").Select
'Fette Linie um Spalten
Range("(A:B);(C:D);(E:F);(G:H)").Select ' HIER KOMMT DER DEBUGGER ZUM STEHEN
Selection.ColumnWidth = 20 With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Function
Wäre super wenn mir jemand helfen kann!
VG!