Das Archiv des Excel-Forums

Datum aufteilen in einzele Zellen per VBA

Bild

Betrifft: Datum aufteilen in einzele Zellen per VBA
von: edie

Geschrieben am: 09.10.2003 16:17:30

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
Bild


Betrifft: AW: Datum aufteilen in einzele Zellen per VBA
von: Karl-Otto Reimann
Geschrieben am: 09.10.2003 16:49:31

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


Bild


Betrifft: AW: Datum aufteilen in einzele Zellen per VBA
von: MikeS
Geschrieben am: 09.10.2003 17:38:27

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


 Bild

Excel-Beispiele zum Thema " Datum aufteilen in einzele Zellen per VBA"

Zeichenfolge aufteilen download In eine InputBox eingegebene Daten in Elemente aufteilen download
Text aus Textbox in Zellen aufteilen download Telefonnummern nach Vorwahl und Anschluß aufteilen download
Hyperlink aufteilen download Zeichenfolge in Ziffern und Buchstaben aufteilen download
Zelleingaben in Gruppen von 5 Zeichen aufteilen download Aufteilen der Arbeitsblätter in neue Arbeitsmappen download
Aufteilen einer Tabelle auf mehrere Arbeitsblätter download Tabelle nach Gruppen aufteilen download
Namen nach dem Zufallsprinzip in variable Gruppen aufteilen download Aufteilen eines Strings mit Zeilenumbrüchen download
Tabelle in neue Blätter nach Gruppen aufteilen. download Text gemäß Zeilenumbrüchen in Einzelzellen aufteilen download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Zeitspann in Zeitgruppen aufteilen download
Zeichenfolge nach Zeilenumbrüchen aufteilen download Aufteilen mehrzeiliger Zellinhalte in UserForm-ListBox download
Formelbereich in Einzelelemente aufschlüsseln download Makros in Abhängigkeit vom Zellennamen aufrufen download
Zellen auf Kommentar überprüfen download Spalten bedingt summieren und Zellen formatieren download
Zellen vergleichen und markieren download Zählen formatierter Zellen download
Daten aus Textdatei gezielt in Zellen übernehmen download Zellen verbinden und trennen download
Zellen bei Minuswerten schraffieren download Zeilen oberhalb der markierten Zellen einfügen download
Drei Zellen rechts der aktiven Zelle markieren download Zellen vom Druck ausschließen download
Zellenwert als Autofilter-Kriterienwert download Nur Zellen mit Inhalt in ComboBox listen download
Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download Zellen nach Schriftfarbe summieren download
Füllen aller leeren Zellen mit einem Platzhalter download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Anzahl der gelb hinterlegten Zellen ermitteln download
Editieren von Zellen durch DoppelKlick verhindern download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download Prüfung, ob Parallelzellen übereinstimmen download
Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Wert aus A1 in mehrere Zellen übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download
Nur sichtbare Zellen addieren download Zellinhalte vor dem Verbinden der Zellen zusammenfassen download
Blatt auswählen und Zellen nacheinander drucken download Leere und Zellen mit 0 aus-/einblenden download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download
Prüfung, welche Zellen nach Öffnen verändert wurden download Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeilenhöhe bei verbundenen Zellen anpassen download
Einfügen von Zeilen vor und nach Zellen mit Fettdruck download Bei Zelleingabe andere Zellen füllen download
Dialogaufruf, wenn zwei Zellen Werte enthalten download Gültigkeitsliste ohne Lerrzellen download
Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download Zellen verbinden, ohne dass Werte verlorengehen download