Hallo ihr lieben,
ich sehe den Wald vor lauter Bäumen nicht mehr.
Kurz um:
Ich möchte gerne eine Schleife bilden.
Wenn Cells(Zeilennummer, Spaltennummer) nicht leer ist soll er folgendes machen:
1. In Spalte C soll er bezugnehmend auf A einen SVerweis durch führen
2. In Spalte F soll er bezugnehmend auf A einen SVerweis durch führen
3. In Spalte D soll er Festgesetzte Spalte B2 * Spalte F
4. In Spalte E soll er Spalte B * Spalte E
Der Bezug beginnt in A22 und Soll unbekannt fortgeführt werden.
Beispiel:
Dim zeile As Integer
zeile = 22
'Artikelbezeichnung
Range("C22").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],'Artikel Preis'!C[-2]:C[-1],2,0)"
Do Until Cells(zeile, 1).Value = ""
Cells(zeile, 3).FormulaR1C1 = "=VLOOKUP(RC[-2],'Artikel Preis'!C[-2]:C[-1],2,0)"
zeile = zeile + 1
Loop
'Listenpreis
Range("F22").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-5],'Artikel Preis'!C[-5]:C[1],7,0)"
Do Until Cells(zeile, 1).Value = ""
Cells(zeile, 6).FormulaR1C1 = "=VLOOKUP(RC[-5],'Artikel Preis'!C[-5]:C[1],7,0)"
zeile = zeile + 1
Loop
Den ersten Loop macht er locker, aber nicht den nächsten.
1. Was stimmt nicht mit dem zweiten Loop?
2. Das muss doch einfacher gehen?
Lieben Gruß und fetten dank im Voraus