Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CodeName lässt sich ändern nur bei Alt+F11

Forumthread: CodeName lässt sich ändern nur bei Alt+F11

CodeName lässt sich ändern nur bei Alt+F11
29.08.2018 16:51:32
Eisenmann
Hallo zusammen, woran kann es liegen, das der CodeName bei neu angelegtem Datenblatt nicht angelegt werden kann solange Entwicklungsumgebung (Alt+F11) nicht sichtbar ist?
In der CodeName Zuweisungszeile wird der "Laufzeitfehler '9' Index außerhalb des gültigen Bereichs" ausgegeben. Sobald die Entwicklungsumgebung geöffnet wird, läuft der Code einwandfrei weiter. Habe viele verschiedene Schreibweisen ausprobiert, keine hat geholfen. Hier nur eine der vielen ausprobierten Schreibweisen:
With ThisWorkbook
.Worksheets.Add.Name = "Mysheet"
.VBProject.vbcomponents(Worksheets("Mysheet").CodeName).Name = "My_CodeName"
End with
' alternativ
' ThisWorkbook.VBProject.vbcomponents("Mysheet").Properties(5).Value = "My_CodeName"
' With Application.ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
' .Name = "My_CodeName"
' End With
' u.v.m.- das Ergebnis ist immer das gleiche.
Danke für eure RM!
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CodeName lässt sich ändern nur bei Alt+F11
29.08.2018 17:39:10
onur
Siehe Micosoft:
Worksheet.CodeName-Eigenschaft (Excel)
office 365 dev account|Zuletzt aktualisiert: 05.12.2017|1 Mitwirkender
Gibt den Codenamen für das Objekt zurück. Schreibgeschützter String -Wert.
AW: CodeName lässt sich ändern nur bei Alt+F11
29.08.2018 18:09:47
Nepumuk
Hallo Eisenmann,
das lässt sich per VBA umgehen:
Option Explicit

Private lobjWorksheet As Worksheet

Public Sub test()
    With ThisWorkbook
        Set lobjWorksheet = .Worksheets.Add(After:=.Worksheets(1), Type:=xlWorksheet)
    End With
    Call Application.OnTime(EarliestTime:=Now, Procedure:="ReName", Schedule:=True)
End Sub

Private Sub ReName()
    Application.VBE.MainWindow.Visible = True
    ThisWorkbook.VBProject.VBComponents(lobjWorksheet.CodeName).Name = "XXX"
    Application.VBE.MainWindow.Visible = False
End Sub

Gruß
Nepumuk
Anzeige
AW: CodeName lässt sich ändern nur bei Alt+F11
29.08.2018 18:20:50
Eisenmann
Hallo Nepumuk, besten dank! Ich glaube, so könnte es auch funktionieren. Ich habe mittlerweile so gelöst, dass vor der CodeName Änderung jede Componente durch eine Schleife "sinnlos" abgefragt wird. Dann funktioniert es bei mir:
For Each comp In .VBProject.vbcomponents
Next
Danke für eure RM!
Eisenmann
Anzeige
AW: CodeName lässt sich ändern nur bei Alt+F11
29.08.2018 22:28:02
Mullit
Hallo,
machs doch besser so: 
With ThisWorkbook
.Worksheets.Add.Name = "Mysheet"
.VBProject.VBComponents(.VBProject.VBComponents.Count).Name = "My_CodeName"
End With

Gruß, Mullit
AW: CodeName lässt sich ändern nur bei Alt+F11
30.08.2018 13:58:54
Eisenmann
Hallo Mullit, das ist die eleganteste Lösung, spitze! Habe übernommen. Danke!!!
Gruß, Eisenmann
Anzeige
;

Forumthreads zu verwandten Themen

Schaltfläche funktioniert bei Blattschutz nicht
manuela

hallo
möchte die daten aus einer sql-datenbank mittels makro aktualisieren. dazu hebe ich zuerst den blattschutz auf, aktualisiere und setze den blattschutz wieder. das makro läuft einwandfrei. sobald ich es aber mit einer userform auf dem blatt selbst verknüpfe, kriege ich eine fehlermeldu...
04.02.2009 11:12:30
Thread-ID: 1046940
5 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Spalten 2er Tab vergleichen + Werte einfügen
Thomas

Hallo,
so nun muß ich doch fragen - dachte zwar ich bekomme es selbst hin und habe herumprobiert aber da bin ich wohl zu blond zu.
Ich habe zwei Tabellen
In Tabelle 1 stehen in Spalte Z die Artikelnummern und in Spalte AI die BildURL
In Tabelle 2 stehen in Spalte A die Artikelnu...
21.06.2010 11:17:02
Thread-ID: 1163085
10 Beiträge
Strg-S & Alt F11 unterbinden
ChrisWat

Hallo Excel User,wie kann ich wenn ich die Commandbars(1).control(...).enanble = false und .visable = false setze verhinden, das die Tastenkombinatioen Strg-S & Alt F11 noch funktionierenDanke für eure Hilfe Chris
05.05.2002 11:44:33
Thread-ID: 118600
4 Beiträge
Format ein + ausschalten
Heinz

Hallo Leute
Habe ein Makro zum ein + ausschalten von Format.
Warum funktioniert ColUnLock nicht sofort.
Habe im Sheets "Jänner 2 OptionButton.
OptionButton1 reagiert sofort und sperrt mir die Formatierungen.
OptionButton2 reagiert aber erst nach klick,dann in anderen Sheets...
16.12.2010 18:20:26
Thread-ID: 1191819
8 Beiträge
Benutzerdef. Schaltfläche + Symbolleiste in 2010 ?
Micha

Hallo liebe Spezialisten,
Nach dem Umstieg von Excel 93 auf 2010 bin ich ein wenig verwirrt.
In Excel 93 war es recht einfach eine benutzerdefinierte Schaltfläche in einer eigenen Symbolleiste zu erstellen, und dann diese Symbolleiste der Datei anzufügen.
Aber wie klappt das in Exce...
04.04.2011 13:23:25
Thread-ID: 1208914
2 Beiträge
Anzeige
XLTM gesopeichert - lässt sich nicht öffnen
urs

Hallo zusammen
Habe eine Vorlage erstellt und als *.XLTM abgespeichert. Wenn ich die Vorlagei wieder über DATEI NEU öffnen will, geht das nicht.
Vielen Dank für Hilfe
Urs
14.07.2011 13:56:14
Thread-ID: 1222072
4 Beiträge
Office365 mit VBA möglich?
Franz

Hallo liebe "Excellisten"!
hat jemand schon sich getraut seine VBA-Entwicklung (mit PW geschützt oder auch nicht) in eine "Wolke" zu beamen? Wer hat bereits Erfahrungen damit?
Grüße
Franz D.
16.10.2011 01:18:19
Thread-ID: 1234007
3 Beiträge
OnKey Belegung 'ALT + v' funktioniert nicht
Andreas

Hallo Herber Fans,
ich bin gerade auf ein krudes Problem gestoßen. Ich versuche in Excel den ShortCut Alt + v zu belegen, aber es klappt nicht. Wenn ich einen anderen Buchstaben verwende, dann funktioniert es. Aber ich habe durch Recherchen nicht ermitteln können, daß diese Tastaturkombinat...
17.10.2011 16:11:57
Thread-ID: 1234230
5 Beiträge
Anzeige
Sendkeys %{F11} geht nicht
norman

Hallo alle,
habe ein komisches Phänomen. Habe eine XLS mit Macro. Diese wird in 2010 geladen. Das Macro wird ausgeführt. Es wird eine zweite XLS geladen. Dort soll das Passwort für den VBA-Code gesetzt werden.
In Excel2003 mach ich das so:
SendKeys "%xkv%xi{TAB 9}{RIGHT}{tab}a{tab}"...
11.01.2012 01:16:50
Thread-ID: 1245578
4 Beiträge
Password unprotect funktioniert nicht!
Sayjuri

Guten Morgen zusammen,
ich habe folgendes Problem:
Ich würde gerne ein Makro trotz bestehenden Blattschutzes ausführen. Und bitte erschlagt mich jetzt nicht sofort in Gedanken. Ich weiß, dass dieses Thema bereits zu genüge in diversen Foren behandelt worden ist, nur leider scheint der...
13.05.2012 11:28:44
Thread-ID: 1263293
22 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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