wenn ja dann zelle darüber wiedergeben, aber öfters

Question

Hi liebe Leute,

ich brauche Hilfe.

Ich habe zwei Zeilen: CR13:FE14

In Zeile 13 steht eine Kategorie und in Zeile 14 steht entweder Ja oder Nein.

Jetzt möchte ich in Zelle B40 alle Kategorien aufführen, die ein Ja haben. Am besten mit Komma trennen.

BSP:

Kat A___Kat B___Kat C___Kat D

_ja_____nein____nein_____ja__

B40 = Kat A, Kat D

Ich hoffe, ich konnte mich verständlich ausdrücken. Ob als Formel oder Makro ist egal.
Vielen Dank schon mal im Voraus!

Answer 1

Hallo erdmaennchen,

Hier eine Variante als Makro. Kannst du z.b. in einem beliebigen Modul einfügen und z.B. über den Makromanager oder per Symbol oder Button aufrufen.

Option Explicit
Sub KategorienMitJa()

Dim Bereich As String, Wiedergabe As String, s As String, c As Range

Bereich = "CR13:FE14"
Wiedergabe = "B40"

For Each c In Range(Bereich).Rows(2).Cells
If LCase(c) = "ja" Then s = s & c.Offset(-1, 0) & ", "
Next c
s = Left(s, Len(s) - 2)
Range(Wiedergabe) = s

End Sub

Gruß Mr. K.

Answer 2

oder du machst es als benutzerdefinierte Funktion. dann gehört der Code in ein Standardmodul (z.B. Modul1)

Option Explicit
Function KategorienMitJa(Bereich As Range) As String

Dim s As String, c As Range

For Each c In Bereich.Rows(2).Cells
If LCase(c) = "ja" Then s = s & c.Offset(-1, 0) & ", "
Next c
s = Left(s, Len(s) - 2)
KategorienMitJa = s

End Function

In Zelle B40 gibst du dann die Formel
=KategorienMitJa(CR13:FE14) ein.

Gruß Mr. K.

Answer 3

Hi Mr. K,

vielen Dank! Es klappt alles sehr gut!