Re: Markierter Zellbereich verwenden
07.02.2003 15:10:28
Thomas Darscheid
Hallo Hajo,ich kenne mit den Vorgängen im Forum leider noch nicht sehr gut aus und versuche es diesmal besser zu machen.
Zu meiner Frage: Ich will einen markierten Bereich eines Tabellenblatts (ein oder mehrere Zellen, willkürlich - immer anders gewählt) mit bestimmten optischen Eigenschaften versehen (z.B. die Hintergrundfarbe). Dazu möchte ich einen CommandButton verwenden.
Hier mein verwendeter VBA-Code:
Private Sub CommandButton1_Click()
ActiveCell.Select
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End Sub
Mit diesem Code wird nur jeweils die zuerst markierte Zelle entsprechend geändert, die restlichen Zellen bleiben unverändert.
Die Frage ist nun, wie kann ich alle markierten Zellen bearbeiten?
Nach der Antwort einer anderen Frage im Forum müsste der Code wie folgt geändert werden:
Private Sub CommandButton1_Click()
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End Sub
Das funktioniert bei mir leider nicht. Das Programm läuft jetzt gar nicht mehr und ich erhalte folgende Fehlermeldung:
Laufzeitfehler 1004 - Die ColorIndex-Eigenschaft des Interior-Objektes kann nicht festgelegt werden.
Kannst Du mir in dieser Sache weiterhelfen?
Gruß
Thomas