VBA zusammenfügen
13.05.2009 11:39:27
Alex
könnte mir jemand die VBA so zusammenfügen das sie Funktioniert.
Ich möchte per Button bestimmte Zelleninhalte einblenden (Schrift Schwarz) und wieder Ausblenden (Schrift Weiß). Zurzeit macht er dies alles in einem Schritt.
Sub Preise_Anzeigen1()
ActiveSheet.Unprotect ("dbl")
Range("AB15:AG37,BH15:BM37").Select
Range("BH15").Activate
Selection.Font.ColorIndex = 1
Range("AB15:AG37,BH15:BM37").Select
Selection.Font.ColorIndex = 2
Range("A1").Select
ActiveSheet.Protect ("dbl")
End Sub
Vielen Dank für Eure Hilfe
lg