Makro steigt aus... warum?
01.04.2019 12:13:06
michlchen80
ich möchte in die auto open einbauen, dass auf dem hauptblatt die bed. formatierung bei jedem start sauber gezogen wird...
es geht um das WE einfärben. hatte ich hier auch schon einen eintrag wegen der formel...
Sub Makro2()
' Makro2 Makro
Sheets(Hauptblatt).Select
ActiveWindow.FreezePanes = False
'überschriftzeile, erster ds, l_col und l_row finden
Call Raender_holen(ActiveSheet.Name, "Fahrzeugnotizen")
'da hinten tw. eins über der überschriftzeile noch datumswerte stehen. geerbte liste für _
_
zeitdarstellungen
l_col2 = Cells(Ueb_Zeile - 1, Columns.Count).End(xlToLeft).Column
If l_col2 > l_col Then l_col = l_col2
Cells(Ueb_Zeile + 1, key_col + 1).Select
ActiveWindow.FreezePanes = True
With Range(Cells(1, key_col + 1), Cells(1, l_col)).EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=UND(ODER($A1"""";$B1"""");ODER(" _
_
& spBuchstabe(key_col + 1) & "$" & Ueb_Zeile - 2 & "=""Sa"";" & spBuchstabe(key_col + 1) & "$" _
& Ueb_Zeile - 2 & "=""So"");is_farbig(" & spBuchstabe(key_col + 1) & "1)=FALSCH)"
'warum hört diese elende made hier auf?
.FormatConditions(1).Interior.PatternColorIndex = xlAutomatic
.FormatConditions(1).Interior.ThemeColor = xlThemeColorLight2
.FormatConditions(1).Interior.TintAndShade = 0.799981688894314
End With
Range("A1").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End Sub
bei dem outline steigt er übrigens auch aus. warum auch immer...
danke für die hilfe.