Office: Spalte durchsuchen und Werte in eine Zelle kopieren

Hallo,

es wäre super, wenn mir jemand kurz helfen könnte, ich habe folgendes Problem:

Ich habe eine Tabelle mit 20 Spalten und 512 Zeilen. Nur in einigen Zellen stehen Werte, die anderen sind leer. Ich möchte, daß alle Zellen einer Spalte durchsucht werden, und die Inhalte aller nicht leeren Zellen als Aufzählung in eine einzige Zelle kopiert werden, beispielsweise:
1



3

4
7


9
->1,3,4,7,9

Ist das möglich? Wäre mir eine sehr grpße Hilfe!

 

Hallo,

kopiere die folgende benutzerdefinierte Funktion in ein allgemeines Modul der Datei:

Code:

Public Function ConcatenateRange(Separator As String, ParamArray ConcatRange() As Variant)
'Quelle: Daniel Klann 
    Dim vItem As Variant, rngCell As Range
    Dim vRetVal As Variant
    For Each vItem In ConcatRange
        For Each rngCell In vItem.Cells
            If Not IsEmpty(rngCell) Then
                vRetVal = vRetVal & rngCell.Value & Separator
            End If
        Next rngCell
    Next vItem
    ConcatenateRange = Left$(vRetVal, Len(vRetVal) - Len(Separator))
End Function

Der Aufruf erfolgt mit

=ConcatenateRange(",";A1:A12)

oder

=ConcatenateRange(",";A1:A12;B1:B12)

 

Vielen Dank, funktioniert im Prinzip schon, nur bekomme ich jetzt als Ergebnis
",,,,,5,5,5,,,,,,,,,7,7,7,,,,,,,,,,,,,,,,,,"

theoretisch kann ich damit schon leben, aber läßt sich das so hinkriegen, daß wirklich nur die Zahlen angezeigt werden?

Liegt das daran, daß in den "leeren" Zellen folgende Formel steht:
=WENN(UND($I7=1;$J7=1;$K7=1;$M7=1);$N7;"")

 

Hallo!

ungetestet:
statt

Code:

If Not IsEmpty(rngCell) Then 

nimm diese Zeile

Code:

If rngCell <> "" Then