Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
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
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CommandButton Namen ändern - Nicht Caption

Forumthread: CommandButton Namen ändern - Nicht Caption

CommandButton Namen ändern - Nicht Caption
01.09.2005 15:37:39
Micky
Hallo Forum!
Hier meine Frage:
Wie kann ich den Namen(nicht die Caption) eines Steuerelemts ändern?
Mit dem Code.....
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=29.25, Top:=248.25, Width:=113.25,_
Height:=22.5).Select
With Selection
.Name = CommandButton1111
End With
....gehts leider nicht!!!
Hat jemand die Lösung für mein Problem?
Danke und gruß
Micky
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CommandButton Namen ändern - Nicht Caption
01.09.2005 15:53:56
Nepumuk
Hallo Micky,
wenn du nicht im Entwursmodus bist, kann ein ActiveX - Control nicht selektiert werden. Das musst du über eine Objektvariable machen:
Public Sub TEST()
    Dim objOLEObject As Object
    Set objOLEObject = ActiveSheet.OLEObjects.Add(ClassType:= _
        "Forms.ToggleButton.1", Link:=False, _
        DisplayAsIcon:=False, Left:=29.25, _
        Top:=248.25, Width:=113.25, _
        Height:=22.5)
    objOLEObject.Name = "TEST"
    Set objOLEObject = Nothing
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: CommandButton Namen ändern - Nicht Caption
01.09.2005 15:58:01
Micky
Hallo Nepumuk,
Es funktioniert!!!
Ein riesiges Merci!!!
Beste Grüße
Micky
Name klappt, caption geht dafür nicht!!!
01.09.2005 17:00:41
Micky
Hallo Nepomuk,
ich hab jetzt allerdings doch noch ein kleines Problem :-(
Und zwar würde ich natürlich auch gerne die Caption ändern, und zwar so:

Sub TEST()
i = 100
For a = 2 To 7
b = Sheets(a).Name Like "*_*_*"
If b = True Then
If i = 100 Then
Dim objOLEObject As Object
Set objOLEObject = ActiveSheet.OLEObjects.Add(ClassType:= _
"Forms.ToggleButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=29.25, _
Top:=248.25, Width:=113.25, _
Height:=22.5)
objOLEObject.Name = "ToggleButton" & i
ToggleButton100.Caption = Sheets(a).Name
Set objOLEObject = Nothing
End If
End If
i = i + 1
Next a
End Sub

Allerdings, habe ich keine Chance die Caption zu ändern, solange das Makro noch "aktiv ist". Wenn ich die Caption des ToggleButton mit einem extra button ändern will, dann gehts ganz normal!!
Warum gehts nicht im Makro?
Schon mal im Voraus: VIELEN DANK!!!
Gruß Micky
Anzeige
AW: Name klappt, caption geht dafür nicht!!!
01.09.2005 17:08:18
Fred
Hi,
objOLEObject.Caption = Sheets(a).Name
mfg Fred
AW: Name klappt, caption geht dafür nicht!!!
01.09.2005 17:19:32
Nepumuk
Hi Fred,
knapp daneben ist auch vorbei :-)
Sub TEST()
    Dim i As Integer, a As Integer, b As Boolean
    Dim objOLEObject As Object
    i = 100
    For a = 2 To 7
        b = Sheets(a).Name Like "*_*_*"
        If b = True Then
            If i = 100 Then
                
                Set objOLEObject = ActiveSheet.OLEObjects.Add(ClassType:= _
                    "Forms.ToggleButton.1", Link:=False, _
                    DisplayAsIcon:=False, Left:=29.25, _
                    Top:=248.25, Width:=113.25, _
                    Height:=22.5)
                objOLEObject.Name = "ToggleButton" & i
                objOLEObject.Object.Caption = Sheets(a).Name
                Set objOLEObject = Nothing
            End If
        End If
        i = i + 1
    Next a
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: Name klappt, caption geht dafür nicht!!!
01.09.2005 21:20:54
Micky
Hey Leute!
Vielen Dank, ihr seit die Besten :-)
Viele Grüße
Micky
;

Forumthreads zu verwandten Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
AutoFill funktioniert nicht mehr
Anna

Hallo
schon oft habe ich die AutoFill-Methode benutzt und immer lief es einwandfrei, doch auf einmal bekomme ich immer eine Fehlermeldung
"Laufzeitfehler '1004': Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ich hab schon alles ausprobiert, deswegen glaub...
26.11.2008 10:44:00
Thread-ID: 1027953
2 Beiträge
Anzeige
Dateien auslesen funktioniert nicht mehr
Roland

Hallo VBA-Profis
ich lese mit untenstehendem Code alle zip-Dateien aus einem Verzeichnis aus. Ich habe das ganze auf einem Computer programmiert, auf dem Office 2000 installiert ist. Der ganze Code läuft einwandfrei.
Auf meinem anderen Computer, auf dem Office 2003 installiert ist, funk...
10.03.2009 11:10:53
Thread-ID: 1058528
3 Beiträge
Formel funktionieren nicht mehr!!`????
nino

Hallo, kann mir jemand sagen, was ich falsch gemacht habe?
Die formel funktionieren seit gestern nicht mehr! Bis gestern mitag ist alles gelaufen!?
Ich bedanke mich im Voraus! Nino.
Die Datei https://www.herber.de/bbs/user/60480.xls wurde aus Datenschutzgründen gelöscht
19.03.2009 23:30:43
Thread-ID: 1062003
7 Beiträge
To-Do Liste Code funktioniert nicht mehr? Wieso?
Jessi

https://www.herber.de/bbs/user/62106.xls
Hallo zusammen,
die oben gelinkte Datei sollte eigentlich beim Drücken des "START-BUTTONS" eine E-Mail versenden, sofern die Deadline überschritten wurde. Irgendwie funktioniert nichts? Woran kann das liegen? Dieser Code lief vor 2 Monaten in ei...
28.05.2009 19:15:48
Thread-ID: 1078037
6 Beiträge
Anzeige
CommandButton in UF via Array; nicht aktivierbar
Andreas

Hallo Herber Fans,
Ich habe heute entdeckt, OK, für die Profis unter Euch ist das sicherlich nicht neu, daß man UserForms mit Hilfe von Arrays erstellen kann. Es ist m.E. nach übersichtlicher und geht schneller. Gerade in der Verwendung von CheckBoxes und Optionbuttons.
Nun will ich auc...
03.06.2009 14:50:18
Thread-ID: 1078891
5 Beiträge
Code funktioniert nicht mehr
Roland

Hallo zusammen,
seit langem musste ich mal wieder ein Makro aufzeichnen und auch etwas schreiben.
Ich hab vor einiger Zeit schon mal was programmiert in Excel 2002.
Jetzt wollte ich diesen Code in Excel 2003 verwenden, dabei meldet mir Excel aber immer ein Fehler.
Genauer ge...
17.09.2009 19:26:56
Thread-ID: 1103685
5 Beiträge
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge
Anzeige
Warum funktioniert Makro nicht mehr?
Frank

Hallo Zusammen!
Bin ratlos! Bislang funzte folgender Code Problemlos. Öffne heute die Datei und es funzt nicht mehr. Weiß jemand Rat?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim RaBereich As Range Set RaBereich = Range("I:I, K:K") If Not Intersect(Range(Target...
19.03.2010 20:43:07
Thread-ID: 1147202
4 Beiträge
"Dateioeffnen" in VBA funktioniert nicht mehr
Thilo

Hallo zusammen,
ich habe via VBA programmiert, dass ich eine bestimmte Datei per Explorer-Ansicht auswählen kann.
Dies habe ich via "Dateioeffnen" realisiert und bislang hat das auch immer einwandfrei geklappt.
Seit kurzem geht das nicht mehr - ich bekomme die Fehlermeldung:
"F...
14.04.2010 11:15:53
Thread-ID: 1151703
7 Beiträge
CommandButton startet UserForm nicht
Holger

Guten Morgen an Alle,
ich habe ein "UserForm1" mit einigen Feldern. Wenn ich die UserForm aus dem VB-Editor starte läuft alles fehlerfrei.
Wenn ich allerdings die UserForm1 über einen CommandButton in Tabelle1 starten will, bekomme ich immer den Laufzeitfehler '1004' - Anwendungs- oder...
28.04.2010 09:33:11
Thread-ID: 1154222
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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