ich verzweifele etwas:
Bei folgendem Makro wird mir der Fehler "Loop ohne Do" angezeigt, und ich weiss nicht warum.
Das Makro
Sub PDFListe()
' PDFListe Makro
Dim zeile As Long
zeile = 11
Do
If Not ActiveSheet.Cells(zeile, 35) = "" Then
ActiveSheet.Cells(zeile, 35).Select
Selection.Copy
Range("W5:AA5").Select
Selection.Paste
Call PDFDatei
Else: Exit Do
zeile = zeile + 1
Loop
End Sub
Irgendeine Idee, was das sein könnte?
ICh möchte in eine Spalte Werte eintragen und mit diesen Werten jeweils eine PDF-Datei erzeugen.
Die Schleife soll bis bei einer leeren Zelle in der Spaltte aufhören
Danke
Michael