Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige