Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz behindert Makro

Blattschutz behindert Makro
03.05.2006 23:51:27
gemba
Hallo,
ich habe folgende Vorlage benutzt zur Steuerung von verschiedenen Waehrungsformaten innerhalb einer Zelle.
https://www.herber.de/bbs/user/33083.xls
Der Code:

Private Sub Worksheet_Calculate()
Dim FormatZelle As Range
Dim lZeile As Integer
lZeile = Range("F8").End(xlDown).Row
Select Case Range("A1")
Case 1
Set FormatZelle = Range("C3")
Case 2
Set FormatZelle = Range("C4")
Case 3
Set FormatZelle = Range("C5")
End Select
Range("F8:F" & lZeile).NumberFormat = FormatZelle.NumberFormat
End Sub

Das funkioniert an sich total gut, nur bekomme ich immer Fehlermeldungen, wenn ich den Blattschutz aktiviere. Natuerlich kann ich die Spalte, in der das Format vom Makro veraendert wird, vom Blattschutz ausnehmen, aber dann ist der Witz weg. Wuerde diese Spalte naemlich auch gerne schuetzen.
Gibts da einen Trick?
Bin fuer jeden Tipp dankbar! Gruss, gemba

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz behindert Makro
03.05.2006 23:56:02
Gerd

Private Sub Worksheet_Calculate()
Dim FormatZelle As Range
Dim lZeile As Integer
Me.Unprotect password:="yxc"
lZeile = Range("F8").End(xlDown).Row
Select Case Range("A1")
Case 1
Set FormatZelle = Range("C3")
Case 2
Set FormatZelle = Range("C4")
Case 3
Set FormatZelle = Range("C5")
End Select
Range("F8:F" & lZeile).NumberFormat = FormatZelle.NumberFormat
Me.protect password:="yxc"
End Sub

mfg Gerd
supi!!
04.05.2006 00:17:34
gemba
Danke Gerd! Das ging ja schnell - selbst zu dieser Uhrzeit...
Tschuess gemba
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige