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