Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten trennen bei Massendaten

Spalten trennen bei Massendaten
22.09.2014 11:42:25
A.
Guten Tag,
ich habe eine Frage: wie kann ich bei einer Spalte mit mehreren gleichen Einträgen, diese auf zwei Spalten verteilen:
Spalte 1
Zürich (710)
Basel (740)
Bern (750)
Dies soll nacher wie folgt aussehen
Spalte 2
Zürich
Basel
Bern
Spalte 3
710
740
750
Vielen Dank!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten trennen bei Massendaten
22.09.2014 11:51:43
Hajo_Zi
Daten Text in Spalte, Trennzeichen ( und Strg+H ) ersetzen durch ""

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

Anzeige
AW: Spalten trennen bei Massendaten
22.09.2014 13:24:48
Peter
Hallo A. Oeschger,
noch etwas kürzer:
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
vTemp = Split(VEingabe(lZeile_E, 1), "(")
vAusgabe(lZeile_A, 1) = Trim$(vTemp(0))
vTemp(1) = Replace(vTemp(1), ")", "")
vAusgabe(lZeile_A, 2) = Trim$(vTemp(1))
End If
Next lZeile_E
Range("B2:C" & lZeile_A + 1) = vAusgabe ' +1, weil in Zeile 2 begonnen wird
End Sub
Gruß Peter
Anzeige

265 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige