Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.FindControl(ID:=300011).Enabled = FALSE

.FindControl(ID:=300011).Enabled = FALSE
Konni
Hallo Freaks,
warum funktioniert ".FindControl(ID:=300011).Enabled = FALSE" (Daten) nicht. Bei den anderen IDs klappt's!
Vielen Dank und viele Grüße:
Konni

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

Betreff
Benutzer
Anzeige
AW: .FindControl(ID:=300011).Enabled = FALSE
10.08.2007 15:38:15
Ramses
Hallo
weil es diese ID nicht gibt.
VBA ist sehr akribisch, daher auf Schreibfehler achten.
30011
Gruss Rainer

AW: .FindControl(ID:=300011).Enabled = FALSE
10.08.2007 15:53:57
Konni
Hallo Rainer,
ich habe zum Finden aller IDs ein Programm von Nepomuk benutzt. Es listet alle IDs auf. Für den Menuepunkt "Daten" halt die besagte ID.
Kennst Du die hierfür erforderliche ID?
Danke und Gruß: Konni

AW: .FindControl(ID:=300011).Enabled = FALSE
10.08.2007 17:04:38
Ramses
Hallo
liest du eigentlich was ich im Beitrag schreibe ?
Gruss Rainer

Ein beschämendes Ende :-(
10.08.2007 17:33:00
Konni
Hallo Rainer,
jetzt trifft es mich selber: Lesen müsste man können! Sorry :-(
Danke und viele Grüße: Konni

Anzeige
AW: .FindControl(ID:=300011).Enabled = FALSE
10.08.2007 15:58:05
Konni
Hier der Code von Nepomuk:
Public Sub Id_Liste_erstellen() Dim Leiste As CommandBar, Zähler As Integer, BarIdx As Integer Dim cmbcSteuerelement As CommandBarControl, Zeile As Long, Spalte As Integer BarIdx = 1 For Each Leiste In Application.CommandBars Cells(BarIdx, 1) = Leiste.Name Cells(BarIdx, 2) = Leiste.NameLocal For Zähler = 1 To Leiste.Controls.Count With Leiste.Controls(Zähler) Cells(BarIdx + Zähler, 1) = .ID Cells(BarIdx + Zähler, 2) = .Caption End With Next Zähler BarIdx = BarIdx + Zähler + 1 Next For Zeile = 2 To Cells(65536, 1).End(xlUp).Row If IsNumeric(Cells(Zeile, 1)) And Trim(Cells(Zeile, 1)) "" Then Spalte = 3 For Each cmbcSteuerelement In Application.CommandBars("Worksheet Menu Bar"). _ Controls(CStr(Cells(Zeile, 2))).Controls With cmbcSteuerelement Cells(Zeile, Spalte) = .ID Cells(Zeile, Spalte + 1) = .Caption End With Spalte = Spalte + 2 Next Else Exit For End If Next Columns.AutoFit End Sub


Gruß: Konni

Anzeige
Lass den Code doch laufen...
10.08.2007 17:04:00
Ramses
Hallo
zeigen alleine bringt nichts.
Wenn du den Code mal laufen lassen würdest und dann auch noch das Ergebnis lesen, dann würdest du das hier sehen
Daten

 AB
1Worksheet Menu BarArbeitsblatt-Menüleiste
230002&Datei
330003&Bearbeiten
430004&Ansicht
530005&Einfügen
630006Forma&t
730007E&xtras
830011Date&n
930083A&ktion
1030009&Fenster
1130010&?
121EJH4
131Ado&be PDF


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige