Zellen mit Array abschließen
23.01.2014 11:18:53
Markus
mit dem unten folgenden Code, trenne ich das Datum von der Uhrzeit, welches ich aus Outlook exportiert habe. Der Code funktioniert soweit auch. Ich muss allerdings die Zellen von Hand mit "STRG-Shift-Enter", also als Array abschließen, damit ich die Werte in weiteren Berechnungen nutzen kann. Wie kann ich das in mein Makro so einbauen, das die Zellen diese Formatierung gleich mitbekommen?
Danke und Gruß Markus
Sub Text_zerlegen()
Dim Zeile As Long, y As Long
Dim Textteile
letzteZeile = Sheets("Main Overview").Cells(Rows.Count, 3).End(xlUp).Row
With Sheets("Main Overview")
For Zeile = 15 To letzteZeile
'Text zerlegen Trennzeichen ist das Leer-Zeichen
Textteile = Split(Cells(Zeile, 8), " ")
'schreiben
For y = 0 To UBound(Textteile)
Cells(Zeile, y + 8) = Textteile(y)
Next y
Next
End With
End Sub
Anzeige