Loop ohne Do
06.04.2020 09:53:40
Max
Ich komm einfach nicht weiter mit der Fehlermeldung und weiss auch nicht was falsch ist.
Sub Schaltfläche9_Klicken()
'Bearbeitung der Downloadrohdaten Nutzungsfertig zur weiteren Bearbeitung Lückentester etc
Dim Mst As String
Dim Rohdaten As String
Dim Pfad As String
Dim x As Double
x = 17
Rohdaten = Workbooks("Makros").Worksheets("Tabelle1").Cells(x, 1).Text
Do While Rohdaten ""
Rohdaten = Workbooks("Makros").Worksheets("Tabelle1").Cells(x, 1).Text
'wenn Zelle Leer Schleife beenden
If Rohdaten = "" Then Exit Do
Workbooks.Open Rohdaten
ActiveSheet.Name = "Auswertung"
Range("A4").NumberFormat = "@"
Mst = Range("A4").Value
Mst = Right(Mst, Len(Mst) - 17)
Mst = Trim(Mst)
With Range("B4")
.NumberFormat = "@ "
.Value = Mst
End With
With Range("A7")
.NumberFormat = "@"
.Value = "GW-Leiter:"
End With
With Range("C7")
.NumberFormat = "@"
.Value = "H.ü.NN:"
'Speichern der Datei als .xlsm
Application.DisplayAlerts = False
Workbooks.Open Rohdaten
ActiveWorkbook.Unprotect
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Mst, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled
Pfad = ActiveWorkbook.Path & "\" & Mst
ActiveWindow.Close
Workbooks("Makros").Activate
Workbooks("Makros").Worksheets("Tabelle1").Cells(x, 1).Value = Pfad
x = x + 1
Application.DisplayAlerts = True
Loop
y = x - 17
MsgBox "" & y & " Rohdaten Bearbeitet"
End Sub