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
Blau Userform öffnet nach Dropdown
18.09.2019 13:02:07 UweD
NotSolved
18.09.2019 14:06:21 Gast21244
NotSolved
18.09.2019 14:59:46 Gast28548
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
18.09.2019 13:02:07		 Views:
769		 Rating:
     
Antwort:
  Ja
Thema:
Userform öffnet nach Dropdown

Hallo nochmal

 

1) in ein Modul

Public Zeile As Long

 

 

1) in den Codebereich der Tabelle

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RNG As Range, strIO As String
    
    Set RNG = Range("B5:B20")
    strIO = "X"
    
    If Not Intersect(RNG, Target) Is Nothing Then
        If Target = strIO Then
            Zeile = Target.Row
            UserForm1.Show
        End If
    End If
End Sub

 

 

3) In den Codebereich der Userform (1)

 

Option Explicit

Private Sub UserForm_Initialize()
    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) = UserForm1.TextBox1.Value
        .Cells(Zeile, 4) = UserForm1.TextBox2.Value
        .Cells(Zeile, 5) = UserForm1.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
Blau Userform öffnet nach Dropdown
18.09.2019 13:02:07 UweD
NotSolved
18.09.2019 14:06:21 Gast21244
NotSolved
18.09.2019 14:59:46 Gast28548
NotSolved