Beispiel:
In Zelle A3 wird die Zahl 30 (für 30 Minuten) eingegeben. Erscheinen soll 50%, denn 60 Minuten entsprechen 100%.
Das Ganze natürlich automatisch.
Vielen Dank für eure Unterstützung.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" And Target "" Then
Application.EnableEvents = False
Target = Target / 60
Target.Style = "Percent"
Application.EnableEvents = True
End If
End Sub
Option Explicit ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies *
'* 07.11.12 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/
Dim RaBereich As Range ' Variable für Bereich
Dim RaZelle As Range ' Variable für Zelle
Set RaBereich = Range("A3:A40") ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.EnableEvents = False
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
RaZelle = RaZelle / 60
RaZelle.Style = "Percent"
Next RaZelle
'ActiveSheet.protect ("Passwort")
Application.EnableEvents = True
End If
Set RaBereich = Nothing ' Variable leeren
End Sub
Gruß Hajo