Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellwerte aufteilen

Forumthread: Zellwerte aufteilen

Zellwerte aufteilen
21.05.2006 09:46:20
urim
Hallo, Excel-Freunde!
In einer Zelle stehen Werte durch Strichpunkt getrennt. Die Werte vor bzw. nach den Strichpunkten sollen in neue Zeilen verteilt werden, um Filtern zu ermöglichen; siehe Beispiel: https://www.herber.de/bbs/user/33819.xls
Danke für Eure Hilfe, Urim
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwerte aufteilen
21.05.2006 10:09:04
Josef
Hallo Urim!
Probier mal.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub CreateList()
Dim varList As Variant, varTemp As Variant, varT As Variant
Dim lngLast As Long, lngRow As Long, lngIndex
Dim intIndex As Integer

With Sheets("Tabelle1") ' Anpassen
  
  lngLast = .Cells(Rows.Count, 1).End(xlUp).Row
  
  lngIndex = 2 ' Liste beginnt in Zeile 2 ' Anpassen
  
  varList = .Range(.Cells(lngIndex, 1), .Cells(lngLast, 3))
  
  
  For lngRow = 1 To UBound(varList, 1)
    varT = Split(varList(lngRow, 3), ";")
    For intIndex = 0 To UBound(varT)
      .Cells(lngIndex, 1) = varList(lngRow, 1)
      .Cells(lngIndex, 2) = varList(lngRow, 2)
      .Cells(lngIndex, 3) = varT(intIndex)
      lngIndex = lngIndex + 1
    Next
  Next
  
End With

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Zellwerte aufteilen
21.05.2006 17:31:48
urim
Superlösung Sepp; vielen Dank, Urim
Hast Du noch mehr so schöne Vorschläge?
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige