Text in Spalte per Makro

Tobias · 2015-01-09T13:01:10+00:00

Hallo, ich habe ein Problem, über das ich eine ganze Menge gelesen habe, jedoch trotzdem nicht zur Lösung komme da ich mich mit Makros nicht auskenne. Ich habe eine Tabelle kopiert und benötige von einer Spalte nur einen gewissen Teil. Ist an sich per "Text in Spalten" kein Problem. Ich suche jedoch eine Makro-Lösung. Die Zellen sind in folgendem Format : 08.01.2014 15:04 Zwischen dem Datum un der Uhrzeit befindet sich ein Leerzeichen. Ich benötige jedoch nur das Datum. Ist für euch bestimmt eine leichte Übung, ich jedoch bin am verzweifeln. Danke & Gruß

Hi,
du hast recht, Text-In-Spalten formatiert die Spalte A um. Lösung: einfach im Makro zurück formatieren.

Sub TextSpaltenMakro()
Const AbZeile As Long = 3
Const inSpalte As Long = 1
Dim bisZeile As Long
With ActiveSheet
bisZeile = .Cells(.Rows.Count, inSpalte).End(xlUp).Row
.Range(.Cells(AbZeile, inSpalte), .Cells(bisZeile, inSpalte)).TextToColumns Destination:=. _
Range("A" & AbZeile), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
.Range(.Cells(AbZeile, inSpalte), .Cells(bisZeile, inSpalte)).NumberFormat = "dd/mm/"
End With
End Sub

Geht auch ganz ohne VBA!
Ab B3 die Formel
=A3-DATUM(JAHR(A3);MONAT(A3);TAG(A3))
runter kopieren. Spalte A als Datum "TT.MM" formatieren, Spalte B als Uhrzeit "hh:mm".
Grüße,
Klaus M.vdT.

Tobias, ein bisschen selber ausprobieren ist erlaubt. Der Computer explodiert schon nicht!

Sub TextSpaltenMakro()
Const AbZeile As Long = 3
Const inSpalte As Long = 2
Dim bisZeile As Long
With ActiveSheet
bisZeile = .Cells(.Rows.Count, inSpalte).End(xlUp).Row
.Range(.Cells(AbZeile, inSpalte), .Cells(bisZeile, inSpalte)).TextToColumns Destination:=.  _
_
Range("B" & AbZeile), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
.Range(.Cells(AbZeile, inSpalte), .Cells(bisZeile, inSpalte)).NumberFormat = "dd/mm/yyyy"
End With
End Sub

Ist ziemlich offensichtlich, wenn man es so vor sich sieht, oder?
Grüße,
Klaus M.vdT.

Forumthread: Text in Spalte per Makro

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial