Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vor Format Zelle prüfen

Forumthread: Vor Format Zelle prüfen

Vor Format Zelle prüfen
04.03.2008 10:02:40
TOM
Hallo,
mit u.a. Makro wird eine Zelle automatisch formatiert.
Ich möchte nun erreichen, dass diese Formatierung nur in den Zellen D3:G500 durchgeführt werden darf.
Wie kann ich diese "Prüfung" einbauen?

Sub Format_Beratung()
ActiveSheet.Unprotect ("Test")
ActiveCell.Select
Selection.NumberFormat = "@ ""(B)"""
ActiveSheet.Protect ("Test")
End Sub


Danke vorab
TOM

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Vor Format Zelle prüfen
04.03.2008 10:13:42
haw
Hallo Tom,
so z.B.:

Sub Format_Beratung()
Dim Ber As Range, isect
Set Ber = Range("D3:G500")
Set isect = Application.Intersect(ActiveCell, Ber)
If isect Is Nothing Then
MsgBox "Formatiertierung in dieser Zelle nicht erlaubt!"
Else
ActiveSheet.Unprotect ("Test")
ActiveCell.NumberFormat = "@ ""(B)"""
ActiveSheet.Protect ("Test")
End If
End Sub


Gruß
Heinz

Anzeige
AW: Vor Format Zelle prüfen
04.03.2008 10:21:36
TOM
Hallo Heinz,
perfekt - vielen Dank!
Gruß
TOM
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige