Kombi Felder - Liste in Spalte ausgeben

[hanso686]

Hallo liebe Excel Freunde,

ich möchte eine Liste aus Abschnittsbezeichnungen automatisch ausgeben lassen.
Die Zielformel soll die erforderlichen Feldnamen aus Spalte I untereinander in eine Spalte schreiben.
Bedingungen:
- Die Anzahl der untereinander ausgegebenen Feldnamen soll abhängig von der genannten Anzahl in Spalte M sein
- für die Ausnahme "ohne Kabel" in  Spalte L soll das Feld in der Ausgabe übersprungen werden.

Eine Beispieldatei wurde angehängt.

Würde mich sehr über jede Hilfe freuen.
Gruß,
Hannes.

[schauan]

Hallöchen,

mit einem Makro ginge das so:

Code:

Option Explicit

Sub Liste()
'Variablendeklarationen
Dim iCnt1%, iCnt2%
'Startzeile festlegen
iCnt1 = 17
'Schleife solange in I kein Leereintrag auftritt
Do While Cells(iCnt1, 9).Value <> ""
  'Schleife entsprechend Anzahl aus Spalte M
  For iCnt2 = 1 To Cells(iCnt1, 13).Value
    'Eintrag aus Spalte I nach SPalte R uebernehmen
    Cells(Rows.Count, 18).End(xlUp).Offset(1).Value = Cells(iCnt1, 9).Value
  'Ende Schleife entsprechend Anzahl aus Spalte M
  Next
'Zeilenzaehler hochsetzen
iCnt1 = iCnt1 + 1
'Ende Schleife solange in I kein Leereintrag auftritt
Loop
End Sub

[Elex]

Hi

Wenn du bei Formeln bleiben möchtest.
N16  =0
N17  =SUMME($M$17:M17)    'nach unten ziehen
R17  =VERWEIS(ZEILE(A1)-1;$N$16:$N$200;$I$17:$I$201)    'nach unten ziehen

Gruß Elex