Zusammenführen von Zeilen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zusammenführen von Zeilen
von: Kay Müller
Geschrieben am: 15.05.2002 - 16:51:04

Hallo Experten,

habe aus einer Datenbank eine XL-Tabelle erstellt, in der durch die Konvertierung in Zeile 1 Kundenname und in Zeile 2 die Anschrift steht. Und das für über 3.000 Kunden. Es sollen aber beide Angaben zu einem Kunden auf einer Zeile stehen, damit
z.B. besser nach Kundenname, PLZ u.s.w. sortiert werden kann.

Habt Ihr eine Lösung?

Vielen Dank im Voraus

Kay


nach oben   nach unten

Re: Zusammenführen von Zeilen
von: Otto
Geschrieben am: 15.05.2002 - 17:24:12

Hallo Kay,
versuch mal mit folgender Prozedur:


Sub Transponieren()
Application.ScreenUpdating = False
For i = 1 To 838 Step 2
  Sheets("Tabelle1").Range("A" & i & ":" & "A" & i + 1).Copy
  Sheets("Tabelle2").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=True
  Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Next
End Sub

Wenn du nicht klar kommst, dann kannst du mir deine Mappe zuschicken. Adresse siehst du oben.

Gruß Otto

nach oben   nach unten

Re: Zusammenführen von Zeilen
von: Kay Müller
Geschrieben am: 15.05.2002 - 17:47:11

Hi Otto,

Wo gibt man diese Prozedur ein ?

Kay


nach oben   nach unten

Re: Zusammenführen von Zeilen
von: Otto
Geschrieben am: 15.05.2002 - 18:18:01

in einen Modul in der VBA-Umgebung.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zusammenführen von Zeilen"