Schleife bis Zelle leer
24.04.2019 13:18:31
Knier
Bevor ich jetzt einen Tag brauche, zur Lösung meines Problems, frage ich doch lieber euch.
Ich habe das folgende kleine Marko:
Sub Uebersicht_Bestand()
Range("A2").Select
Selection.End(xlToRight).Select
spalte = ActiveCell.Column
zeile = ActiveCell.Row
Cells(zeile, spalte + 1).Activate
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C1,Monatssaldo!C1:C2,2,FALSE)+RC[-1]"
End Sub
Kann mir bitte jemand helfen daraus eine Schleife zu machen, sodass nach dem gleichen Prinzip Zeile für Zeile abgearbeitet wird, bis in Spalte A eine leere Zelle auftaucht.Vielen lieben Dank für jede Form der Unterstützung!!