Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeit in Prozent umwandeln

Zeit in Prozent umwandeln
28.01.2014 15:05:19
Stefan
Ich möchte Zeiten (in Minuten angegeben) in Prozent anzeigen lassen.
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.

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeit in Prozent umwandeln
28.01.2014 15:17:55
Hajo_Zi
folgenden Code unter die Tabelle.
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

Anzeige
AW: Zeit in Prozent umwandeln
29.01.2014 12:07:27
Stefan
Hallo Hajo,
danke. Ich benötige das Ganze für den Bereich A3 bis A40 -hätte ich gleich erwähnen sollen.
Danke und Gruß
Stefan

AW: Zeit in Prozent umwandeln
29.01.2014 12:30:55
Hajo_Zi
Hallo Stefan,
die Lösung wird für das geschrieben was im Beitrag steht.
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

Anzeige
AW: Zeit in Prozent umwandeln
03.02.2014 14:09:22
Stefan
Hallo Hajo,
das Makro läuft nicht. Habe es so wie es ist ins Excel kopiert.
Was muss ich noch anpassen?

AW: Zeit in Prozent umwandeln
03.02.2014 17:08:51
Hajo_Zi
nichts, Du hast es schon unter der Tabelle angeordnet, wie das alte?
Gruß Hajo

Anzeige
AW: Zeit in Prozent umwandeln
04.02.2014 14:12:15
Stefan
Ja, hatte exakt so eingetragen, wie Du es hier vorgelegt hast und bekomme folgende Fehlermeldung, wenn ich z.B. die Zahl 30 in A3 eintrage: Fehler beim Kompilieren: Syntaxfehler

AW: Zeit in Prozent umwandeln
29.01.2014 16:50:52
Stefan
Hallo Hajo,
ich benötige das Ganze für A3 bis A40 -hätte ich gleich erwähnen sollen.
Danke
Stefan

Anzeige
AW: Zeit in Prozent umwandeln
03.02.2014 13:51:58
Stefan
Hallo Hajo,
ich benötige das Ganze für den Bereich A3 bis A40 -hätte ich gleich dazu sagen sollen.
Danke und Gruß
Stefan
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeit in Prozent umwandeln


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein neues Arbeitsblatt.

  2. Gib die Zeit in Minuten in die Zelle A3 ein (z.B. 30 für 30 Minuten).

  3. Füge den VBA-Code in den entsprechenden Bereich ein:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke auf Einfügen und wähle Modul.
    • Kopiere und füge den folgenden Code in das Modul ein:
    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
  4. Schließe den VBA-Editor und gehe zurück zu Deinem Arbeitsblatt.

  5. 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%).


Häufige Fehler und Lösungen

  • Fehlermeldung: "Fehler beim Kompilieren: Syntaxfehler"

    • Stelle sicher, dass der Code exakt so wie angegeben eingefügt wurde. Überprüfe auf fehlende oder falsche Zeichen.
  • Das Makro läuft nicht

    • Vergewissere Dich, dass Du den Code in das richtige Modul eingefügt hast und dass die Makros in Excel aktiviert sind.

Alternative Methoden

Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch eine einfache Excel-Formel nutzen:

  1. Gib die Minuten in Zelle A3 ein.

  2. In Zelle B3 kannst Du folgende Formel verwenden, um die Minuten in Prozent darzustellen:

    =A3/60
  3. Formatiere die Zelle B3 als Prozent, um das Ergebnis korrekt darzustellen.


Praktische Beispiele

  • Beispiel 1: Arbeitsstunden in Prozent umrechnen

    • Wenn Du 120 Minuten (2 Stunden) hast, gib 120 in Zelle A3 ein. Das Ergebnis in Prozent wäre 100%.
  • Beispiel 2: Zeit in Minuten Tabelle

    • Erstelle eine Tabelle, in der Du verschiedene Zeiten in Minuten eingibst, und verwende den VBA-Code oder die Excel-Formel, um die Prozentwerte automatisch zu berechnen.

Tipps für Profis

  • Mehrere Zeilen automatisiert bearbeiten: Du kannst den VBA-Code anpassen, um ihn auf größere Bereiche anzuwenden.
  • Prozentzeichen entfernen: Wenn Du das Prozentzeichen nicht angezeigt haben möchtest, kannst Du die Zellen als "Zahl" formatieren.
  • Excel-Prozentformeln: Nutze die Excel-Prozentformeln, um komplexe Berechnungen wie prozentuale Gewichtungen zu erstellen.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige