Office: Namen einer Spalte in einer Zelle wiedergeben

Hallo,

ich befürchte ja, dass es sich hierbei um ein sehr einfaches Problem handelt, aber trotz intensiven Versuchens und Suchens habe ich noch keine Lösung gefunden.
Mein Problem ist Folgendes:

Ich arbeite an einer Umfrage, die dann in Excel ausgegeben werden soll. Hierbei gibt es ein Spalte "Sonstiges" in der in ca. jedem 10. Feld ein Name eingetragen wird. Nun möchte ich, dass alle Werte in der Spalte "Sonstiges" in einer Zelle wiedergegeben werden, wenn möglich sogar mit Komma. Dieses funktioniert auch, wenn ich die Formel manuell eingeben würde =A1&A2&A3 ect. Da die Spalte aber 2000 Zellen lang ist, würde ich mir dieses manuelle Arbeit gerne erleichtern. Weiß aber leider nicht wie?

Hoffentlich könnt ihr mir helfen. Schon einmal danke im Voraus.

 

Hallo,

hier steht die Lösung:

http://www.herber.de/forum/archiv/576to580/t577306.htm

 

Mist, zu langsam...

Aber da ich's gerade fertig habe:

Code:

Sub Verketten()
Dim Zelle As Range
Dim Bereich As Range
Dim Kette As String
Set Bereich = Tabelle1.Range("A1:A100") 'Dies ist der Suchbereich
For Each Zelle In Bereich
On Error GoTo Fehler
If Zelle.Value <> "" Then Kette = Kette & Zelle.Value & ","
Next Zelle
Kette = Left(Kette, Len(Kette) - 1)
Range("C1").Value = Kette 'Dies ist die Zielzelle
Exit Sub
Fehler:
MsgBox "Keine Einträge gefunden"
End Sub

Rechtsklick auf den Tabellenreiter > Code anzeigen > diesen Code rechts ins Codefenster einfügen
Aufruf mit Alt+[F8] > Verketten

 

Vielen Dank ihr beiden,

habt mir wirklich sehr geholfen und ich bin ja froh, dass die Antwort doch nicht so einfach war, wie befürchtet.

Gruß und Dank

laowai