Option
Explicit
Sub
Arbeitsblätter_abspeichern()
<strong> Sheets(
"<1µm"
).
Select
</strong>
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