Hi,
folgendes Problem für mich als Anfänger.
Ich markiere mir ein paar Zellen in roter Schrift.
Hilfreich wäre wenn ich mir diese aber anstatt rot zu markieren,
lieber als 0 ersetzen würde, damit diese nicht mit berechnet werden.
Wie stelle ich das an? Vorab Danke für eure Hilfe.
Gruß
*Topic verschoben, BBCode eingefügt*
folgendes Problem für mich als Anfänger.
Ich markiere mir ein paar Zellen in roter Schrift.
Hilfreich wäre wenn ich mir diese aber anstatt rot zu markieren,
lieber als 0 ersetzen würde, damit diese nicht mit berechnet werden.
Wie stelle ich das an? Vorab Danke für eure Hilfe.
Gruß
Visual Basic-Quellcode
- Sub Blabla()
- '
- ' Blabla Makro
- '
- '
- Columns("A:N").Select
- Selection.ClearContents
- Selection.ColumnWidth = 0
- Columns("P:P").Select
- Selection.ClearContents
- Columns("R:AT").Select
- Selection.ClearContents
- Range("O:O,Q:Q").Select
- Range("Q1").Activate
- Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
- "=$O1:$O800<$Q1:$Q800"
- Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
- With Selection.FormatConditions(1).Font
- .Bold = True
- .Italic = False
- .Color = -16776961
- .TintAndShade = 0
- End With
- Selection.FormatConditions(1).StopIfTrue = False
- Range("O1").Select
- ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[799]C)/100"
- Range("Q1").Select
- ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[868]C)/100"
- Range("U1").Select
- ActiveCell.FormulaR1C1 = "=SUM(RC[-6]-RC[-4])"
- ActiveCell.FormulaR1C1 = "=SUM(RC[-6]-RC[-4])"
- Range("U1").Select
- Selection.NumberFormat = "0.00"
- With Selection.Font
- .Name = "Calibri"
- .FontStyle = "Fett"
- .Size = 22
- .Strikethrough = False
- .Superscript = False
- .Subscript = False
- .OutlineFont = False
- .Shadow = False
- .Underline = xlUnderlineStyleNone
- .ThemeColor = xlThemeColorDark1
- .TintAndShade = 0
- .ThemeFont = xlThemeFontMinor
- End With
- With Selection.Interior
- .Pattern = xlSolid
- .PatternColorIndex = xlAutomatic
- .Color = 12611584
- .TintAndShade = 0
- .PatternTintAndShade = 0
- End With
- Range("U1").Select
- End Sub
*Topic verschoben, BBCode eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()