aufteilung zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Trennen() Dim Feld As Variant Dim i As Integer Feld = Split(Sheets(1).Range("A1").Value, ";") For i = 0 To UBound(Feld) Sheets(2).Cells(i + 1, 1).Value = i + 1 Sheets(2).Cells(i + 1, 2).Value = Trim(Feld(i)) Next i End Sub

Sub Trennen() Dim Feld1 As Variant Dim Feld2 As Variant Dim i As Integer Feld1 = Split(Sheets(1).Range("A1").Value, ";") For i = 0 To UBound(Feld1) If InStr(1, Feld1(i), "+") = 0 Then Sheets(2).Cells(i + 1, 1).Value = i + 1 Sheets(2).Cells(i + 1, 2).Value = Trim(Feld1(i)) Else Feld2 = Split(Feld1(i), "+") Sheets(2).Cells(i + 1, 1).Value = i + 1 Sheets(2).Cells(i + 1, 2).Value = Trim(Feld2(0)) Sheets(2).Cells(i + 1, 3).Value = Trim(Feld2(1)) End If Next i End Sub

Public Sub Aufloesen() Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft der Daten Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - die Ausgabe, Ergebnisse Dim lZeile_Q As Long Dim lZeile_Z As Long Dim vTemp As Variant Dim iTemp As Integer Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1") Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2") Application.ScreenUpdating = False With WkSh_Q ' angenommen, die Daten stehen in Spalte A ab Zeile 1 For lZeile_Q = 1 To .Cells(Rows.Count, 1).End(xlUp).Row ' die Herkunftsdaten am Semikolon trennen vTemp = Split(.Range("A" & lZeile_Q).Value, ";") ' den Array der gesplitteten Herkunftsdaten abarbeiten For iTemp = 0 To UBound(vTemp) ' die nächste freie Zeile im Ergebnis-Blatt ermitteln lZeile_Z = WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Row + 1 WkSh_Z.Range("A" & lZeile_Z).Value = lZeile_Z - 1 WkSh_Z.Range("B" & lZeile_Z).Value = vTemp(iTemp) Next iTemp Next lZeile_Q End With End Sub

Hallo Jörg,
mit Ausgabe der + Beträge
Option Explicit

Public Sub Aufloesen()
Dim WkSh_Q    As Worksheet  ' das Quell-Tabellenblatt - die Herkunft der Daten
Dim WkSh_Z    As Worksheet  ' das  Ziel-Tabellenblatt - die Ausgabe, Ergebnisse
Dim lZeile_Q  As Long
Dim lZeile_Z  As Long
Dim vTemp     As Variant
Dim iTemp     As Integer
Dim vBetrag   As Variant
Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
Application.ScreenUpdating = False
With WkSh_Q
'        angenommen, die Daten stehen in Spalte A ab Zeile 1
For lZeile_Q = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
'           die Herkunftsdaten am Semikolon trennen
vTemp = Split(.Range("A" & lZeile_Q).Value, ";")
'           den Array der gesplitteten Herkunftsdaten abarbeiten
For iTemp = 0 To UBound(vTemp)
'              die nächste freie Zeile im Ergebnis-Blatt ermitteln
lZeile_Z = WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Row + 1
WkSh_Z.Range("A" & lZeile_Z).Value = lZeile_Z - 1
If InStr(vTemp(iTemp), "+") > 0 Then
vBetrag = Split(vTemp(iTemp), "+")
WkSh_Z.Range("B" & lZeile_Z).Value = vBetrag(0)
WkSh_Z.Range("C" & lZeile_Z).Value = vBetrag(1)
Else
WkSh_Z.Range("B" & lZeile_Z).Value = vTemp(iTemp)
End If
Next iTemp
Next lZeile_Q
End With
End Sub

Gruß Peter

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread