Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
AW: ein 3faches super Danke..o.T
12.05.2006 14:53:49
michael
.
Anzeige
Danke für die Rückmeldung OT:-)
12.05.2006 15:12:50
Werner

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige