Macro zurücksetzen und neu starten
18.06.2008 22:33:00
arkM
Ich bin nicht gerade ein Excel Experte und schon gar nicht im Umgang mit Macros. Da ich aber für die Arbeit gerade wieder mal alles gebe aber nicht mehr weiter weiß, hoffe ich das jemand eine Lösung für mein Problemchen hat. Ich versuche es mal zu beschreiben.
Ich habe ein Macro in meine Tabelle eingebaut. Dieses Macro hat die Funktion bei eingabe eingabe von werten in eine Zelle eine abwechselnde Färbung der Zeilen vorzunehmen. Das funktioniert auch ganz gut.
Ich habe leider aber doch ein Problem damit, da ich schon mal Eingaben löschen muß und dann auch die einfärbung verschwinden soll. Leider wird eine einmal eingefärbte Zelle nach löschen des wertes nicht wieder rückgängig gemacht. Mein zweites Problem ist das ich nicht immer unterschiedliche werte in die Zellen eintrage. Bei 2 aufeinanderfolgenden gleichen werten wechselt die Farbe nicht also habe ich zB. zwei Zeilen in einer Farbe, bis ein anderer Wert eingegeben wird. Das dritte und letzte Problem ist das ich auch schon mal ein Zeile auslasse und keinen Wert eintrage. Auch hier bleibt die Färbung bis ein neuer Wert eingetragen wird. Eigentlich hätte ich gern das wenn ich in A1 einen Wert eingebe und den nächsten in A5, das sich die Färbung bis zur Zeile A5 abwechselt.
Ich hoffe ich habe mich verständlich ausgedrückt, ist gar nicht so leicht das Problem zu beschreiben. Ich hänge noch das Macro an damit Ihr seht was ich bis jetzt verwende. Schon mal herzlichen dank für eure Bemühnungen !!!
Sub Makro1()
z = Range("A65536").End(xlUp).Row
f = 2
a = Range("A1").Value
Range(Cells(1, 1), Cells(1, 9)).Interior.ColorIndex = f
For zeile = 2 To z
If Cells(zeile, 1) a Then
If f = 15 Then
f = 2
Else: f = 15
End If
a = Cells(zeile, 1)
End If
Range(Cells(zeile, 1), Cells(zeile, 9)).Interior.ColorIndex = f
Next
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Makro1
End Sub