Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Selektion

Forumthread: Selektion

Selektion
07.09.2005 14:08:41
Erwin
Hallo miteinander,
ich habe folgendes Makro erstellt, mit dem verschiedene MA vorher selektierte Zellen kennzeichnen:
ActiveSheet.Unprotect ("Urlaubsplan")

With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With

Selection.FormulaR1C1 = "V"

Range("A13").Select

ActiveSheet.Protect ("Urlaubsplan")
Es funktioniert auch, aber der MA soll nur die Zellen B8:AF43 selektieren dürfen, ansonsten soll das Makro nicht ablaufen.
Vielleicht kann mir hierbei jemand helfen.
Vielen Dank im Voraus
Die besten Grüße aus dem Süden
Erwin
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Selektion
07.09.2005 14:20:34
levetzow
Hallo Erwin, erweitere den Code um die ersten Zeilen:
rg1 = Selection.Address
rg2 = "$B$8:$AF$43"
Set isect = Application.Union(Range(rg1), Range(rg2))
If isect.Address rg2 Then Exit Sub
ActiveSheet.Unprotect ("Urlaubsplan")
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With
Selection.FormulaR1C1 = "V"
Range("A13").Select
ActiveSheet.Protect ("Urlaubsplan")
Holger
Anzeige
AW: Selektion
07.09.2005 14:30:47
Erwin
Hallo Holger,
funktioniert super. Schon wieder was gelernt.
Vielen Dank für deine schnelle und sehr gute Antwort.
Erwin
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige