Aufgelistete Namen bei x im Feld

[Flo13]

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

[steve1da]

Hola,

ist das zwingend das alles in eine Zelle muss?

Gruß,
steve1da

[atilla]

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

[marose67]

Hallo Atilla,

Warum machst Du es nicht so`?

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