möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
Sub Farbe()
If Cells(1, 1) = "w" Then
Range("A2:Z22").Interior.ColorIndex = 26
ElseIf Cells(1, 1) = "m" Then
Range("A2:Z22").Interior.ColorIndex = 28
End If
End Sub
Gruss hary
Private Sub ComboBox1_Change() ' Namen der Cbo anpassen
If ComboBox1.Value = "m" Then
Range("A2:Z22").Interior.ColorIndex = 8
ElseIf ComboBox1.Value = "w" Then
Range("A2:Z22").Interior.ColorIndex = 7
End If
End Sub
Gruss Hary
Private Sub ComboBox1_Change()
If Cells(4, 1).Value = "m" Then
Range("A2:Z22").Select
With Selection.Interior
.ColorIndex = 37
End With
ElseIf Cells(4, 1).Value = "w" Then
Range("A2:Z22").Select
.ColorIndex = 36
End With
End If
Range("r1").Select
End Sub
Die Kursiv zeile ist gelb unterlegt.
Private Sub Worksheet_Activate()
Karte1_Sortieren
End Sub
Sobald ich vor PRIVATE ein Häckchen ( ' ) setze, funktioniert es auch.
Vielleicht hilfs einweig.
Gruß Peter
Private Sub Worksheet_Activate()
' Karte1_Sortieren
' End Sub
Trotzdem wäre es schön gewesen, wenn Du mir vielleicht ein Weg, oder eine Lösung gezeigt hättest.
Gruß Peter
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A2:Z22").Interior.ColorIndex = xlNone
Cancel = True 'nur für Test - später entfernen!
End Sub
2. in Dokumentklassenmodul "Tabelle1":
Option Explicit
Private Sub ComboBox1_Change()
If Cells(4, 1).Value = "m" Then
Range("A2:Z22").Interior.ColorIndex = 8
ElseIf Cells(4, 1).Value = "w" Then
Range("A2:Z22").Interior.ColorIndex = 3
End If
Range("H23").Select
End Sub
Die Indexfarben sind natürlich nicht garantiert, weil sie von individuellen Einstellungen abhängen. Falls stattdessen direkte Farbwerte (...Color) verwendet wdn, wdn bis xl11 automatisch die numerisch ähnlichsten eingestellten gewählt.
Gruß Luc :-?
PS: Makros verwenden seit xl5 VBA (du schriebst: "...keine Makros", aber würdest auch VBA nehmen...?)! Anscheinend haben wg des Durcheinanders bei einer doch recht simplen Fragestellung die anderen Antworter die Lust verloren... Also mal Stil überdenken → klare Aufgabenstellung mit allen Prämissen, nicht tröpfchenweise - Gesamtvorhaben wenigstens skizzieren!