Thema Datum  Von Nutzer Rating
Antwort
Rot Datum und Uhrzeit trennen
 06.06.2016 18:41:46 Chris
NotSolved
06.06.2016 20:31:35 Gast10862
NotSolved
06.06.2016 20:47:12 Gast48124
NotSolved
06.06.2016 21:25:53 Chris
NotSolved
07.06.2016 08:38:56 Gast66570
NotSolved
07.06.2016 16:42:59 Gast76076
Solved

Ansicht des Beitrags:
Von:
Chris		 Datum:
06.06.2016 18:41:46		 Views:
3943		 Rating:
     
Antwort:
  Ja
Thema:
Datum und Uhrzeit trennen

Hallo liebe Experten,

meine Frage wurde eig schon häufigt beschrieben, ich habe aber nach intensiver Suche noch keinen passenden Ansatz gefunden.

Problem:

In den Zellen der Spalte A stehen jeweils Datum und Uhrzeit zusammen in der Form DD.MM.YYYY hh:mm:ss.

Diese will ich nun trennen, wichtig dabei ist, dass in Spalte A nur das Datum und in Spalte B nur die Uhrzeit stehen darf.

Sprich es ist leider nicht mit einer Formatänderung getan :-(, da dort immernoch in der Excel beschriftungszeile die volle Form DD.MM.YYYY hh:mm:ss drin steht.

 

Die von mir versuchten Lösungsmöglichkeiten.

1te von mir versuchte Lösungsmöglichkeit war die Daten mithilfe von Text in Spalten zu trennen und einfach den Makro aufzunehmen. Dabei hat sich wurde leider immer aus z.B. 00:00:05 --> 12:00:05 und in die dritte Spalte C wurde Am geschrieben.

2te lösungsmöglichkeit ist dieser Makro

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub UhrzeitKopieren()
'Makro kopiert nur den Rechten Teil des Datums (Uhrzeit)
Application.ScreenUpdating = False
 
Sheets("Temperatur H57").Activate
 
'kopiert nur die Uhrzeit aus der Spalte A in Spalte B
Dim Ende As Long
Ende = Range("A:A").SpecialCells(xlCellTypeLastCell).Row
 
 
For i = 2 To Ende
 
Cells(i, 2) = Right(Cells(i, 1), 8)
 
Next i
'Uhrzeitspalte wird als hh:mm formatiert
 
Range(Cells(2, 2), Cells(ActiveSheet.Range("B999999").End(xlUp).Row, 2)).NumberFormat = "hh:mm"
 
 
'Uhrzeit wird aus Datumspalte rausgelöscht
Range(Cells(2, 1), Cells(ActiveSheet.Range("A999999").End(xlUp).Row, 1)).Select
Range(Cells(2, 1), Cells(ActiveSheet.Range("A999999").End(xlUp).Row, 1)).NumberFormat = "DD.MM.YYYY"
Dim Zelle As Range
For Each Zelle In Selection
  Zelle = Left(Zelle, Len(Zelle) - 9) ' Aus der Datumsspalte wird die Uhrzeit herausgelöscht
Next
 
For i = 2 To Ende
    Cells(i, 1) = Trim(Cells(i, 1))
    'Leerzeichen werden Rechts entfernt
Next i
 
 
End Sub

 

Problem bei diesem Makro ist, dass ein Leerzeichen hinter dem Datum steht was ich trotz trim nicht wegbekommen und das fast noch größere Problem ist, dass er unglaublich lange dauert.

 

Villeicht wisst ihr ja Tipps oder Lösungsvorschläge zu meine Möglichkeiten oder ganz neue Ansätze.

Danke schonmal im voraus

Gruß Chris

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datum und Uhrzeit trennen
 06.06.2016 18:41:46 Chris
NotSolved
06.06.2016 20:31:35 Gast10862
NotSolved
06.06.2016 20:47:12 Gast48124
NotSolved
06.06.2016 21:25:53 Chris
NotSolved
07.06.2016 08:38:56 Gast66570
NotSolved
07.06.2016 16:42:59 Gast76076
Solved