Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige