Supportnet / Forum / Tabellenkalkulation

Hallo, ich bin nicht wirklich fit im Programmieren in EXCEL und brauche deshalb Hilfe! Aus einer Beispieldatei aus dem Netz habe ich folgende Befehlszeilen kopiert, mit der ich markierte Zellen über einen Button in rot einfärben kann: Sub farbe_rot() ActiveSheet.Unprotect With Selection.Interior .ColorIndex = 3 End With ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True End Sub Diesen Befehl möchte ich jetzt auf die Spalten E bis G begrenzen, so dass nur markierte Zellen in diesen Spalten eingefärbt werden können! Markiere ich eine Zelle in einer anderen Spalte, soll diese nicht eingefärbt werden können! Wer kann mir da weiterhelfen?

Moin Wilfried,

versuch es mal so:

Sub farbe_rot()
Dim Spalte As Integer
ActiveSheet.Unprotect
Spalte = Selection.Column
If Spalte > 4 And Spalte < 8 Then
Selection.Interior.ColorIndex = 3
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
End If
End Sub


Gruß

Danke JöKe!

Das funktioniert super!

• excel numerische spalten
• Exel spalten löschen und leere Spalten mit 0 füllen
• Größe eines Netzwerklaufwerkes begrenzen.
• Ordnerbezeichnungen begrenzen
• command & Conquer alarm stufe rot geschwindigkeit begrenzen