Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Laufzeitfehler bei Zellenformatierung mit vba

Laufzeitfehler bei Zellenformatierung mit vba
20.08.2018 12:29:19
Oms
Hallo Zusammen!
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!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler bei Zellenformatierung mit vba
20.08.2018 12:45:11
Hajo_Zi

Option Explicit
Function Datenausgabe()
'Kopf-Zellen einf?rben:
'Kopf blau f?rben
With Range("A2:H2").Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.599993896298105
.PatternTintAndShade = 0
End With
'Fette Linie um Spalten
With Range("A:B,C:D,E:F,G:H")
.ColumnWidth = 20
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End Function


Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

Anzeige
AW: Laufzeitfehler bei Zellenformatierung mit vba
20.08.2018 12:58:50
Oms
Super! Danke Hajo!
Range("A:H") genügt (owT)
20.08.2018 12:58:43
EtoPHG

AW: Laufzeitfehler bei Zellenformatierung mit vba
20.08.2018 13:00:19
Michael
Range("A:B,D:E,G:H").Select
... und auf .Select verzichten => Recherche! (owT)
20.08.2018 13:06:29
EtoPHG

AW: ... und auf .Select verzichten => Recherche! (owT)
20.08.2018 13:24:59
Oms
Super, danke auch euch beiden!

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige