VBA Code zum Formatieren läuft nicht
12.03.2018 08:42:27
Axel
ich habe Teile vom Code per Makroeditor aufgezeichnet und in ein bestehendes Makro reinkopiert. Ab "Tabelle4.Range("A:AZ").Select" läuft das Makro nicht weiter.
Tabelle3.Range("H4").ClearContents 'WM
Tabelle9.Range("H4").ClearContents '(S)AM
Tabelle22.Range("H4").ClearContents 'KM
Tabelle26.Range("H4").ClearContents '(S)KM
Tabelle4.Range("A:AZ").Select
Selection.ClearContents
Selection.UnMerge
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Tabelle12.Range("F6:K6").ClearContents
Tabelle14.Range("F6:K6").ClearContents
Tabelle30.Range("F6:K6").ClearContents
Tabelle5.Range("F6:K6").ClearContents
Offensichtlich kann man das so nicht machen. Wie muss man das denn schreiben?
Ich will im Tabellenblatt 4 die Rahmenlinien wegnehmen, die Zellfarben rausnehmen und den Fokus auf A1 setzen (das habe ich später im Makro mit
Tabelle1.Activate
Tabelle1.Range("A1").Select
gemacht).
Vielen Dank vorab.
Axel