Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt xmal kopieren

Forumthread: Tabellenblatt xmal kopieren

Tabellenblatt xmal kopieren
01.06.2006 21:50:31
Haegi
Hallo zusammen.
Brauche wieder mal eure Hilfe.
Ich habe eine Tabelle und möchte sie x-mal kopieren bzw. immer ein neues Blatt(Register). Gibt es eine Möglichkeit die schneller geht als immer mit dem Befehl "Verschieben/Kopieren"
Brauche manchmal 15 und manchmal 50 Blätter.
Vielen Dank im voraus.
Gruss Haegi
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt xmal kopieren
01.06.2006 22:27:29
Franz
Hallo Haegi,
folgendes Makro hilft dir weiter. Das Makro in die "Perönliche Makroarbeitsmappe" kopieren; so hast du jederzeit Zugriff auf das Makro. 

Sub Tabellenkopieren()
Dim wks As Worksheet, Anzahl As Integer, I As Integer
Set wks = ActiveSheet
Anzahl = Val(InputBox("Wieviele Kopien?", "Tabellenblätter kopieren", "1"))
If Anzahl = 0 Then Exit Sub 'Button "Abbrechen" geklickt oder keine Zahl eingegeben
For I = 1 To Anzahl
wks.Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = wks.Name & I
Next
End Sub

mfg
Franz
Anzeige
AW: Tabellenblatt xmal kopieren
01.06.2006 23:19:06
Haegi
Hallo
Bin glücklich VBA von Franz hat funktioniert. DANKE.
Dank auch an Rainer.
Habe noch eine Frage: Kann mann die Standarteinstellung vom Menü "Blatt schützen" irgendwo ändern. Damit ich nicht jedesmal meine gewünschten Häcklein setzen bzw. entfernen muss.
Gruss Haegi
AW: Tabellenblatt xmal kopieren
01.06.2006 22:27:32
Ramses
Hallo
Probier mal
Sub AddSheets()
    Dim n As Integer, i As Integer
    On Error Resume Next
    n = InputBox("Wieviele Blätter ?", "Blätter hinzufügen", 15)
    If n = 0 Then Exit Sub
    On Error GoTo 0
    Application.ScreenUpdating = False
    For i = 1 To n
        Worksheets.Add after:=Worksheets(Worksheets.Count)
    Next i
    Application.ScreenUpdating = True
End Sub
Gruss Rainer
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige