Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige