Bedingte Formatierung > 3

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() For i = 1 To 30 If Cells(i, 5).Value <= 60 Then Cells(i, 5).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="40" Selection.FormatConditions(1).Interior.ColorIndex = 9 Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="50" Selection.FormatConditions(2).Interior.ColorIndex = 4 Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="60" Selection.FormatConditions(3).Interior.ColorIndex = 32 Else Cells(i, 5).Select Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="65" Selection.FormatConditions(1).Interior.ColorIndex = 22 Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="70" Selection.FormatConditions(2).Interior.ColorIndex = 12 Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="75" Selection.FormatConditions(3).Interior.ColorIndex = 33 End If Next End Sub

Ich habe leider keine Ahnung von VBA, daher meine Fragen.
Ich habe nun das Makro nach Emfpehlung von xXx hergenommen. Es hängt nun aber direkt an der Tabelle und ist nicht als Modul angelegt.
Ich wollte nun eine SChaltfläche erstellen, über die ich das Makro ausführen kann. Dieses Makro steht aber nicht zur Auswahl. Wie bekomme ich das her?
Außerdem würde mich interessieren, wie ich die Zellenformatierung noch auf Fett, kursiv, etc. verändern kann.
Herzlichen Dank!
Silvia
Das Makro sieht folgendermaßen aus:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'   HINTERGRUND
'   für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:D5000")
'    ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case UCase(RaZelle.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben
Case "SU"
RaZelle.Interior.ColorIndex = 0
' Standard
RaZelle.Font.ColorIndex = 7
' Schriftfarbe lila 6 = gelb
'RaZelle.NumberFormat = "General"
' Zellenformat Standard
Case "K"
RaZelle.Interior.ColorIndex = 0
' Standard
RaZelle.Font.ColorIndex = 3
' Schriftfarbe rot
'RaZelle.NumberFormat = ";;;"
' nicht sichtbar
Case "U"
RaZelle.Interior.ColorIndex = 0
' standard
RaZelle.Font.ColorIndex = 4
' Schriftfarbe gruen
'RaZelle.NumberFormat = "General"
' Zellenformat Standard
Case "FO"
RaZelle.Interior.ColorIndex = 0
' Standard
RaZelle.Font.ColorIndex = 5
' Schriftfarbe blau
'RaZelle.NumberFormat = "General"
' Zellenformat Standard
Case Else
RaZelle.Interior.ColorIndex = xlNone
' Keine
RaZelle.Font.ColorIndex = 0
' Schriftfarbe automatisch
'RaZelle.NumberFormat = "General"
' Zellenformat Standard
End Select
End If
Next RaZelle
'    ActiveSheet.protect ("Passwort")
Set RaBereich = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread