Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
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
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neue Tabelle mit bestimmten Codename

Neue Tabelle mit bestimmten Codename
Zapemo
Guten Tag
Ist es überhaupt möglich, mit VBA ein neues Tabellenblatt mit einem bestimmten Codename zu erstellen.
Beim suchen im Internet fand ich nur Hinweise, dass das Aendern mit VBA nicht möglich ist. Aber kein Hinweis bei einem neuen Blatt
Besten Dank
Peter

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

Betreff
Benutzer
Anzeige
AW: Neue Tabelle mit bestimmten Codename
12.09.2012 11:57:55
Rudi
Hallo,
z.B. 
Sub aaa()
Dim wks As Worksheet, iCounter As Integer
For iCounter = 1 To 3
Set wks = Worksheets.Add
wks.Name = "Test" & iCounter
With ActiveWorkbook.VBProject.VBComponents(wks.CodeName)
.Properties("_CodeName").Value = wks.Name
End With
Next
End Sub

Der Zugriff auf das Projekt muss erlaubt sein.
Gruß
Rudi

AW: Neue Tabelle mit bestimmten Codename
12.09.2012 12:02:42
mäxl
Hi
doch das geht nur muss zusätzlich bei Makrosicherheit der Haken bei VBA-Projektobjektmodell gesetzt sein
so z.B
Sub add_tbl()
Dim sh As Worksheet
Set sh = Sheets.Add(after:=Sheets(Sheets.Count))
sh.Name = Format(Now(), "mmss")
ThisWorkbook.VBProject.VBComponents(sh.Name).Properties(5).Value = "tbl_new"
End Sub
code ist ohne Fehlerbehandlung!
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige