VBA Lösung gesucht

• 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

Beiträge aus den Excel-Beispielen zum Thema "... blinkende Zelle bei neuem Kommentar ..."