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

Spalten markieren und String Datum ../../..../

Spalten markieren und String Datum ../../..../
29.06.2003 12:31:27
Volker
Guten Tag

Hoffe auf Hilfe bei folgendem Problem. Suche eine Möglichkeit in Excel eine Spalte zu markieren und mittels Command - Button diesen String zu teilen - über Coding.
Es kann sich um mehrere tausend Datensätze handeln.

Beispiel:02.02.2003

Es sollte rechts neben der Spalte z.B B drei neue Spalten eingefügt werden und in diese dann jeweil der Teilstring . C = "02" D = "02" E = "2003" in Zahlenformat.

Ist sowas möglich....

Vielen Dank für die Hilfe

Volker

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten markieren und String Datum ../../..../
29.06.2003 12:56:57
PeterW
Hallo Volker,

handelt es sich um Strings oder um Daten?

Gruß
Peter


AW: Spalten markieren und String Datum ../../..../
29.06.2003 13:00:36
Volker
Hallo Peter

Danke fürs melden.
Es handelt sich um Datumsfelder ....die, da muss ich jetzt nachsehen als Text rüberkommen.

Volker


AW: Spalten markieren und String Datum ../../..../
29.06.2003 13:07:02
PeterW
Hallo Volker,

hier hast du beide Varianten.

Gruß
Peter

Sub aufteilen()
Dim count As Long
Dim lgletzte As Long
lgletzte = Range("A65536").End(xlUp).Row
Columns("B:D").Insert

For count = 1 To lgletzte
'für echte Daten
'Cells(count, 2) = Day(Cells(count, 1))
'Cells(count, 3) = Month(Cells(count, 1))
'Cells(count, 4) = Year(Cells(count, 1))

'für Text
Cells(count, 2) = Left(Cells(count, 1), 2)
Cells(count, 3) = Mid(Cells(count, 1), 4, 2)
Cells(count, 4) = Right(Cells(count, 1), 4)
Next
Columns("B:D").NumberFormat = "General"

End Sub


Anzeige
AW: Spalten markieren und String Datum ../../..../
29.06.2003 13:14:41
Volker
Hallo Peter

Danke war wieder mal zu faul.Jetzt wo ich die Lösung sehe scheint es logisch,
ist immer so.
Herzlichen Dank.

Wünsche noch einen schönen Sonntag.

Volker


300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige