Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2025 17:39:22
keine Daten Börsenhistorie für den 18.07.2025
19.07.2025 15:24:27
VBA Click-Routine Option-Button
19.07.2025 14:48:31
wenn Funktion mit mehreren Bedingungen
19.07.2025 07:22:38
Datei hochladen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganze Zahl bei Eingabe in Std:Min umwandeln

Forumthread: Ganze Zahl bei Eingabe in Std:Min umwandeln

Ganze Zahl bei Eingabe in Std:Min umwandeln
Lutz
Liebe Ex(cel)perten,
Zur Vereinfachung für die häufige Eingabe von Zeitangaben in Dienstplänen suche ich eine Lösung für die Umwandlung von ein- bis vierstelligen Zahlen in Stunden:Minuten, z. B.
9 > 9:00
12 > 12:00
915 > 9:15
2045 > 20:45
Bei meiner Recherche habe ich bislang nur Teillösungen gefunden. Folgendes Makro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 1 And Len(Target.Value)
kommt meinem Ziel am nächsten. Aufgrund bescheidener VBA-Kenntnisse kann ich den Code jedoch allein nicht entsprechend anpassen.
Kann mir jemand dabei helfen oder hat eine andere zündende Idee?
Vielen Dank im Voraus!
Lutz
Anzeige
AW: Ganze Zahl bei Eingabe in Std:Min umwandeln
20.11.2011 11:58:40
Hajo_Zi
Hallo Lutz,
die für mich einfachste Art zur Zeiteingabe ist.
Stelle bei Autokorrektur ein Ersetzen ,, durch : dann kannst Du Zeiten recht schnell mit der Num-Lock-Tastatur eingeben.
http://hajo-excel.de/chCounter3/getfile.php?id=70

Anzeige
AW: Ganze Zahl bei Eingabe in Std:Min umwandeln
20.11.2011 12:58:47
Lutz
Hallo Hajo,
vielen Dank, dass Du Dich auch dieser Problemstellung angenommen hast :-)
An die Autokorrekturmöglichkeit hatte ich auch gedacht. Allerdings wollte ich die Eingabe gern so weit wie möglich vereinfachen.
Die Zeiterfassung erfolgt im Zeitraum 09:00 bis 23:00 Uhr und betrifft vorwiegend volle Stunden. Daher hatte ich gehofft, dass eine automatische Ergänzung ganzer Zahlen möglich wäre (Eingabe 12; Umwandlung 12:00).
Dein Code in der Mappe "Uhrzeit überarbeitet" wandelt drei- und vierstellige Zahlen einwandfrei in das gewünschte Format um (danke dafür!). Zweistellige Zahlen werden jedoch leider als Minuten interpretiert (12 = 00:12). Wäre es möglich, diese Bedingung in dem Code noch zu berücksichtigen? Das wäre toll.
Viele Grüße
Lutz
Anzeige
AW: Ganze Zahl bei Eingabe in Std:Min umwandeln
20.11.2011 13:04:05
Hajo_Zi
Hallo Lutz,
den Code hast Du Dir nicht angesehen? Es steht doch schon drin. 

Else
' Stunden haben das Primat
InS = .Value
InM = 0
' Minuten haben das Primat
'                            InS = 0
'                            InM = .Value
Gruß Hajo
Anzeige
AW: Ganze Zahl bei Eingabe in Std:Min umwandeln
20.11.2011 13:09:47
Lutz
Hallo Hajo,
sorry für meine oberflächliche Betrachtung ... Problem vollständig gelöst - perfekt!
Danke und viele Grüße!
Lutz
vielleicht einfacher
20.11.2011 13:18:26
Erich
Hi Lutz,
probier mal das hier: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iStd As Integer, iMin As Integer
If Not Intersect(Target, Columns(1)) Is Nothing Then
If IsNumeric(Target.Value) Then
Select Case Len(CStr(Target.Value))
Case 1, 2
iStd = Target.Value
Case 3, 4
iStd = Fix(Target.Value / 100)
iMin = Target.Value - 100 * iStd
Case Else
iStd = -1         ' keine Ausgabe
End Select
If iStd >= 0 And iStd = 0 And iMin
Passt das?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: vielleicht einfacher
20.11.2011 13:32:30
Lutz
Hallo Erich,
super! Dein Code funktioniert in der A-Spalte einwandfrei. Die Zellen müssen nur auf hh:mm formatiert sein.
Kleine Frage: Wo erweitere ich im Code die angesprochenen Spalten?
Viele Grüße
Lutz
AW: vielleicht einfacher
20.11.2011 13:34:46
Hajo_Zi
Hallo Lutz,
Du beachtest auch das bei dem Code nicht mehre Zellen mit einmal ausgefüllt werden dürfen?
Gruß Hajo
Anzeige
AW: vielleicht einfacher
20.11.2011 13:44:41
Lutz
Hallo Hajo,
*seufz* habe ich übersehen.
Du hast natürlich absolut Recht. Dein Code erlaubt auch das gleichzeitige Füllen mehrerer Zellen.
Künftig achte ich darauf, dass Du sogar mehr Bedingungen berücksichtigst als gewünscht :-)))
Viiiiiiiiiiiiiiele Grüße
Lutz
mehrere Spalten, auch mehrere Zellen
20.11.2011 15:56:30
Erich
Hi Lutz,
so, nun hat mein Code auch gelernt, mehrere Eingaben auf einmal zu verarbeiten. :-)
Am Anfang sind drei Beispiele für Spaltenfestlegungen. Reichen die dir aus?
(Es müssen ja auch keine ganzen Spalten sein - siehe in Hajos Code.)
Probier mal: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBer As Range, rngC As Range, iStd As Integer, iMin As Integer
'   Set rngBer = Intersect(Target, Columns(1))                     ' Spalte A
'   Set rngBer = Intersect(Target, Range("B:D"))                   ' Spalten B,C,D
'   Set rngBer = Intersect(Target, Range("B2:D99"))                ' Bereich B2:D99
Set rngBer = Intersect(Target, Union(Columns(2), Columns(4)))  ' Spalten B,D
If Not rngBer Is Nothing Then
Application.EnableEvents = False
For Each rngC In rngBer
If IsNumeric(rngC) Then
Select Case Len(CStr(rngC.Value))
Case 1, 2:  iStd = rngC.Value
Case 3, 4
iStd = Fix(rngC.Value / 100)
iMin = rngC.Value - 100 * iStd
Case Else:  iStd = -1         ' keine Ausgabe
End Select
If iStd >= 0 And iStd = 0 And iMin
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: mehrere Spalten, auch mehrere Zellen
20.11.2011 17:51:17
Lutz
Hallo Erich,
nun lässt Dein Code keine Wünsche offen :-)
Ganz herzliche Grüße

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Anzeige
Buchstaben als Ergebnis einer Wenn- Funktion
Mario

Grüßt euch,
ich rätsel gerade, wie sich auch Buchstaben als Ergebnis einer Wenn-Funktion übernehmen lassen.
Meine Formel:
=WENN(Maße!B11=1;Maße!K6)+WENN(Maße!B11=2;Maße!K7)+WENN(Maße!B11=3;Maße!K8)+WENN(Maße!B11=4;Maße!K9) +WENN(Maße!B11=5;Maße!K10)
Stehen in K6, K7,...
21.11.2008 22:21:55
Thread-ID: 1026853
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
VERKETTEN-String in Zahl umwandeln
Steffi

Hi,
bräuchte mal Hilfe:
Ich möchte eine Liste von Zahlen mit WENN-Formeln prüfen. Die Bedingungen mit den jeweiligen Operatoren stehen in anderen Zellen, z.B. "<=2". Ich hab es mit der VERKETTEN-Funktion versucht, aber anscheinend wird das Ergebnis als String interpretiert:
A1: 1...
29.01.2009 17:22:16
Thread-ID: 1045101
5 Beiträge
Anzeige
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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