ich habe ein Problem, welches ich in Excel früher immer Händisch gelöst habe.
Meine Daten sehen folgendermaßen aus (Spalte A und B vorgegeben, Spalte C erwünschtes Ergebnis):
A | B | C
20| 0005500|
21| 0005483|
22| 0005439|
22| 0005501| 0005439; 0005501
23| 0005427|
24| 0005470|
24| 0005509| 0005470; 0005509
durch eine Verkettungsfunktion hier aus dem Forum:
https://www.herber.de/forum/archiv/576to580/t577306.htm
habe ich mir dann eben händisch die jeweiligen Bereiche markiert und gut.
Leider habe ich nun rund 28tsd Zeilen, da ist diese Lösung nicht mehr möglich.
Ich habe versucht einen Ansatz in VBA zu schreiben, habe leider nur Basis C Kenntnisse und komme nicht weiter.
Kurz zur Funktion: Solange die Zahlen in Spalte A gleich sind, sollen die Daten mit einem "; " verkettet werden und dann in Spalte C erscheinen, in der Zeile wo die letzte der identischen Zahlen ist (siehe oben).
Mein Ansatz sieht wie folgt aus (Bitte nicht lachen):
Sub Test()
Dim i, j As Integer
Dim ergebnis As String
Do Until DieseMappe.Tabelle1.Range("A" & i + 1 = "A" & i)
i = i + 1
Loop
For Each rng In "A"&j: "A"&i
If rng "" Then
ergebnis = ergebnis & rng & "; "
End If
Next
Cells(i, 5) = ergebnis
j = i
End Sub
Wie gesagt mir fehlt jegliche Kenntnis in VBA und ein guter C-Programmierer war ich auch noch nie.
Ich würde mich freuen wenn mir jemand mit meinem Problem weiterhelfen kann!
Vielen Dank im Vorraus!
Gruß Sönke