Thema Datum  Von Nutzer Rating
Antwort
Rot Dynamisches Dropdown + wenn Auswahl Daten wiedergabe
 16.01.2020 10:06:30 Peter Mueller
NotSolved
16.01.2020 10:18:59 Mase
NotSolved

Ansicht des Beitrags:
Von:
Peter Mueller		 Datum:
16.01.2020 10:06:30		 Views:
1018		 Rating:
     
Antwort:
  Ja
Thema:
Dynamisches Dropdown + wenn Auswahl Daten wiedergabe

Hallo zusammen,

gleich vorweg, ich bin leider ein Blutiger Anfänger. Ich habe in letzter Zeit viel mit googlen hinbekommen aber komme jetzt einfach nicht mehr weiter bzw. finde nicht das was ich suche.

Ich speichere mir mit einer Userform Daten in ein Tabellenblatt ab. Leider kommt es mal vor das man sich vertippt und jetzt ist meine Idee da ein Dropdown einzubachen wo die letzte 5 Einträge aus dem Tabellenblatt stehen zur Auswahl. Ist das Dropdown leer sollen auch die Eingabefelder leer sein. Ist aber im Dropdown eine der letzte 5 Einträge ausgewählt sollen die Eingabefelder mit den Werten wieder gefüllt werden.

Folgenden Code habe ich bis jetzt in meiner Userform. Wäre cool wenn mir da jemand helfen könnten.

 

 

?
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 
 
Private Sub Abbrechen_Click()
 
 
'Fenster schließen
 
Unload Eingabemaske
 
 
End Sub
 
 
 
Private Sub Speichern_Click()
  
 
Dim last As Integer
 
 
'last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Daten_Berechnung").Activate
 
Range("B12").Value = Eingabemaske.TextBox1.Value
Range("B13").Value = Eingabemaske.TextBox2.Value
Range("B14").Value = Eingabemaske.TextBox3.Value
Range("B15").Value = Eingabemaske.TextBox4.Value
Range("B4").Value = Eingabemaske.TextBox5.Value
Range("C4").Value = Eingabemaske.TextBox6.Value
Range("D4").Value = Eingabemaske.TextBox7.Value
Range("E4").Value = Eingabemaske.TextBox8.Value
Range("F4").Value = Eingabemaske.TextBox9.Value
Range("G4").Value = Eingabemaske.TextBox10.Value
Range("H4").Value = Eingabemaske.TextBox11.Value
 
 
Worksheets("Daten").Activate
 
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
 
 
ActiveSheet.Cells(last, 1).Value = Eingabemaske.TextBox1.Value
ActiveSheet.Cells(last, 2).Value = Eingabemaske.TextBox2.Value
ActiveSheet.Cells(last, 3).Value = Eingabemaske.TextBox3.Value
ActiveSheet.Cells(last, 4).Value = Eingabemaske.TextBox4.Value
ActiveSheet.Cells(last, 5).Value = Eingabemaske.TextBox5.Value
ActiveSheet.Cells(last, 6).Value = Eingabemaske.TextBox6.Value
ActiveSheet.Cells(last, 7).Value = Eingabemaske.TextBox7.Value
ActiveSheet.Cells(last, 8).Value = Eingabemaske.TextBox8.Value
ActiveSheet.Cells(last, 9).Value = Eingabemaske.TextBox9.Value
ActiveSheet.Cells(last, 10).Value = Eingabemaske.TextBox10.Value
ActiveSheet.Cells(last, 11).Value = Eingabemaske.TextBox11.Value
 
 
Unload Eingabemaske
 
End Sub
 
 
 
Private Sub UserForm_Initialize()
 
'Werte, die Zubeginn im Eingabefeld stehen
 
Eingabemaske.TextBox4.Value = Date
 
End Sub
?
1
2
3
4
5
6
7
8
9
10
Sub UserForm()
 
With Eingabemaske.Dropdown
 
.AddItem "Test"
.AddItem "Test1"
 
End With
 
End Sub

 

 

 

MFG

Der Mueller

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Dynamisches Dropdown + wenn Auswahl Daten wiedergabe
 16.01.2020 10:06:30 Peter Mueller
NotSolved
16.01.2020 10:18:59 Mase
NotSolved