Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Lösung gesucht

VBA Lösung gesucht
07.04.2005 09:19:51
Josef
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Lösung gesucht
07.04.2005 09:34:05
UweD
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
AW: VBA Lösung gesucht
07.04.2005 10:01:51
Josef
Hallo Uwe!
Danke für Deine Lösung.
Josef
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige