Stammdatensortierung

Bild

Betrifft: Stammdatensortierung
von: Thorsten
Geschrieben am: 16.03.2005 10:54:22
Hi,
ich habe folgendes Problem: Ich habe eine riesige Exceldatei mit ca 9000 Kundenadressen diese stehen alle in einer Spalte untereinander. (siehe Tabelle)
https://www.herber.de/bbs/user/19722.xls
Ich möchte aber das jeder Kunde in einer Zeile steht. (siehe Tabelle rote Schrift)
https://www.herber.de/bbs/user/19722.xls
Wie kann ich das am einfachsten hinbekommen?
MFG
Thorsten

Bild

Betrifft: AW: Stammdatensortierung
von: Herbert H.
Geschrieben am: 16.03.2005 11:18:03
Hallo Thorsten,
ein Ansatz...


Sub erst()
Dim i%, lz%, lzT
lz = Cells(Rows.Count, 1).End(xlUp).Row
[c5:h25].ClearContents
For i = 3 To lz
  If Cells(i, 1) = "Herr" Then
    lzT = Cells(Rows.Count, 3).End(xlUp).Row + 1
      Cells(lzT, 3) = Cells(i, 1)
      Cells(lzT, 4) = Cells(i, 1).Offset(1, 0)
      Cells(lzT, 6) = Cells(i, 1).Offset(2, 0)
      Cells(lzT, 7) = Cells(i, 1).Offset(4, 0)
      Cells(lzT, 8) = Cells(i, 1).Offset(-1, 0)
   End If
Next
End Sub

     
https://www.herber.de/bbs/user/19727.xls
Gruß Herbert
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bildlaufleiste in Userform"