merkwürdiges Problem: Nach 'Sheets.Add' funktioniert der folgende Code nicht mehr (Laufzeitfehler 1004)
Sub Daten_exportieren()
sName = ActiveSheet.Name
Sheets.Add.Name = "Exportliste"
'hier kommt dann der Laufzeitfehler 1004:
Sheets(sName).Range(Columns(1), Columns(22)).SpecialCells _
(xlCellTypeVisible).Copy
End Sub
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'Diese Variante mit Select funktioniert seltsamerweise:
Sub Daten_exportieren2()
sName = ActiveSheet.Name
Sheets.Add.Name = "Exportliste"
Sheets(sName).Select
Range(Columns(1), Columns(22)).SpecialCells _
(xlCellTypeVisible).Copy
End Sub
Nun möchte ich ja, wie allerorten zu Recht gefordert, möglichst ohne 'Select' auskommen.Wer kann mir weiterhelfen?
Herzlichen Dank im Voraus,
Bert