Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

tabellenblatt einfügen

Forumthread: tabellenblatt einfügen

tabellenblatt einfügen
03.03.2007 09:28:18
Tom
Hallo ihr Speziallisten.
Habe folgendes vor bzw auch schon erfolglos mit dem makrorecorder versucht zu realisieren.
Bei klicken auf das Drucksymbol, soll eine neue Tabelle hinter alle bereits vorhandenen eingefügt werden.
Die neu eingefügte Tabelle soll dann umbenannt werden zu "KW" + Zahl die in Tabelle 1 (Stunden) Zelle E1 steht. So dass am Ende KW 07 oder dergleichen drin steht.
Gruß Tom
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: tabellenblatt einfügen
03.03.2007 09:40:28
Veit
Hallo Tom,
das sollte eigentlich tun, was Du möchtest:
'in diese Arbeitsmappe, nicht Worksheet, nicht UF, nicht Modul
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wb1 As Workbook
Set wb1 = ThisWorkbook
wb1.Sheets.Add after:=wb1.Worksheets(wb1.Worksheets.Count)
wb1.Sheets(wb1.Worksheets.Count).Name = "KW " & wb1.Sheets(1).Cells(1, 5).Value
End Sub

Grüße
Ein Veit
Anzeige
AW: tabellenblatt einfügen
03.03.2007 11:04:46
Tom
Hallo Veit
Nachdem ich das Sheets(1) in Sheets("Stunden") umbenannte funktioniert es tadellos.
Dankeschön
Gruß Tom
AW: tabellenblatt einfügen
03.03.2007 09:45:00
Erich
Hallo Tom,
probier mal 
Option Explicit
Sub BlattNeuKW()
Dim strN As String, wks As Worksheet
strN = "KW " & Format(Sheets("Stunden").Cells(1, 5), "00")
For Each wks In ActiveWorkbook.Sheets
If wks.Name = strN Then Exit For
Next wks
If wks Is Nothing Then
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = strN
Else
MsgBox "Blatt '" & strN & "' ist schon vorhanden.", vbInformation
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: tabellenblatt einfügen
03.03.2007 11:06:00
Tom
Hallo Erich
Hab es ausprobiert die Tabellen wurden am Ende hinzugefügt, benannt wurden sie jedoch immer als Tabelle30, Tabelle 31,...
Habe nun das Script von Veit genommen.
Trotzdem Dankeschön
Gruß Tom
;

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