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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen