VBA - Text in trennen | HERBERS Excel Forum

Sub Uhrzeiten_loeschen() Dim Zeile As Long For Zeile = 1 To 5 'Text zerlegen, Trennzeichen ist ein Leerzeichen Semikolon Textteile = Split(Cells(Zeile, 1), " ") 'schreiben Cells(Zeile, 1) = Textteile(y) Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Uhrzeiten_Entfernen() Range("F1:F30").Select Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _ ConsecutiveDelimiter:=True, Space:=True, FieldInfo _ :=Array(Array(0, 4), Array(1, 9)) End Sub

…Roland,
Text in Spalten trennt ohnehin nach .Text, also nach dem Leerzeichen. Beim 1.Mal klappt dann auch alles, denn du hast wohl für die 2.Spalte überspringen gewählt, was dann bei dt Ansicht auch iO ist. Mit dem Neueinlesen wird dann alles US-formatig, weil VBA idR nur Englisch spricht (was auch Daniel richtig erwähnt). Dabei können interessante Effekte entstehen, nämlich vorübergehende US-Format-Darstellungen (bei älteren PCs noch zu beobachten). Da AM/PM aber eine 3.Spalte beanspruchen würde, weil es nach US-Standard ebenfalls durch Leerzeichen vom Rest getrennt ist, diese Spalte aber beim Aufzeichnen gar nicht angeboten wird, bleibt sie erhalten und wird nun zur 2. Damit kann dann dort natürlich auch keine Umwandlung in dt Format mehr erfolgen und dieser Text bleibt übrig.
Mit kleinem Trick ist es unter Verwendung von VBA auch möglich, bspw Wahrheitswerte in Englisch zu erhalten. Dazu müssen sie nur vor Ausgabe zu Text gemacht wdn. Xl wandelt dann nicht mehr in dt WAHR/FALSCH. Dieser Effekt kann auch sehr nützlich sein, wenn man Bestimmtes nur übersetzen will, zB Gültigkeitsregeln auf FmlBasis, die nur lokal (dt) vorliegen und Funktionen enthalten.
Luc :-?

Hi
wenn du Text-in-Spalten anwendest passiert folgendes:
1. in der Excelzelle liegt der Wert als Dezimalzahl vor: 41738,3480902778
2. Text-In-Spalten arbeitet mit Texten und muss daher diese Datumszahl in einen Datumstext wandeln, um ihn trennen zu können.
Excel macht das in "deutsch": 09.04.2014 08:21
VBA jedoch auf "englisch": 04.09.2014 08:21 AM
3. beim Auftrennen am Leerzeichen entstehen
in Excel: 2 Spalten
in VBA: 3 Spalten, weil zwischen Uhrzeit und AM auch nochmal ein Leerzeichen steht.
4. wenn die Texte wieder in die Zellen zurückgeschrieben werden, wird versucht diese in ein Datum oder Zahl zu wandeln, wenn der Text so aussieht.
Excel wendet hier standardmäßig die Deutschen regeln an, dh Tag.Monat.Jahr
VBA im Standardfall die englischen, dh Monat.Tag.Jahr.
das bedeutet für das Makro:
1. du musst die 3. Spalte berücksichtigen.
2. für das Datum musst du entweder angeben, dass das Datum in MTJ vorliegt oder du belässt es bei den Standardwerten, weil MTJ für VBA der Standard ist.

    Range("A1:A10").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True, FieldInfo _
:=Array(Array(0, 1), Array(1, 9), Array(2, 9))

oder

   Range("A1:A10").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True, FieldInfo _
:=Array(Array(0, 3), Array(1, 9), Array(2, 9))

Gruß Daniel

Sub Uhrzeiten_loeschen() ' Sheets("Tabelle3").Select Dim Zeile As Long For Zeile = 1 To 5 'Text zerlegen, Trennzeichen ist ein Leerzeichen Semikolon Textteile = Left(Cells(Zeile, 1), InStr(Cells(Zeile, 1), " ")) 'schreiben Cells(Zeile, 1) = Textteile Next End Sub

Beliebteste Forumthreads (12 Monate)

VBA - Text in trennen

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread