Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
848to852
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige