Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle einfügen und bezeichnen

Forumthread: Tabelle einfügen und bezeichnen

Tabelle einfügen und bezeichnen
12.05.2006 13:13:44
michael
Als Gruß bring ich die Sonne aus der Steiermark mit.
Einfügen von Tabellen.

Sub einfuegen()
Dim anzahl As Integer
Dim i As Integer
anzahl = 1       '   ändere ich per hand
For i = 1 To anzahl
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
Next
End Sub

meine bitte:
Wenn ich jetzt z.B. 10 Tabellen einfüge möchte ich bevor er.. Next ..ausführt
die gerade eingefügte Tabelle „Benamen“ (grins)
Hab’s mit dem Recorder versucht in o.a.Makro einzubinden
ein Erfolg war mir nicht gegönnt !
Vielleicht mit eurer Hilfe ,
Danke….. michael
aus der sonnigen Steiermark
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle einfügen und bezeichnen
12.05.2006 13:20:58
Werner
Hallo Michael
Hier ein Anhaltspunkt.

Sub Tabelle_einfügen()
x = 5
For i = 1 To x
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Miachael" & i
Next i
End Sub

Gruss Werner
AW: Tabelle einfügen und bezeichnen
12.05.2006 13:23:25
Jan31
Hi,
Über zwei Inputboxxen würde ich Dein Problem schnell lösen.

Sub einfuegen()
Dim anzahl As Integer
Dim i As Integer
anzahl = InputBox("Anzahl Tabellenblätter?")
For i = 1 To anzahl
WSName = InputBox("Tabellenblattname eingeben!")
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
If WSName = "" Then
MsgBox "Kein Tabellenblattname eingegeben!Abbruch!"
Else
ActiveSheet.Name = WSName
End If
Next
End Sub

Jan
Anzeige
AW: Tabelle einfügen und bezeichnen
12.05.2006 13:29:23
Franz
Hallo Michael
mit folgenden Anpassung wird dein Makro flexibel.
Die Anzahl Blätter und die Blattnamen werden per Eingabeboxen festgelegt.

Sub einfuegen()
Dim anzahl As Integer
Dim i As Integer
anzahl = Val(InputBox("Anzahl Tabellenblätter: ", , 1))
If anzahl = 0 Then Exit Sub
For i = 1 To anzahl
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = InputBox("Name neues Blatt:", , "Tabelle" & Worksheets.Count)
Next
End Sub

Gruß aus dem ebenfalls sonnigen Norden Bayerns
Franz
Anzeige
AW: ein 3faches super Danke..o.T
12.05.2006 14:53:49
michael
.
Danke für die Rückmeldung OT:-)
12.05.2006 15:12:50
Werner
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige