PDA

Vollständige Version anzeigen : Tabellenblatt per VBA immer an letzter Stelle einfügen


Tayler
27.06.2006, 19:06
Hallo.
Ich würde gerne mit einer Schleife z.B. 10 Tabellenblätter einfügen. Sie sollen aber immer an letzter Stelle eingefügt werden (z.B. 2,3,4,5,6,7,8,9,10,11). Habe mir auch schon etwas ausgedacht. Dies funktioniert aber nicht so wie ich es will. Kann mir jemand sagen, wo der Fehler liegt:

Sub Tabellenblatt_einfügen()
Dim b As Integer
Dim c As Integer
Dim d As Integer
For a = 1 To 10
b = a + 1
c = a + 3
d = 3 + a
Sheets.Add
ActiveSheet.Name = b
Worksheets(b).Move After:=Worksheets(a)
Next
End Sub

Hajo_Zi
27.06.2006, 19:32
Hallo Rayler,

' neue Tabelle anlegen hinter der letzten Tabelle
Sheets.Add After:=Worksheets(Worksheets.Count)

<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="40" alt="Homepage"></a>

Tayler
27.06.2006, 20:36
Hallo Hajo_Zi.
Danke für die schnelle Hilfe. Funktioniert jetzt einbandfrei.

Danke.

Gruß Tayler.