AW: Spalten trennen bei Massendaten
22.09.2014 12:28:45
Peter
Hallo A. Oeschger,
das könnte so funktionieren - Annahme: Deine Daten stehen in Spalte A ab Zeile 2
Option Explicit
Public Sub Aufteilen()
Dim WkSh As Worksheet
Dim VEingabe As Variant
Dim vAusgabe() As Variant
Dim lZeile_E As Long
Dim lZeile_A As Long
Dim lLetzte As Long
Dim iPosition As Integer
Dim vTemp As Variant
Set WkSh = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
lLetzte = WkSh.Cells(WkSh.Rows.Count, 1).End(xlUp).Row
VEingabe = WkSh.Range("A2:A" & lLetzte)
ReDim vAusgabe(1 To lLetzte, 1 To 2)
For lZeile_E = LBound(VEingabe) To UBound(VEingabe)
If VEingabe(lZeile_E, 1) "" Then
lZeile_A = lZeile_A + 1
iPosition = InStr(VEingabe(lZeile_E, 1), "(")
vAusgabe(lZeile_A, 1) = Trim$(Left(VEingabe(lZeile_E, 1), iPosition - 2))
vTemp = Split(VEingabe(lZeile_E, 1), "(")
vTemp(1) = Replace(vTemp(1), ")", "")
vAusgabe(lZeile_A, 2) = Trim$(vTemp(1))
End If
Next lZeile_E
Range("B2:C" & lZeile_A + 1) = vAusgabe
End Sub
Gruß Peter