sicher eine einfache Frage für Euch: wie kann ich in meine Datei ein zusätzliches Tabellenblatt (leer) namens "Quelldaten" einfügen ?
Dank Euch
Joachim
Sub neuAnlegen()
Dim X As Long
For X = 1 To Worksheets.Count
If Worksheets(X).Name = "Quelldateien" Then MsgBox "Blatt ist schon vorhanden": Exit Sub
Next
Worksheets.Add.Name = "Quelldateien"
End Sub
Sub entfernen()
Application.DisplayAlerts = False 'Nachfrage verhindern
Worksheets("Quelldateien").Delete
Application.DisplayAlerts = True 'wichtig !!! -> True=wieder Einschalten !!!
End Sub