Hallo liebe VBA-Götter,
ich versuche vergeblich folgendes Problem zu lösen:
Ich möchte das Tabelle1 durchsucht wird. Die Vornamen in Spalte C (Range C6:C550) sollen mit den Vornamen aus Spalte D (D6:D550) kombiniert und durch Komma getrennt werden. Die Eingaben sollen dann in eine temporäre Tabelle (wksTemp) in Spalte A eingefügt werden. Das gleiche soll in Tabelle2 passieren sodass in wksTemp eine komplette Liste der Einträge der beiden Tabellenblätter entstehen soll. Dank der Hilfe von fcs, weiß ich wie das mit einem Tabellenblatt zu schaffen ist. Leider kriege ich es mit zwei nicht hin. Hier ein Auszug von fcs' Makro
Set wksTemp = Worksheets.Add
With Sheets("Tabelle1")
For Zeile = 6 To 550
wksTemp.Cells(Zeile - 5, 1) = .Cells(Zeile, "C") & IIf(Not IsEmpty(.Cells(Zeile, "D")), ", " _
& .Cells(Zeile, "D"), "")
Next
End With
Bin, wie immer, dankbar für eure Hilfe!
Gruß
Mister B