Thema Datum  Von Nutzer Rating
Antwort
09.06.2021 16:49:47 JJ
NotSolved
Blau letzten Button ansprechen
 09.06.2021 18:36:10 xlKing
*****
Solved
09.06.2021 18:42:33 Gast7348
*****
Solved
09.06.2021 19:00:18 Mase
*
NotSolved
10.06.2021 09:18:31 Gast65132
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
09.06.2021 18:36:10		 Views:
178		 Rating:
     
Antwort:
 Nein
Thema:
letzten Button ansprechen

Hi,

ich würde den letzten Button irgendwie hervorheben z.B. ließe sich der text farblich gestalten. Für das folgende Beispiel muss es sich bei den Buttons um normale Formularsteuerelemente handeln und nicht um ActiveX-Schaltflächen.

Sub Test()
  
  'zurücksetzen der anderen Buttons
  For Each shp In ActiveSheet.Shapes
    If shp.Type = msoFormControl Then
      If TypeName(shp.OLEFormat.Object) = "Button" Then
        With shp.OLEFormat.Object.Font
          .ColorIndex = xlAutomatic
          .Bold = False
        End With
      End If
    End If
  Next shp
  
  'markieren des zuletzt gedrückten Buttons
  With ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
    .Caption = .Caption & " X" 'markiert, dass dieser Button bereits gedrückt wurde
    .Font.Bold = True          'macht die Schrift fett
    .Font.Color = RGB(255, 0, 0) 'macht die Schrift rot
  End With
  
  ActiveWorkbook.Save 'speichert die Datei
    
  UserForm1.Show  'ruft den eigentlichen Code auf.
  
End Sub

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.06.2021 16:49:47 JJ
NotSolved
Blau letzten Button ansprechen
 09.06.2021 18:36:10 xlKing
*****
Solved
09.06.2021 18:42:33 Gast7348
*****
Solved
09.06.2021 19:00:18 Mase
*
NotSolved
10.06.2021 09:18:31 Gast65132
NotSolved