Thema Datum  Von Nutzer Rating
Antwort
06.07.2018 13:51:35 yav
NotSolved
Blau checkbox nach ausführung des Befehls
 06.07.2018 17:16:10 Gast6134
NotSolved
06.07.2018 17:47:42 Gast39368
NotSolved
12.07.2018 11:54:20 Gast7951
NotSolved
12.07.2018 16:41:48 Yav
NotSolved
12.07.2018 23:53:50 Gast57242
NotSolved
16.08.2018 16:31:54 yav
NotSolved
18.08.2018 23:55:32 Gast92490
NotSolved
03.09.2018 11:28:30 yav
Solved

Ansicht des Beitrags:
Von:
Gast6134		 Datum:
06.07.2018 17:16:10		 Views:
617		 Rating:
     
Antwort:
  Ja
Thema:
checkbox nach ausführung des Befehls

Hallo,

ja, da gibt's mehrere Möglichkeiten, bspw. ein Haken in der Nachbarzelle oder in einem Label, das sähe so aus:

Füg dazu ActiveX-Labels neben Deinen Buttons ein, dann folgender Code in Dein Tabellenblattmodul:

Option Explicit

Private Sub CommandButton1_Click()
Call prcSetLabel(probjLabel:=Label1)
End Sub

Private Sub CommandButton2_Click()
Call prcSetLabel(probjLabel:=Label2)
End Sub

Private Sub CommandButton3_Click()
Call prcSetLabel(probjLabel:=Label3)
End Sub

Private Sub prcSetLabel(ByRef probjLabel As MSForms.Label)
With probjLabel
   .Caption = "P"
   .TextAlign = fmTextAlignCenter
   .SpecialEffect = fmSpecialEffectSunken
   .ForeColor = &H1DF3A
   With .Font
        .Name = "Wingdings 2"
        .Size = 20
   End With
End With
End Sub

Friend Sub prcResetLabels()
   Dim objOLEObject As OLEObject
   For Each objOLEObject In OLEObjects
       With objOLEObject
            If .progID = "Forms.Label.1" Then _
               .Object.Caption = vbNullString
       End With
   Next
   Call ThisWorkbook.Save
End Sub

Und dieser Code in Dein Arbeitsmappenmodul('DieseArbeitsmappe'):

Option Explicit

Private Sub Workbook_Open()
Call Tabelle1.prcResetLabels '// Tabelle anpassen...!!
End Sub

Gruß,

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
06.07.2018 13:51:35 yav
NotSolved
Blau checkbox nach ausführung des Befehls
 06.07.2018 17:16:10 Gast6134
NotSolved
06.07.2018 17:47:42 Gast39368
NotSolved
12.07.2018 11:54:20 Gast7951
NotSolved
12.07.2018 16:41:48 Yav
NotSolved
12.07.2018 23:53:50 Gast57242
NotSolved
16.08.2018 16:31:54 yav
NotSolved
18.08.2018 23:55:32 Gast92490
NotSolved
03.09.2018 11:28:30 yav
Solved