Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.09.2018 20:13:33 |
top |
|
|
|
05.09.2018 17:02:04 |
Flotter Feger |
|
|
|
05.09.2018 19:43:24 |
top |
|
|
|
05.09.2018 23:21:00 |
Flotter Feger |
|
|
|
06.09.2018 07:32:16 |
Gast76236 |
|
|
Grüne Häkchen nach ausführen der Schalfläche |
06.09.2018 09:14:18 |
Flotter Feger |
|
|
|
06.09.2018 09:17:47 |
Flotter Feger |
|
|
|
06.09.2018 10:36:22 |
Gast93991 |
|
|
Von:
Flotter Feger |
Datum:
06.09.2018 09:14:18 |
Views:
500 |
Rating:
|
Antwort:
|
Thema:
Grüne Häkchen nach ausführen der Schalfläche |
Hallo,
den Code in DieseArbeitsmappe
Private Sub Workbook_Open()
Call prcResetLabels
End Sub
den Code in Modul1
Sub Schaltfläche1_Klicken()
Call prcSetLabel(probjLabel:=Tabelle1.Label1)
End Sub
Sub Schaltfläche2_Klicken()
Call prcSetLabel(probjLabel:=Tabelle1.Label2)
End Sub
Private Sub prcSetLabel(ByVal probjLabel As Object)
With probjLabel
.Object.Caption = "P"
End With
End Sub
Public 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
End Sub
VG Sabina
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
04.09.2018 20:13:33 |
top |
|
|
|
05.09.2018 17:02:04 |
Flotter Feger |
|
|
|
05.09.2018 19:43:24 |
top |
|
|
|
05.09.2018 23:21:00 |
Flotter Feger |
|
|
|
06.09.2018 07:32:16 |
Gast76236 |
|
|
Grüne Häkchen nach ausführen der Schalfläche |
06.09.2018 09:14:18 |
Flotter Feger |
|
|
|
06.09.2018 09:17:47 |
Flotter Feger |
|
|
|
06.09.2018 10:36:22 |
Gast93991 |
|
|