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