Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenkette in Öffnungszeiten umwandeln

Zahlenkette in Öffnungszeiten umwandeln
Michael
Hallo
Es betrifft Öffnungszeiten
Die Werte aus dem Feld „Soll“ werden mir aus der Datenbank geliefert und sollten in ein brauchbaren Format umgewandelt werden.
Hier gibt es jedoch 4 Unterschiede (siehe Tabelle unten). Überflüssige 0000 sollten entfernt werden.
Soll Ist
05202245000000000000000000000000 05:20 - 22:45
07001200123017000000000000000000 07:00 - 12:00 12:30 - 17:00
05301040120512501350190000000000 05:30 - 10:40 12:05 - 12:50 13:50 - 19:00
04300915103011501205135014052015 04:30 - 09:15 10:30 - 11:50 12:05 - 13:50 14:05 - 20:15
Ich probere das schon seit Tagen und komme auf keinen Grünen Zweig
Ich bin für jede Formel bzw. Vba dankbar
LG
Michael
doppelt, zu. owT
12.01.2011 09:25:39
Klaus
.
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 09:27:59
Rudi
Hallo,
deine Daten ab A2
B2: =WENN(TEIL($A2;(SPALTE(A1)-1)*8+1;8)="00000000";"";TEXT(--TEIL($A2;(SPALTE(A1)-1)*8+1;8);"00"":""00"" - ""00"":""00")) und nach rechts und unten kopieren.
Gruß
Rudi
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 09:52:06
Michael
Hallo Rudi
Das funktioniert irgendwie nicht (Was mache ich falsch)
A2 5202245000000000000000000000000 B2 00:00 - 00:05
A3 7001200123017000000000000000000 B3 00:00 - 00:07
A4 5301040120512500000000000000000 B4 00:00 - 00:05
A5 4300915103011500000000000000000 B5 00:00 - 00:04
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 09:55:12
Ingo
Probier mal diese funktion:
Function öffnungszeiten(str As String) As String
Dim str_open As String
Dim int_l As Integer
Dim bln_bindestrich
If Left(str, 2)  "00" Then str_open = Left(str, 2) & ":" & Mid(str, 3, 2)
bln_bindestrich = True
For int_l = 5 To Len(str) Step 4
If Mid(str, int_l, 2)  "00" Then
Select Case bln_bindestrich
Case True
str_open = str_open & "-" & Mid(str, int_l, 2) & ":" & Mid(str, int_l + 2,   _
_
2)
bln_bindestrich = Not bln_bindestrich
Case False
str_open = str_open & " " & Mid(str, int_l, 2) & ":" & Mid(str, int_l +   _
_
2, 2)
bln_bindestrich = Not bln_bindestrich
End Select
End If
Next int_l
End Function

mfG
Ingo Christiansen
Anzeige
Leerzeichen davor? owT
12.01.2011 10:08:45
Rudi
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 10:09:44
Reinhard
Hallo Michael,
die Formel ist in Ordnung. Hier als Vba-Variante: 
Sub Trenn()
Dim Zei As Long, Spa As Long, Pos As Integer
Range("B:E").ClearContents
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Spa = 2
For Pos = 1 To 25 Step 8
If Mid(Cells(Zei, 1), Pos, 8) = "00000000" Then Exit For
Cells(Zei, Spa) = Format(Mid(Cells(Zei, 1), Pos, 8), "00:00 - 00:00")
Spa = Spa + 1
Next Pos
Next Zei
Range("B:E").EntireColumn.AutoFit
End Sub

Gruß
Reinhard
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 09:53:25
Reinhard
Hallo Michael, 
Option Explicit
Sub Trenn()
Dim Zei As Long, Spa As Long, Pos As Integer
Range("B:AF").ClearContents
Range("B:AF").NumberFormat = "00"
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Spa = 2
For Pos = 1 To 29 Step 4
If Mid(Cells(Zei, 1), Pos, 4) = "0000" Then Exit For
Cells(Zei, Spa) = Format(Mid(Cells(Zei, 1), Pos, 2), "00")
Cells(Zei, Spa + 1) = "-"
Cells(Zei, Spa + 2) = Format(Mid(Cells(Zei, 1), Pos + 2, 2), "00")
Spa = Spa + 4
Next Pos
Next Zei
Range("B:AF").EntireColumn.AutoFit
End Sub

Gruß
Reinhard
Anzeige
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 10:44:21
Michael
Danke Rudi Ingo und Reinhard für eure Hilfe
Ich bin begeistert. Nur funktioniert es noch nicht richtig
So sieht die Ausgabe es bei mir aus
5202245000000000000000000000000 05-20 22-45 E+-30 - - - - -
7001200123017000000000000000000 07-00 12-00 12-30 17-E+ 30- - - -
5301040120512500000000000000000 05-30 10-40 12-05 12-5E 03-00 - - -
4300915103011500000000000000000 04-30 09-15 10-30 11-5E 03-00 - - -
und so sollte die Uhrzeit aber erscheinen (egal ob mit Schönheitsfehler - - - )
05202245000000000000000000000000 05:20 - 22:45
07001200123017000000000000000000 07:00 - 12:00 12:30 - 17:00 (ab da scheitert es)
05301040120512501350190000000000 05:30 - 10:40 12:05 - 12:50 13:50 - 19:00
04300915103011501205135014052015 04:30 - 09:15 10:30 - 11:50 12:05 - 13:50 14:05 - 20:15
Wenns zu kompliziert wird, dann sage ich trotzdem danke
LG
Michael
Anzeige
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 10:47:38
Rudi
Hallo,
lade doch mal ein paar Original-Daten hoch.
Gruß
Rudi
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 11:07:51
Klaus
Hallo Michael,
Rudis erste Formel funktioniert. Entferne die Überflüssigen Leerzeichen aus der Ursprungszahl (mit GLÄTTEN zB.) und formatiere die Zelle als Text oder mit führendem Hochkomma, um zu verhindern dass die erste Null verschluckt wird.
statt "07001200123017000000000000000000        "
lieber "'07001200123017000000000000000000"
Grüße,
Klaus M.vdT.
Anzeige
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 12:19:48
Michael
Danke Klaus
ich bin froh dass ihr euch Gedanken und euch für die Lösung Mühe macht. Mein Problem ist. Die Zahlen bekomme ich von einer Access Datenbank und die Werte werden so in Excel exportiert. Wenn ich ein Hochkomma vorsetzen muss, wird das zu aufwendig.
LG
Michi
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 14:16:10
Klaus
Hi Michi,
nicht dass man das Hochkomma auch per Formel davor setzen könnte .... aber macht ja nix, wenn Rudi's Lösung nun bei dir läuft.
Grüße,
Klaus M.vdT.
AW: Zahlenkette in Öffnungszeiten umwandeln
12.01.2011 12:58:48
Rudi
Hallo,
meine Formel funktioniert mit deinen Daten.
Gruß
Rudi
Danke
12.01.2011 13:10:36
Michael
Hallo Rudi und der ganze Rest
Wenn Du nicht geschrieben hättest "meine Formel funktioniert mit deinen Daten" würde ich noch immer tüfteln. Ich habe es gerade probiert und es funktioniert. Ich habe zwar keine Ahnung was ich die ganze Zeit falsch gemacht habe ABER ES FUNKTIONIERT DANKE DANKE DANKE
Lg
Michael
Anzeige

365 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
2
3
3
2
3
21
6
4
14
3
1
6
5
15
3
11
2
4
1
5
16
9