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

Schrift für CommandButtons nicht fett darstellen

Forumthread: Schrift für CommandButtons nicht fett darstellen

Schrift für CommandButtons nicht fett darstellen
29.11.2024 20:41:16
Klaus B aus D
Hallo,

es will nicht klappen, in einer kleinen Schleife das Schriftattribut "fett" auf "normal" zu setzen. 
    Dim ctrl As Controls

    

    For Each ctrl In UserForm1.Controls

      If Left(ctrl.Name, 5) = "cmdHK" Then

        ctrl.Name = ctrl & (i)

        ctrl.FontBold = False

      End If

    Next
Wo könnte sich der Fehler verstecken?
In der Fehlermeldung heißt es: "Argument ist nicht optional."

Gruß Klaus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Schrift für CommandButtons nicht fett darstellen
29.11.2024 20:44:45
daniel
ctrl.Font.Bold = False
AW: Schrift für CommandButtons nicht fett darstellen
30.11.2024 01:15:21
Ulf
Hi,
hier mal ein Auszug der funzt 


Private Sub cmdHK1_Click()

    noBold

    Me.cmdHK1.Font.Bold = True

End Sub



Private Sub cmdHK5_Click()

    noBold

    Me.cmdHK5.Font.Bold = True

End Sub



Private Sub cmdHK9_Click()

    noBold

    Me.cmdHK9.Font.Bold = True

End Sub



Private Sub UserForm_Initialize()

    noBold

End Sub



Private Sub noBold()

    Dim ctrl As Control

    Dim i As Integer

    For Each ctrl In UserForm1.Controls

        If Left(ctrl.Name, 5) = "cmdHK" Then

            i = i + 1

            ' wg Faulheit ctrl.Caption = "HK " & CStr(i)

            ctrl.FontBold = False

        End If

    Next

End Sub

hth
Ulf
Anzeige
AW: Schrift für CommandButtons nicht fett darstellen
30.11.2024 01:37:31
Klaus B aus D
Hallo Ulf,

ich bin verblüfft! Es klappt (wie du bereits vorausgesagt hast).
Besten Dank.

Gruß Klaus
AW: Schrift für CommandButtons nicht fett darstellen
29.11.2024 22:40:03
Klaus B aus D
Hallo Daniel,

den Vorschlag habe ich übernommen, die Fehlermeldung bleibt aber dieselbe.
Der Begriff "ctrl" vor dem &-Zeichen wird markiert.

Gruß Klaus
AW: Schrift für CommandButtons nicht fett darstellen
29.11.2024 23:59:58
volti
Hallo Klaus,

Daniel hat Dir ja schon den richtigen Tipp zum Entfetten des Textes gegeben. Es fehlte ein Punkt.

Allerdings hast Du ja noch einen weiteren Fehler drin:

Crtl ist ein Objekt, welches verschiedene Eigenschaften hat, die durch einen Punkt abgetrennt sind, wie z.B. den Namen .Name.

Da kannst Du nicht einfach eine Zahl anhängen, wobei der Wert in i ja auch immer gleich ist, nämlich 0.

Wenn der Name des Objektes immer eine aufsteigende Nummer sein soll, müsste es so heißen: 


Dim ctrl As Controls

    

 For Each ctrl In UserForm1.Controls

      If Left(ctrl.Name, 5) = "cmdHK" Then

        ctrl.Name = ctrl.Name &  i

         i=i+1

        ctrl.Font.Bold = False

      End If

Next


Aber Dein Anliegen zur Namensgebung ist mir hier nicht nachvollziehbar.

Gruß
Karl-Heinz
Anzeige
AW: Schrift für CommandButtons nicht fett darstellen
30.11.2024 00:32:02
Klaus B aus D
Hallo Karl-Heinz,

ich habe eine UserForm2 angelegt und deinen angepassten Code beim Ereignis "Initialize" eingefügt.
Nun erhalte ich einen anderen Fehler als gerade. Laufzeitfehler '13': Typen unverträglich.

Zu deiner Frage nach dem Sinn des Codes:
In der UserForm sind 9 quadratische Befehlsschaltflächen in einem 3 x 3-Raster aufgebaut. Sobald der Anwender einen Button betätigt, wird ein zugehöriges Multipage-Objekt zwecks Dateneingabe eingeblendet. Um zu erkennen, welcher Hauptkontrollpunkt (= HK 1 ... HK 9) gerade in Bearbeitung ist, soll die Caption nur für diesen Button das Attribut "fett" behalten.
Die Namen der Schaltflächen lauten z. B. "cmdHK4" oder "cmdHK7".

Gruß Klaus

Userbild
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum