Tabelle einfügen und bezeichnen

Forumthread: Tabelle einfügen und bezeichnen
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tabelle einfügen und bezeichnen

12.05.2006 15: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)
Habs 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

AW: Tabelle einfügen und bezeichnen

12.05.2006 15:20:58

Werner
AW: Tabelle einfügen und bezeichnen

12.05.2006 15:23:25

Jan31
AW: Tabelle einfügen und bezeichnen

12.05.2006 15:29:23

Franz
AW: ein 3faches super Danke..o.T

12.05.2006 16:53:49

michael
Danke für die Rückmeldung OT:-)

12.05.2006 17:12:50

Werner

AW: Tabelle einfügen und bezeichnen

12.05.2006 15: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 15: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

AW: Tabelle einfügen und bezeichnen

12.05.2006 15: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 16:53:49

michael

Danke für die Rückmeldung OT:-)

12.05.2006 17:12:50

Werner