Thema Datum  Von Nutzer Rating
Antwort
18.09.2019 10:07:14 Alexander Engel
Solved
18.09.2019 11:55:03 UweD
NotSolved
18.09.2019 12:18:49 Gast58364
NotSolved
18.09.2019 13:02:07 UweD
NotSolved
18.09.2019 14:06:21 Gast21244
NotSolved
Blau Userform öffnet nach Dropdown
18.09.2019 14:59:46 Gast28548
NotSolved

Ansicht des Beitrags:
Von:
Gast28548		 Datum:
18.09.2019 14:59:46		 Views:
527		 Rating:
     
Antwort:
  Ja
Thema:
Userform öffnet nach Dropdown

Hallo

 

OK, mein Fehler anstelle von UserForm_Initialize wird UserForm_Activate benötigt..

 

Also so

Option Explicit
 
Private Sub UserForm_Activate()
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox3.Value = ""
End Sub
Private Sub CommandButton1_Click()
    On Error GoTo Fehler
    Const APPNAME = "CommandButton1_Click"
     
    With ActiveSheet
        Application.EnableEvents = False
         
        .Cells(Zeile, 3) = Me.TextBox1.Value
        .Cells(Zeile, 4) = Me.TextBox2.Value
        .Cells(Zeile, 5) = Me.TextBox3.Value
         
        Application.EnableEvents = True
 
    End With
    UserForm1.Hide
     
     
    '*** Fehlerbehandlung
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
        & "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub

 

 

LG UweD

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
18.09.2019 10:07:14 Alexander Engel
Solved
18.09.2019 11:55:03 UweD
NotSolved
18.09.2019 12:18:49 Gast58364
NotSolved
18.09.2019 13:02:07 UweD
NotSolved
18.09.2019 14:06:21 Gast21244
NotSolved
Blau Userform öffnet nach Dropdown
18.09.2019 14:59:46 Gast28548
NotSolved