Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich 'as ?
Dim vorh As Boolean, n As Long
Bereich = Array("A1", "A3", "C2")
For n = 0 To UBound(Bereich)
If Target.Address(0, 0) = Bereich(n) Then vorh = True
Next n
If vorh = False Then Exit Sub
If Target.Value = 45 Then ' hier die bedingte Formatierung
Dicke = xlThick
Else
Dicke = xlHairline
End If
For n = 7 To 10
With Target.Borders(n)
.LineStyle = xlContinuous
.Weight = Dicke
.ColorIndex = xlAutomatic
End With
Next n
End Sub
Fehler: Die Rahmenbreite ändert sich nicht.
Fehler: Die bedingte Formatierung wird nicht angezeigt.
Wenn du die Rahmenbreite in der bedingten Formatierung nicht wie gewünscht anpassen kannst, kannst du mithilfe von VBA (Visual Basic for Applications) eine benutzerdefinierte Lösung erstellen. Hier ist ein einfaches Beispiel:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Variant
Dim Dicke As Long
Bereich = Array("A1", "A3", "C2")
If Not IsError(Application.Match(Target.Address(0, 0), Bereich, 0)) Then
If Target.Value = 45 Then
Dicke = xlThick
Else
Dicke = xlHairline
End If
For n = 7 To 10
With Target.Borders(n)
.LineStyle = xlContinuous
.Weight = Dicke
.ColorIndex = xlAutomatic
End With
Next n
End If
End SubDieses Skript passt die Rahmenbreite basierend auf dem Zellwert an.
Beispiel 1: Du möchtest, dass die Zelle A1 einen dicken Rahmen erhält, wenn der Wert 45 eingegeben wird. Mit dem obigen VBA-Skript wird dies möglich.
Beispiel 2: Wenn du in Zelle A3 den Wert 100 eingibst, könnte eine andere Rahmenart angewendet werden, die du im VBA-Code definierst.
1. Kann ich die Rahmenbreite in der bedingten Formatierung direkt ändern? Leider erlaubt Excel keine direkte Änderung der Rahmenbreite in der bedingten Formatierung. Du kannst jedoch VBA verwenden, um dies zu erreichen.
2. Welche Excel-Version benötige ich für VBA? VBA ist in den meisten Versionen von Excel verfügbar, einschließlich Excel 2003 und neuer. Stelle sicher, dass du die Entwicklertools aktiviert hast.
3. Wie finde ich die Befehle für die bedingte Formatierung? Du findest die bedingte Formatierung im Menü unter „Start“. Dort kannst du Regeln erstellen und bearbeiten.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen