Supportnet / Forum / Tabellenkalkulation

Hallo zusammen ich habe folgendes Problem. Muss in grösserem EXCEL-File z.B. 3 Zeilen in eine bringen, d.h. eine Spalte hat 3x die gleiche Nr. Anhand dieser Kennung müssen die anderen Zeilen sich vereinigen, ohne dass der Inhalt verloren geht: BSP: Vorher: 1 Dieser Text 10023 2 muss in einer 10023 3 Zeile erscheinen. 10023 1 Auch dieser Text muss 11100 2 in eine Zeile. 11100 usw. Und so solls nachher aussehen: Dieser Text soll in einer.. 10023 Auch dieser Text muss in.. 11100 Hat jemand eine Idee, wie man das bewerkstelligt (über Macro?) Vielen Dank im voraus für Antworten Gruss Klausi

Hallo,

erster Versuch (quick and dirty) mit
Makro:

Option Explicit

Sub test()
Dim n
Dim m
 For m = 1 To 10
 For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   If Cells(n, 3).Value = Cells(n + 1, 3).Value Then
     Cells(n, 2).Value = Cells(n, 2).Value & " " & Cells(n + 1, 2).Value
     Cells(n + 1, 2).Value = ""
   End If
 Next
 m = m + 1
 Next
End Sub

Die erste For-Schleife hört bei 10 auf. Das ist, jenachdem, wie oft die Nummer vorkommt, nicht ausreichend.
Weitere Voraussetzungen: in Spalte A wird die Anzahl der Zeilen gezählt!
In spalte B steht der Text!
In spalte C steht die Nummer, sortiert!

Viel Spaß
Günter

• Probleme mit Uhrzeiten in Excel
• Textformatierung schützen
• mikrosoft word 97-konvertierung