Hallo Miteinander,
ich habe mal wieder ein Problem. Es geht um Folgendes:
Ich möchte das wenn ich eíne Zelle farbig markiere daneben eine Zahl angegeben wird. Ich habe auch einen Befehl, aber dieser funktioniert nicht. Dieser ist Folgender:
Sub test()
For zeile = 1 To 5
Select Case Cells(zeile, 1).Interior.ColorIndex
Case 6: zahl = 815
Case 4: zahl = 4711
Case Else: zahl = 0
End Select
Cells(zeile, 2).Value = zahl
Next zeile
End Sub
Hier soll in den Zellen A1-A5 die Farbe geprüft werden, bei gelb soll in die Spalte B die Zahl 0815 erscheinen, bei neongrün die Zahl 4711, 0 wenn ohne Hintergrundfarbe.
Problem: Es funktioniert nicht. :(
Kann mir jemand helfen?