Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

VBA Lösung gesucht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:

VBA Lösung gesucht von Josef vom 07.04.2005 09:19:51

AW: VBA Lösung gesucht - von UweD am 07.04.2005 09:34:05
- AW: VBA Lösung gesucht - von Josef am 07.04.2005 10:01:51

Betrifft: VBA Lösung gesucht
von: Josef

Geschrieben am: 07.04.2005 09:19:51
Hallo!
Ist es bitte möglich, mittels VBA über eine Eingabebox eine gewünschte Anzahl von neuen Arbeitsblättern in die aktive Arbeitsmappe nach dem letzten vorhandenen Arbeitsblatt einzufügen ?

Danke

Josef

Betrifft: AW: VBA Lösung gesucht
von: UweD
Geschrieben am: 07.04.2005 09:34:05
Hallo Josef

so gehts:

Sub Neu()
Dim Anz%, I%
Anz = InputBox("Anzahl der neuen Tabellenblätter?")
If Anz = 0 Then Exit Sub
For I = 1 To Anz
ActiveWorkbook.Sheets.Add After:=ActiveWorkbook.Sheets(Sheets.Count)
Next I
End Sub

Gruß UweD

Betrifft: AW: VBA Lösung gesucht
von: Josef
Geschrieben am: 07.04.2005 10:01:51
Hallo Uwe!
Danke für Deine Lösung.

Josef