Automatisch Tabellenblätter einfügen gemäss Spalte

Hallo Liebe Forum-Teilnehmer,
anbei eine Frage die ich so nicht klären kann.
Ich habe eine Excel Arbeitsmappe mit einem Tabellenblatt.
In diesem Tabellenblatt ist eine Tabelle. Diese tabelle enthält Kundennummern z.B. so:
Kunde
10500 Müller
10600 Meier
17000 Meffert
25000 Michaela
Die Tabelle beginnt in A2 weil in A1 das Wort "Kunde" steht.
Meine Frage ist nun. Ich möchte gerne das Excel automatisch für jeden Kunden ein eigenes Tabellenblatt erstellt. Dann sollte es einen Button geben der bei Bedarf alle Tabellenblätter bis auf das erste löscht. Der Grund: Die Liste mit den Kunden ist Generisch - d.h. es kann mal 10 Kunden, 15 Kunden oder 3 Kunden geben. Ich habe leider keine Ahnung aber man meinte mir ich könnte vielleicht hier um Rat fragen, da es mit VBA möglich sei so etwas zu tun.
Viele Grüße,
Memoli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub TabAnlegen() Dim wks As Worksheet Dim iRow As Integer If Worksheets.Count > 1 Then MsgBox "Die Kundentabellen wurden bereits angelegt" Exit Sub End If Application.ScreenUpdating = False Set wks = Worksheets("Kunden") iRow = 2 Do Until IsEmpty(wks.Cells(iRow, 1)) Worksheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Name = wks.Cells(iRow, 1).Value iRow = iRow + 1 Loop wks.Select Application.ScreenUpdating = True End Sub

Sub Erstelle_Tabelle() Dim a As Variant Dim name As String For a = 1 To 1000 name = Sheets(1).Cells(1 + a, 1) If name = "" Then Exit For Worksheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.name = name Next a End Sub

Sub Lösche_Tabelle() Dim zähler As Variant, a As Variant Sheets(1).Select zähler = Sheets.Count For a = 2 To Sheets.Count Application.DisplayAlerts = False Sheets(a).Delete Application.DisplayAlerts = True Next a End Sub

Sub Lösche_Tabelle() Dim zähler As Variant, a As Variant Sheets(1).Select zähler = Sheets.Count For a = 2 To zähler Application.DisplayAlerts = False Sheets(a).Delete Application.DisplayAlerts = True Next a End Sub

Habe,
fehler in meinem code, hatte ihn nur mit einer zweiten Tabelle getestet.
Entschuldige hier der Richtige


Sub Erstelle_Tabelle()
Dim a As Variant
Dim name As String
For a = 1 To 1000
name = Sheets(1).Cells(1 + a, 1)
If name = "" Then Exit For
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.name = name
Next a
End Sub


Sub Lösche_Tabelle()
Dim zähler As Variant, a As Variant
Sheets(1).Select
zähler = Sheets.Count
For a = 2 To zähler
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True
If Sheets.Count = 1 Then Exit For
Next a
End Sub

Gruss
Tino

Beliebteste Forumthreads (12 Monate)

Automatisch Tabellenblätter einfügen gemäss Spalte

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisch Tabellenblätter einfügen gemäss Spalte

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread