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

Makro zum autom. Erstellen weiterer Tabellenbl.

Makro zum autom. Erstellen weiterer Tabellenbl.
16.05.2006 10:35:33
stefanseevetal
Hallo!
Ich möchte per Button
- ein neues Tabellenblatt erstellen,
- dieses Tabellenblatt automatisch umbenennen in "Protokoll 2", beim nächsten dann "Protokoll 3" usw (bei jedem Klick auf den Button soll also ein neues Tabellenblatt entstehen mit jeweils dem Namen "Protokoll + um eins höhere Zahl")
- dann soll automatisch der Inhalt des ersten Tabellenblattes in das neue hineinkopiert werden
Hat da vielleicht jemand eine Idee?
Vielen Dank und Gruß,
Stefanseevetal

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

Betreff
Datum
Anwender
Anzeige
AW: Makro zum autom. Erstellen weiterer Tabellenb
16.05.2006 10:40:47
Matthias
Hallo Stefan,
z.B. mit diesem Code:

Sub NeuesBlatt()
Worksheets(1).Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = NeuerName
End Sub
Function NeuerName() As String
Dim i As Integer, sh As Worksheet, n As String
On Error Resume Next
i = 1
Do
n = "Protokoll " & i
Set sh = Sheets(n)
If Err.Number > 0 Then
NeuerName = n
Exit Do
End If
i = i + 1
Loop Until 1 = 2 'Endlos
End Function

Gruß Matthias
AW: Makro zum autom. Erstellen weiterer Tabellenb
16.05.2006 10:52:40
stefanseevetal
Hallo Matthias! Vielen Dank, es funktioniert super!
Gruß, stefanseevetal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige