Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.09.2019 10:07:14 |
Alexander Engel |
|
|
|
18.09.2019 11:55:03 |
UweD |
|
|
|
18.09.2019 12:18:49 |
Gast58364 |
|
|
Userform öffnet nach Dropdown |
18.09.2019 13:02:07 |
UweD |
|
|
|
18.09.2019 14:06:21 |
Gast21244 |
|
|
|
18.09.2019 14:59:46 |
Gast28548 |
|
|
Von:
UweD |
Datum:
18.09.2019 13:02:07 |
Views:
484 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
18.09.2019 11:55:03 |
UweD |
|
|
|
18.09.2019 12:18:49 |
Gast58364 |
|
|
Userform öffnet nach Dropdown |
18.09.2019 13:02:07 |
UweD |
|
|
|
18.09.2019 14:06:21 |
Gast21244 |
|
|
|
18.09.2019 14:59:46 |
Gast28548 |
|
|