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"