VBA Schleife / Array endlos
17.06.2020 08:03:26
Julian
als VBA-Anfänger komme ich bei meinem Skript an einer Stelle nicht weiter: Ich möchte gerne über eine Schleife ein vorangestelltes Skript bis zur letzten gefüllten Zeile wiederholt ablaufen lassen, wobei leere Zeilen einer bestimmten Spalte (N) übersprungen werden sollen. Mein bisheriger Versuch lief über ein Array,
dass die Zeilen allesamt aufzählt (1, 2, 3, ...), ich würde aber gerne das Makro automatisch bis zur letzten befüllten Zeile einfach durchlaufen können. Habt ihr vielleicht einen Hinweis oder Vorschlag, wie man das am besten umsetzen kann? Schon einmal vielen Dank im Vorraus. Das hier ist mein bisheriger Versuch, über den ich jedoch nicht hinaus gekommen bin:
Sub AllePDFs()
Dim zeilen_arr As Variant
Dim Zeile As Long
zeilen_arr = Array(15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30)
For Zeile = 0 To UBound(zeilen_arr)
If Range("N" & zeilen_arr(Zeile)).Text "" Then _
MergePDFs CSng(zeilen_arr(Zeile))
Next
End Sub