[xxfaxexx]

Servus,

habe da mal eine frage an die cracks .

gibt es eine möglichkeit, das ich die schrifftfarbe der überschrift (durch klicken auf die überschrift) mehrfach ändern kann. zu besseren erklärung:

1.) schrifft ist rot
klick mit linker maustaste
2.) farbe wird blau
wieder klick mit der maustaste
3.) farbe wir wieder rot.

ist sowas möglich, wenn ja wie kann man dies realisieren?

mfg faxe

[dastriebel]

Zitat (xxfaxexx: 11.12.2006, 17:00)

gibt es eine möglichkeit, das ich die schrifftfarbe der überschrift (durch klicken auf die überschrift) mehrfach ändern kann. zu besseren erklärung:

Es ist nicht ganz klar, was Du mit Überschrift meinst. Wenn dies der Inhalt von Zelle 'A1' ist hilft dir folgenden Code fast weiter, nur fast, da die Lösung mit einem Doppelklick funktioniert:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Farbe ändern bei Doppelklick auf Zelle A1
	
	If Target.Address = "$A$1" Then 'Test pb dies die Zelle mit der Überschrift ist

		With ActiveCell.Interior		'Alles weitere bezieht sich aucg die aktive Zelle, Hintergrund
			
			If .Color = vbBlue Then	 'Wenn die Farbe Blau ist
				.Color = vbRed		  '   diese auf Rot setzten
			Else						'sonst
				.Color = vbBlue		 '   diese auf Blau setzten
			End If
		End With
		
		Cancel = True				   'Doppelklick abbrechen
		
	End If

End Sub

oder mit Linksklick

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Farbe ändern bei Rechtsklick auf Zelle A1
	
	If Target.Address = "$A$1" Then	 'Test pb dies die Zelle mit der Überschrift ist

		With ActiveCell.Interior		'Alles weitere bezieht sich aucg die aktive Zelle, Hintergrund
			
			If .Color = vbGreen Then	'Wenn die Farbe Grün ist
				.Color = vbMagenta		  '   diese auf Magenta setzten
			Else						'sonst
				.Color = vbGreen		'   diese auf Grün setzten
			End If
		End With
		
		Cancel = True				   'Rechtsklick abbrechen
		
	End If

End Sub

Für Linksklick gibt es kein Erreignis