Thema Datum  Von Nutzer Rating
Antwort
10.03.2020 12:31:32 Sebastian
NotSolved
10.03.2020 12:32:31 Gast96907
NotSolved
10.03.2020 15:35:25 Gast73147
NotSolved
10.03.2020 17:21:39 Gast0815
NotSolved
10.03.2020 17:25:06 Gast01234
NotSolved
11.03.2020 19:40:39 xlKing
NotSolved
11.03.2020 20:03:32 Mase
NotSolved
17.03.2020 15:51:03 Sebastian
NotSolved
17.03.2020 20:00:10 Gast48180
***
NotSolved
Blau Userform mit dynamischen Labeln - Funktion zuweisen
 17.03.2020 20:02:24 Gast9933
***
NotSolved
18.03.2020 19:25:32 xlKing
NotSolved
19.03.2020 13:32:29 Trägheit
NotSolved
19.03.2020 14:08:17 Mase
NotSolved
19.03.2020 19:55:09 Trägheit
NotSolved

Ansicht des Beitrags:
Von:
Gast9933		 Datum:
17.03.2020 20:02:24		 Views:
552		 Rating:
     
Antwort:
  Ja
Thema:
Userform mit dynamischen Labeln - Funktion zuweisen		 
'
'in UserForm
'
Option Explicit
 
Private WithEvents m_objCtlWrapper As VBAProject.CtlWrapper
 
Private Sub CommandButton1_Click()
   
  Dim i As Long
   
  For i = 1 To 3
     
    With m_objCtlWrapper.AddControl(Me, "Forms.Label.1", "lblTest" & Format$(i, "00"), True)
      .Caption = "Test" & Format$(i, "00")
      .Left = 10
      .Width = 50
      .Top = 30 * i
    End With
     
  Next
   
End Sub
 
Private Sub m_objCtlWrapper_OnClick(ByVal Control As MSForms.Control)
   
  If TypeOf Control Is MSForms.Label Then
     
    MsgBox "Label_Click {Name: '" & Control.Name & "', Caption: '" & Control.Caption & "'}", vbInformation
     
  End If
   
End Sub
 
Private Sub UserForm_Initialize()
  Set m_objCtlWrapper = New VBAProject.CtlWrapper
End Sub
 
Private Sub UserForm_Terminate()
  m_objCtlWrapper.RemoveAll
  Set m_objCtlWrapper = Nothing
End Sub

Korrigierte Zeile ist markiert.

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
10.03.2020 12:31:32 Sebastian
NotSolved
10.03.2020 12:32:31 Gast96907
NotSolved
10.03.2020 15:35:25 Gast73147
NotSolved
10.03.2020 17:21:39 Gast0815
NotSolved
10.03.2020 17:25:06 Gast01234
NotSolved
11.03.2020 19:40:39 xlKing
NotSolved
11.03.2020 20:03:32 Mase
NotSolved
17.03.2020 15:51:03 Sebastian
NotSolved
17.03.2020 20:00:10 Gast48180
***
NotSolved
Blau Userform mit dynamischen Labeln - Funktion zuweisen
 17.03.2020 20:02:24 Gast9933
***
NotSolved
18.03.2020 19:25:32 xlKing
NotSolved
19.03.2020 13:32:29 Trägheit
NotSolved
19.03.2020 14:08:17 Mase
NotSolved
19.03.2020 19:55:09 Trägheit
NotSolved