Vor Format Zelle prüfen

Forumthread: Vor Format Zelle prüfen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Vor Format Zelle prüfen

04.03.2008 11: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

AW: Vor Format Zelle prüfen

04.03.2008 11:13:42

haw
AW: Vor Format Zelle prüfen

04.03.2008 11:21:36

TOM

AW: Vor Format Zelle prüfen

04.03.2008 11: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