Clever-Excel-Forum

Hallo zusammen,

Vorerst - sorry das mir kein besserer Titel eingefallen ist -.

Und zwar möchte ich, dass (wie in dem Beispiel unten) die Namen, in deren Spalte man ein x macht, rechts nacheinander aufgelistet werden (in der selben Zelle, für leichtere kopierbarkeit).

Welche funktion kann ich dafür benutzen ?

Ich hoffe es ist verständlich geschrieben.

Gruß,
Flo13

Hola,

ist das zwingend das alles in eine Zelle muss?

Gruß,
steve1da

Hallo,

eine VBA Lösung ginge könnte so aussehen:

Code:
Sub mach()

   Dim arr()

   Dim i As Long, j As Long, k As Long

   Range("L2:L11").ClearContents

   For i = 1 To 10

      k = 0

      ReDim arr(k)

      For j = 1 To 10

         If Cells(i + 1, j + 1) = "x" Then

            ReDim Preserve arr(k)

            arr(k) = Cells(1, j + 1)

            k = k + 1

         End If

      Next j

      Cells(i + 1, 12) = Join((arr), ",")

   Next i

End Sub

Hallo Atilla,

Warum machst Du es nicht so`?

Zitat:Option Explicit

Sub mach()
Dim arr()
Dim i As Long, j As Long, k As Long

Range("L2:L11").ClearContents
For i = 2 To 11
k = 0
ReDim arr(k)
For j = 2 To 11
If Cells(i, j) = "x" Then
ReDim Preserve arr(k)
arr(k) = Cells(1, j)
k = k + 1
End If
Next j
Cells(i, 12) = Join((arr), ",")
Next i

End Sub

Gruß
Marcus

Flo13

steve1da

atilla

marose67