Ich habe ein Tabellenblatt mit der Bezeichnung "Auswahl".
In den Spalten C, G, K, O und S stehen von Zeile 22 bis 40 diverse Produkte.
Wenn in den Spalten daneben, Sprich, D, H, L, P, T eine Menge eingetragen wird,
soll beim Ausführen eines Makros, das jeweilige Produkt in mein Tabellenblatt "Angebot" jeweils untereinander aufgeführt, sprich übernommen werden.
Wie löse ich das am Besten?
Ausschnitt eines bisherigen Makros, mit bisher fixem Übernahmebereich.
Dim A
Dim B
Dim C
Dim Zähler As Integer
A = Sheets("Auswahl").Range("I1").Value
Zähler = 7
Do
Zähler = Zähler + 1
Loop Until Cells(Zähler, 4) = ""
Sheets("Angebot").Activate
Cells(Zähler, 15).Value = A
B = Sheets("Auswahl").Range("C21").Value
Zähler = 7
Do
Zähler = Zähler + 1
Loop Until Cells(Zähler, 4) = ""
Sheets("Angebot").Activate
Cells(Zähler, 4).Value = B
C = Sheets("Auswahl").Range("G21").Value
Zähler = 7
Do
Zähler = Zähler + 1
Loop Until Cells(Zähler, 5) = ""
Sheets("Angebot").Activate
Cells(Zähler, 5).Value = C