Thema Datum  Von Nutzer Rating
Antwort
04.09.2018 20:13:33 top
NotSolved
05.09.2018 17:02:04 Flotter Feger
NotSolved
Rot Grüne Häkchen nach ausführen der Schalfläche
 05.09.2018 19:43:24 top
NotSolved
05.09.2018 23:21:00 Flotter Feger
NotSolved
06.09.2018 07:32:16 Gast76236
NotSolved
06.09.2018 09:14:18 Flotter Feger
NotSolved
06.09.2018 09:17:47 Flotter Feger
NotSolved
06.09.2018 10:36:22 Gast93991
Solved

Ansicht des Beitrags:
Von:
top		 Datum:
05.09.2018 19:43:24		 Views:
513		 Rating:
     
Antwort:
  Ja
Thema:
Grüne Häkchen nach ausführen der Schalfläche		 
Hallo Flotter Feger Danke Dir erstmal für Deine Nachricht.

Unten findest Du die Codes. Das Problem ist, dass wenn ich das Makro im Codemodul laufen lasse, dann werden die Codes im Tabellenmodul nicht im anschluss ausgeführt, weil hier die
Verknüpfung fehlt. Irgendwie konnte ich bis jetzt nichts dazu finden. Hoffe Du kannst bisschen helfen. Danke Dir

Code im Arbeitsmappenmodul:

Option Explicit
Private Sub Workbook_Open()
Call Tabelle1.prcResetLabels
End Sub

Code im Tabellenmodul

Option Explicit

Private Sub Schaltfläche2_Klicken()
Call prcSetLabel(probjLabel:=Label1)
End Sub

Private Sub prcSetLabel(ByRef probjLabel As MSForms.Label)
With probjLabel
.Caption = "P"
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
End Sub

Code im Codemodul:

Public Sub Schaltfläche2_Klicken()
With Sheets("Table1")
  .Range("A1").End(xlUp).Offset(1, 0).Value = Environ("USERNAME")
End With
End Sub

 

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
04.09.2018 20:13:33 top
NotSolved
05.09.2018 17:02:04 Flotter Feger
NotSolved
Rot Grüne Häkchen nach ausführen der Schalfläche
 05.09.2018 19:43:24 top
NotSolved
05.09.2018 23:21:00 Flotter Feger
NotSolved
06.09.2018 07:32:16 Gast76236
NotSolved
06.09.2018 09:14:18 Flotter Feger
NotSolved
06.09.2018 09:17:47 Flotter Feger
NotSolved
06.09.2018 10:36:22 Gast93991
Solved