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

Datum aufteilen in einzele Zellen per VBA

Forumthread: Datum aufteilen in einzele Zellen per VBA

Datum aufteilen in einzele Zellen per VBA
09.10.2003 16:17:30
edie
Hallo zusammen,

in der Tabelle1 in Spalte C wird fortlaufend das Datum
im Format TT.MM.YY z. B. 01.12.03 eingetragen.

In der Tabelle2 soll das Datum ab Zeile 10 in die erste leere
Zelle kopiert werden.

Das Datum soll aufgeteilt werden:
in Spalte D 0, Spalte E 1, Spalte F 1, Spalte G 2, Spalte H 0
und in der Spalte I 3 stehen.

Kann mir jemand dabei helfen?

Vielen Dank im Voraus.

Grüße
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum aufteilen in einzele Zellen per VBA
09.10.2003 16:49:31
Karl-Otto Reimann
Hallo Edie
Der Funktionsmanager bietet unter der Rubrik "Text"
z.B.: =LINKS(), =RECHTS(), =TEIL(), natürlich immer
unter der Voraussetzung, daß der Zellinhalt gleich
formatiert ist.
mfG KO
AW: Datum aufteilen in einzele Zellen per VBA
09.10.2003 17:38:27
MikeS
Hi Eddie,

meine Lösung per VBA:



'IN EIN MODUL 

Option Explicit

Sub DatumAufteilen()
   Dim wsQuelle As Worksheet, wsZiel As Worksheet
   Dim iStartzeile%, lEndzeile&, lZähler&
   Dim Datum$, Tag$, Monat$, Jahr$
   Set wsQuelle = Worksheets("Tabelle1")
   Set wsZiel = Worksheets("Tabelle2")
   Application.ScreenUpdating = False
   
   wsQuelle.Activate 'Tabelle1 aktivieren
   iStartzeile = 2 '1.Datum steht in C2
   lEndzeile = Cells(2, 3).End(xlDown).Row 'letzte Datumszelle
   
   For lZähler = iStartzeile To lEndzeile
      
      Datum = Format(Cells(lZähler, 3), "dd.mm.yy")
      Tag = Left(Datum, 2) 'Tag auslesen
      Monat = Mid(Datum, 4, 2) 'Monat auslesen
      Jahr = Right(Datum, 2) 'Jahr auslesen
      
      wsZiel.Activate
      Cells(lZähler + 8, 4) = Left(Tag, 1)
      Cells(lZähler + 8, 5) = Right(Tag, 1)
      Cells(lZähler + 8, 6) = Left(Monat, 1)
      Cells(lZähler + 8, 7) = Right(Monat, 1)
      Cells(lZähler + 8, 8) = Left(Jahr, 1)
      Cells(lZähler + 8, 9) = Right(Jahr, 1)
      
      wsQuelle.Activate
   
   Next lZähler
   
   
   Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1


Ciao Mike
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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