ich möchte gerne aus einer Tabelle auslesen, ob ein Feld mit 1 oder 0 markiert ist.
Bei einer 1, soll in die erste Zelle der Spalte die Überschriften der Zellen eingefügt werden, die mit 1 markiert sind.
Mein Ansatz, den ich mir bisher zusammen gesucht haben sieht wie folgt aus:
Sub Aktualisieren() Dim c As Range With Sheets("Tabelle1") For Each c In .Range("D2:F4") If c.Value = "1" Then Cells(c.Row, 3).Value = Cells(c.Row, 3).Value & "," & Cells(1, c.Columm).Value End If Next c End With End SubIch würde mich über Hilfe eurerseits freuen.
(Aus Testzwecken habe ist der zu überprüfende Bereich nur von D2:F4 gewählt und wird später erweitert.)