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
Öffne Excel und erstelle ein neues Arbeitsblatt.
Gib die Zeit in Minuten in die Zelle A3 ein (z.B. 30 für 30 Minuten).
Füge den VBA-Code in den entsprechenden Bereich ein:
ALT + F11
, um den VBA-Editor zu öffnen.Einfügen
und wähle Modul
.Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
Dim RaZelle As Range
Set RaBereich = Range("A3:A40")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.EnableEvents = False
For Each RaZelle In RaBereich
RaZelle = RaZelle / 60
RaZelle.Style = "Percent"
Next RaZelle
Application.EnableEvents = True
End If
Set RaBereich = Nothing
End Sub
Schließe den VBA-Editor und gehe zurück zu Deinem Arbeitsblatt.
Teste die Eingabe: Gib eine Zahl (z.B. 30) in Zelle A3 ein. Die Zahl sollte automatisch in Prozent umgerechnet werden (in diesem Fall 50%).
Fehlermeldung: "Fehler beim Kompilieren: Syntaxfehler"
Das Makro läuft nicht
Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch eine einfache Excel-Formel nutzen:
Gib die Minuten in Zelle A3 ein.
In Zelle B3 kannst Du folgende Formel verwenden, um die Minuten in Prozent darzustellen:
=A3/60
Formatiere die Zelle B3 als Prozent, um das Ergebnis korrekt darzustellen.
Beispiel 1: Arbeitsstunden in Prozent umrechnen
Beispiel 2: Zeit in Minuten Tabelle
1. Wie kann ich Minuten in Prozent umwandeln, ohne VBA zu verwenden?
Du kannst einfach eine Formel wie =A3/60
verwenden und die Zelle als Prozent formatieren.
2. Was mache ich, wenn das Makro nicht funktioniert? Überprüfe, ob die Makros in Excel aktiviert sind und dass der Code im richtigen Modul eingefügt wurde.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen