Office: Datenblätter erstellen

Hallo, bin auf der Suche irgendwie aus einer Liste mit Dateinamen, über deren Anzahl neue Datenblätter anzulegen die dann auch noch so heissen, wie die Namel in der Liste:

Also neue Mappe auf machen
Liste eingaben
Makro starten, welches z.B: 10 neue Datenblätter anlegt und diese dann so umbenennt, das diese die selben Namen haben, wie die in der Liste...

Noch besser wäre natürlich, wenn ich Excel einen Ordner sagen könnte, es in diesen rein schaut die Anzahl und den Namen der *.TXT- Dateien ermittelt und selbständig diese bestimmte Anzahl an Datenblättern anlegt und die jeweiligen Namen vergibt...

Danke

 

Hallo!

Wäre das hier ein Ansatz?

Code:

Sub Anlegen()
Dim x%, temp%, Bereich
With Application
temp = .SheetsInNewWorkbook
Bereich = Tabelle2.Range("A1:A6")   '<--Hier den Listenbereich anpassen
.SheetsInNewWorkbook = UBound(Bereich)
Workbooks.Add
For x = 1 To UBound(Bereich)
Sheets(x).Name = Bereich(x, 1)
Next x
.SheetsInNewWorkbook = temp
End With
End Sub

 

Ja, das ist Super....

Neue Frage...

Habe eine For Schleife mit: For Each Blatt inthisworkbook..... Then....

Ich möchte jetzt, das er sobald eines der Datenblätter einen bestimmten Namen hat (z.B. Test), die Schleife an das Ende zu Next Blatt springt und die Schleife mit dem nächsten Blatt fortsetzt. Also den Schleifeninhalt nicht ausführt. Es steht also direkt nach der For- Schleife eine IF- Abfrage nach dem Namen und falls dieser (= Test) ist, soll das nächste Datenblatt mit Next Blatt geöffnet werden....

 

Hallo!

Frag doch nach "ungleich" ab:

For Each Blatt...
If Blatt.Name <> "Test" Then
'mach irgendwas'
End If
Next Blatt