Zahlen umwandeln und Text zusammenfügen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Daniel!
Probier mal!

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub ChangeFormat()
Dim lngLast As Long
Dim rng As Range
Dim dblTemp As Double
Dim lngCalculation As Long

On Error GoTo ErrExit

With Application
  .ScreenUpdating = False
  .EnableEvents = False
  .DisplayAlerts = False
  lngCalculation = .Calculation
  .Calculation = xlCalculationManual
  .Cursor = xlWait
End With

lngLast = Cells(Rows.Count, 1).End(xlUp).Row

For Each rng In Range("A1:A" & lngLast)
  If Len(rng) > 0 Then
    If IsNumeric(rng) Then
      dblTemp = DateSerial(Left(rng, 4), Mid(rng, 5, 2), Right(rng, 2))
      dblTemp = dblTemp + TimeSerial(0, Clng(rng.Offset(0, 1)), 0)
      rng = CDate(dblTemp)
      rng.NumberFormat = "yyyy/mm/dd hh:mm"
    End If
  End If
Next

Columns(1).AutoFit
Columns(2).Delete

ErrExit:

If Err.Number > 0 Then
  MsgBox Err.Number & vbLf & Err.Description, , "Fehler"
  Err.Clear
End If

With Application
  .ScreenUpdating = True
  .EnableEvents = True
  .DisplayAlerts = True
  .Calculation = lngCalculation
  .Cursor = xlDefault
End With

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Hallo Daniel;
wäre das nicht einfacher für dich;
Beispiel;

Leer

	A	B	C	D	E	F	G	H
1	Das sind die Rohdaten
2			als Datum	als Text
3	20050101	0	01.01.2005 00:00	2005.01.01 00:00	138,95	139,03	138,83	138,98
4	20050101	5	01.01.2005 00:05	2005.01.01 00:05	138,83	139	138,78	138,85
5	20050101	10	01.01.2005 00:10	2005.01.01 00:10	138,81	139	138,76	138,95
6	20050101	15	01.01.2005 00:15	2005.01.01 00:15	138,91	139	138,79	138,94
7	20050101	20	01.01.2005 00:20	2005.01.01 00:20	138,91	139,09	138,83	138,98
8	20050101	25	01.01.2005 00:25	2005.01.01 00:25	138,94	139,08	138,9	139,02
9	20050101	30	01.01.2005 00:30	2005.01.01 00:30	139	139,11	138,9	139,01
10	20050101	35	01.01.2005 00:35	2005.01.01 00:35	138,94	139,09	138,84	138,95
11	20050101	40	01.01.2005 00:40	2005.01.01 00:40	138,86	139	138,81	138,92
12	20050101	45	01.01.2005 00:45	2005.01.01 00:45	138,89	139,08	138,86	139,02
13	20050101	50	01.01.2005 00:50	2005.01.01 00:50	138,97	139,22	138,94	139,04
14	20050101	55	01.01.2005 00:55	2005.01.01 00:55	138,97	139,18	138,97	139,1
15	20050101	100	01.01.2005 01:00	2005.01.01 01:00	139,02	139,12	139,02	139,12
16	20050103	105	03.01.2005 01:05	2005.01.03 01:05	139,14	139,25	139,07	139,24
17	20050103	110	03.01.2005 01:10	2005.01.03 01:10	139,13	139,29	139,09	139,15
18	20050103	115	03.01.2005 01:15	2005.01.03 01:15	139,07	139,22	139,07	139,16
19	20050103	120	03.01.2005 01:20	2005.01.03 01:20	139,1	139,22	139,06	139,17
20	20050103	125	03.01.2005 01:25	2005.01.03 01:25	139,08	139,2	139,02	139,19
21	20050103	130	03.01.2005 01:30	2005.01.03 01:30	139,13	139,25	139,04	139,22
22	20050103	135	03.01.2005 01:35	2005.01.03 01:35	139,11	139,24	139,06	139,24
23	20050103	200	03.01.2005 02:00	2005.01.03 02:00
24			Formeln nach unten
25			kopieren

Formeln der Tabelle

C3 : =DATUM(LINKS(A3;4);TEIL(A3;5;2);RECHTS(A3;2))+WENN(B3>60;(LINKS(B3;LÄNGE(B3)-2)*60+RECHTS(B3;2))/1440;B3/1440)
D3 : =TEXT((DATUM(LINKS(A3;4);TEIL(A3;5;2);RECHTS(A3;2))+WENN(B3>60;(LINKS(B3;LÄNGE(B3)-2)*60+RECHTS(B3;2))/1440;B3/1440));"JJJJ.MM.TT hh:mm")

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
PS: wenn du mit einer der formeln das Datum geändert hast kannst du ja mit Bearbeiten-Kopieren-Inhalte einfügen-Werte die Formel wieder entfernen so das du nur die Werte in der Spalte hast,danach kannst du ja die Saplte A und B löschen.
gruß hermann

Beliebteste Forumthreads (12 Monate)

Zahlen umwandeln und Text zusammenfügen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen umwandeln und Text zusammenfügen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread