VBA wenn Zellen leer, dann...
25.08.2021 08:19:24
Marko
wie kann ich in diesen Code folgende Abfrage einbauen?
Wenn in "Tabelle2" die Zellen "C12:C26" leer / oder null, dann soll das Makro nicht ausgeführt werden und die nächste Mitgliednummer ("Mgl") genommen werden.
Sub allePdf_3()
Dim ZAdr As String
ZAdr = Worksheets("Mgl").Range("E2")
For i = 2 To ZAdr
With Sheets("Tabelle4")
.Range("B2") = Sheets("Mgl").Cells(i, 4).Value
Call Anpassen_3
Call Anpassen_4
file = Environ("USERPROFILE") & "\Documents\" & "\Bonus\" & Sheets("Tabelle3").Range("F21").Text & ".pdf"
Sheets("Tabelle3").Range("A1:H212").ExportAsFixedFormat xlTypePDF, file
End With
Next
End Sub
Gruß,Marko