Ich hab da ein kleines Problem beim Abspeichern von Arbeitsblättern. Beim starten des aufgenommenen Makros erhalte ich die Fehlermeldung: "Laufzeitfehler 9- Index außerhalb des gültigen Bereichs". Ich denke das Problem liegt an den Namen der Arbeitsblätter (z.B. "<1µm").
Hier ist mein Quellcode:
Option Explicit
Sub Arbeitsblätter_abspeichern()
'
' Arbeitsblätter_abspeichern Makro
'
'
Sheets("<1µm").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Mekis\Desktop\studium\HAUPSTUDIUM\Großer Beleg\kleine Partikel.csv", _
FileFormat:=xlCSV, CreateBackup:=False
Sheets("1µm - 10µm").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Mekis\Desktop\studium\HAUPSTUDIUM\Großer Beleg\mittelgroße Partikel.csv" _
, FileFormat:=xlCSV, CreateBackup:=False
Sheets(">10µm").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Mekis\Desktop\studium\HAUPSTUDIUM\Großer Beleg\große Partikel.csv", _
FileFormat:=xlCSV, CreateBackup:=False
End Sub
Die Fehlermeldung erscheint bei Sheets("<1µm").Select.
Kann mir jemand weiterhelfen?
Für eure Hilfe bin sehr dankbar!!!
Gruß,
Markus