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:
598
Rating: Antwort:
  Ja
Thema:
Userform öffnet nach Dropdown

Hallo nochmal

 

1) in ein Modul

1
Public Zeile As Long

 

 

1) in den Codebereich der Tabelle

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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