Datenblätter erstellen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Datenblätter erstellen

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

schweden
Newbie
Newbie

Anmeldedatum: 20.10.2007
Beiträge: 25

Verfasst am: 19.03.2008, 13:55

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 19.03.2008, 14:22

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

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

schweden
Newbie
Newbie

Anmeldedatum: 20.10.2007
Beiträge: 25

Verfasst am: 22.03.2008, 20:28

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....

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5570

Verfasst am: 22.03.2008, 20:55

Hallo!

Frag doch nach "ungleich" ab:

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

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	[Word2003] Formular mit Textfeldern e...	anachronist	Microsoft Word Hilfe	1	04.09.2008, 16:07
	Probleme beim Erstellen eines Diagramms	Mona1990	Microsoft Excel Hilfe	1	03.09.2008, 16:43
	Kann keine Neue Email erstellen	tomber	Microsoft Outlook Hilfe	1	03.09.2008, 08:49
	Hilfe beim erstellen einer Importdatei	dobby110	Microsoft Excel Hilfe	8	26.08.2008, 12:36
	Probleme beim Erstellen einer Vorlage...	CarinaGra	Microsoft Excel Hilfe	7	13.08.2008, 09:34

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de