Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter mittels VBA einfügen

Tabellenblätter mittels VBA einfügen
19.08.2003 14:51:19
Fritz
Hallo Experten,
ich versuche eben, erste Schritte in VBA und bitte um Hilfe bei folgender Problematik:
In einer Liste im Blatt "Daten" sind in der Spalte E von E 1 abwärts Namen erfasst. Die Zahl der Namen kann jedoch varieren, maximal jedoch 8 also möglich bis in Zelle E 8. In Abhängigkeit der Anzahl der in der Spalte eingetragenen Namen möchte ich mittels einer Prozedur die entsprechende Anzahl neuer Tabellenblätter einfügen. Diese sollen mit den jeweiligen Namen bezeichnet werden.
Wer kann mir bei der Lösung behilflich sein?
Vielen Dank für eure Mühen bereits im Voraus.
Fritz

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter mittels VBA einfügen
19.08.2003 15:03:23
WernerB.
Hallo Fritz,
mein Vorschlag:

Sub Fritz()
Dim lar As Long, i As Long
Application.ScreenUpdating = False
lar = Sheets("Daten").Cells(Rows.Count, 5).End(xlUp).Row
For i = 1 To lar
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets("Daten").Cells(i, 5)
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

AW: Tabellenblätter mittels VBA einfügen
19.08.2003 15:08:41
ChrisL
jetzt hab ichs geschrieben, jetzt post ichs auch :-)
Option Explicit

Sub Blätter_einfügen()
Dim iZeile As Long, LetzteZeile As Long
On Error Resume Next
Application.ScreenUpdating = False
With Sheets("Tabelle1")
LetzteZeile = .Range("E65536").End(xlUp).Row
If LetzteZeile > 8 Then LetzteZeile = 8
For iZeile = 1 To LetzteZeile
If .Cells(iZeile, 5) <> "" Then
Worksheets.Add After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = .Cells(iZeile, 5)
End If
Next iZeile
End With
Application.ScreenUpdating = True
End Sub

Gruss
Chris

Anzeige
Danke Chris
19.08.2003 16:04:58
Fritz
Danke Chris,
aus unterschiedlichen Ansätzen bei der Programmierung kann ich als Anfänger nur lernen!
Gruß Fritz

Danke!
19.08.2003 15:18:51
Fritz
Hallo Werner,
vielen Dank für Deine Hilfe, funktioniert einwandfrei!
Ich habe jetzt noch eine Frage, bei der Du mir sicher auch weiterhelfen kannst. Wie muss die Prozedur abgeändert werden, wenn aus die Namen in der Spalte E nicht ab Zeile 1 (also E1) stehen, sondern ab Zeile 8 (Zelle E8). Wiederum flexible Zahl der Namen, bis maximal 8!
Danke schon im Voraus und viele Grüße

AW: Danke!
19.08.2003 15:23:15
WernerB.
Hallo Fritz,
schreibe statt einer 1 eine 8.
For i = 8 To lar
Gruß WernerB.

Anzeige
Danke Werner - noch eine letzte Frage!
19.08.2003 15:42:28
Fritz
Hallo Werner,
klappt alles hervorragend, ich hoffe Du wirst mir auch eine weitere - ich verspreche zumindest vorerst - Hilfe geben können.
Wie muss ich die Prozedur abändern, wenn ein bereits in der Arbeitsmappe vorhandenes Tabellenblatt mit der Bezeichnung "Blatt 1" entsprechend oft kopiert werden soll. Dabei sollen die kopierten Tabellenblätter die jeweiligen Namen der Spalte E als Blattname erhalten.
Ganz herzlichen Dank im Voraus!

AW: Danke Werner - noch eine letzte Frage!
20.08.2003 08:01:03
WernerB.
Hallo Fritz,
nicht um Dich zu verwirren, sondern damit Du noch etwas mehr Makrotechnik lernen kannst, habe ich auch noch einige modifizierte Sequenzen aus dem Code von ChrisL übernommen.

Sub Fritz()
Dim laR As Long, i As Long
Application.ScreenUpdating = False
With Sheets("Daten")
laR = .Cells(Rows.Count, 5).End(xlUp).Row
If laR > 15 Then laR = 15
For i = 8 To laR
If .Cells(i, 5) <> "" Then
Sheets("Blatt 1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = .Cells(i, 5)
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

Gruß WernerB.

Anzeige
AW: Danke Werner!
20.08.2003 11:05:06
Fritz
Nochmals vielen Dank! Ich habe einiges dazugelernt.
So nette hilfsbereite Experten wie in diesem Forum - einfach Klasse!

305 Forumthreads zu ähnlichen Themen

Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Anzeige
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
aut.Füllen von Felden mittels Referenztabellen
Felden

Hallo,
ich habe folgende Situation:
Ich habe zu einer Artikelnummer eine Kundenartikelnummer und einen Preis. Diese Daten habe ich in einer "Referenztabelle", d.h. in einem eigenen Excelfile.
Ich möchte nun bei der Erstellung von Rechnungen lediglich die Artikelnummer eingeben. Exce...
24.09.2008 08:04:00
Thread-ID: 1011910
2 Beiträge
Anzeige
Pivot-Tabellen mit gefilterten Werten möglich?
Andreas

Hallo Forum,
ich habe mal eine Frage bezüglich Pivot-Tabellen. Kann eine solche Tabelle schon vorher gefilterte Werte auswerten, ohne dass die herausgefilterten Zellen beachtet werden?
MFG Andreas
10.11.2008 11:29:00
Thread-ID: 1023155
5 Beiträge
Tabelle mittels eingebundenem Java jar-file füllen
Arthur

Ein fröhliches Hallo zusammen.
Ich habe ein Java jar-file, eingebunden in eine Excel-Datei. Die darin enthaltene Funktion soll per Knopfdruck aufgerufen werden, Daten aus einer anderen Anwendung abholen und das Ergebnis in einem Worksheet eintragen.
Der Knopfdruck samt Aufruf der Funkti...
27.11.2008 15:46:00
Thread-ID: 1028425
2 Beiträge
Tabellenbereich mit Array o.ä. füllen
dennis

Hallo zusammen,
weiss jemand eine Möglichkeit wie man mehrere Werte gleichzeitig in ein Exceltabellenblatt bekommt?
Mein Problem ist folgendes:
Ich berechne mir über eine Schleife die x,y Werte für ein Diagramm.
Diese würde ich gerne vorher speichern (z.B. in einem Array, bzw. M...
09.01.2009 15:02:04
Thread-ID: 1038249
10 Beiträge
Wie Säulendiagramm mit Tabelle mit gestapelten Säu
sohsoh

Hallo,
ich habe folgendes Problem und schon wie ein Irrer probiert, aber bis jetzt noch keine Lösung gefunden.
Ich habe zu Verschiedenen Stoffen jeweils 2 Messwerte in 3 Verschiedenen Zuständen. Jetzt möchte ich ein Säulendigramm erstellen in denen ich 3 Säulen (zu den drei Zuständen je...
14.01.2009 10:48:22
Thread-ID: 1039519
2 Beiträge
Die ersten 5 Zeilen als fester Block
Markus

Hallo
Noch eine letzte Frage:
Wenn ich in einem Sheet die ersten 5 Zeilen mit Beschriftung und Datum habe sprich eine Bilanz.
Wie kann ich das bewerkstelligen, wenn die Bilanz oder die GuV Rechnung sich auf zwei Seiten verlängert, daß ich die ersten 5 Zeilen auch auf der zweiten Sei...
31.01.2009 01:17:00
Thread-ID: 1045564
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
9
3
1
4
4
1
9
1
1
8
4
5
8
6
3
2
18
1
2
1
2
9
6
2