Thema Datum  Von Nutzer Rating
Antwort
15.01.2018 18:44:09 Olli
Solved
16.01.2018 14:19:31 Werner
NotSolved
16.01.2018 15:18:08 Gast22849
NotSolved
16.01.2018 17:29:25 Werner
NotSolved
16.01.2018 20:08:26 Olli
NotSolved
Blau Werte aus einem Dropdownmenü mit Zellen kombinieren
 17.01.2018 07:29:39 Gast77180
NotSolved
17.01.2018 11:36:35 Olli
NotSolved
17.01.2018 19:45:47 Gast78391
NotSolved
17.01.2018 20:20:02 Werner
NotSolved
18.01.2018 18:08:16 Olli
NotSolved
18.01.2018 18:52:27 Werner
NotSolved
19.01.2018 18:06:22 Gast3406
NotSolved
19.01.2018 18:40:00 Werner
NotSolved
19.01.2018 18:49:19 Gast42753
NotSolved
19.01.2018 18:57:53 Werner
Solved
20.01.2018 11:50:51 Gast71831
NotSolved

Ansicht des Beitrags:
Von:
Gast77180		 Datum:
17.01.2018 07:29:39		 Views:
797		 Rating:
     
Antwort:
  Ja
Thema:
Werte aus einem Dropdownmenü mit Zellen kombinieren

Hallo Olli,

teste mal:

?
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
Private Sub CheckBox1_Click()
 
With Worksheets("Tabelle1") 'Blattname anpassen
    Me.TextBox4 = ""
        'Daten aus Spalte L in Textbox
        If Me.CheckBox1 And Not Me.CheckBox2 And Me.ComboBox1.ListIndex > -1 Then
            Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:L"), 12, False), "0.00")
            'Daten aus Spalte O in Textbox
            Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:O"), 15, False), "0.00")
            Me.TextBox3 = ""
        ElseIf Me.CheckBox2 And Not Me.CheckBox1 And Me.ComboBox1.ListIndex > -1 Then
            'Daten aus Spalte M in Textbox1
            Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:M"), 13, False), "0.00")
            'Daten aus Spalte K in Textbox2
            Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:K"), 11, False), "0.00")
            'Daten aus Spalte P in Textbox3
            Me.TextBox3 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:P"), 16, False), "0.00")
        ElseIf Me.CheckBox1 And Me.CheckBox2 And Me.ComboBox1.ListIndex > -1 Then
            'Daten aus Spalte N in Textbox1
            Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:N"), 14, False), "0.00")
            'Daten aus Spalte O in Textbox2
            Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:O"), 15, False), "0.00")
            'Daten aus Spalte R in Textbox3
            Me.TextBox3 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:R"), 18, False), "0.00")
        Else
            Me.TextBox1 = ""
            Me.TextBox2 = ""
            Me.TextBox3 = ""
            Me.TextBox4 = ""
        End If
End With
     
End Sub
 
Private Sub CheckBox2_Click()
 
With Worksheets("Tabelle1") 'Blattname anpassen
    Me.TextBox4 = ""
    If Me.CheckBox2 And Not Me.CheckBox1 And Me.ComboBox1.ListIndex > -1 Then
        'Daten aus Spalte M in Textbox1
        Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:M"), 13, False), "0.00")
        'Daten aus Spalte K in Textbox2
        Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:K"), 11, False), "0.00")
        'Daten aus Spalte P in Textbox3
        Me.TextBox3 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:P"), 16, False), "0.00")
    ElseIf Me.CheckBox1 And Not Me.CheckBox2 And Me.ComboBox1.ListIndex > -1 Then
        Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:L"), 12, False), "0.00")
        'Daten aus Spalte O in Textbox
        Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:O"), 15, False), "0.00")
        Me.TextBox3 = ""
    ElseIf Me.CheckBox2 And Me.CheckBox1 And Me.ComboBox1.ListIndex > -1 Then
        'Daten aus Spalte N in Textbox1
        Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:N"), 14, False), "0.00")
        'Daten aus Spalte O in Textbox2
        Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:O"), 15, False), "0.00")
        'Daten aus Spalte R in Textbox3
        Me.TextBox3 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:R"), 18, False), "0.00")
    Else
        Me.TextBox1 = ""
        Me.TextBox2 = ""
        Me.TextBox3 = ""
        Me.TextBox4 = ""
    End If
End With
 
End Sub
 
Private Sub ComboBox1_Change()
 
With Worksheets("Tabelle1") 'Blattname anpassen
    If Me.ComboBox1 = "" Then
        Me.TextBox1 = ""
        Me.TextBox2 = ""
        Me.TextBox3 = ""
        Me.TextBox4 = ""
        Exit Sub
    End If
    Me.TextBox4 = ""
    If Me.CheckBox1 And Not Me.CheckBox2 Then
        'Daten aus Spalte L in Textbox1
        Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:L"), 12, False), "0.00")
        'Daten aus Spalte O in Textbox2
        Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:O"), 15, False), "0.00")
        Me.TextBox3 = ""
    ElseIf Me.CheckBox2 And Not Me.CheckBox1 Then
        'Daten aus Spalte M in Textbox1
        Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:M"), 13, False), "0.00")
        'Daten aus Spalte K in Textbox2
        Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:K"), 11, False), "0.00")
        'Daten aus Spalte P in Textbox3
        Me.TextBox3 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:P"), 16, False), "0.00")
    ElseIf Me.CheckBox1 And Me.CheckBox2 Then
        'Daten aus Spalte N in Textbox1
        Me.TextBox1 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:N"), 14, False), "0.00")
        'Daten aus Spalte O in Textbox2
        Me.TextBox2 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:O"), 15, False), "0.00")
        'Daten aus Spalte R in Textbox3
        Me.TextBox3 = Format(WorksheetFunction.VLookup(Me.ComboBox1, .Range("A:R"), 18, False), "0.00")
    End If
End With
 
End Sub
 
Private Sub CommandButton1_Click()
 
If Not Me.CheckBox1 And Not Me.CheckBox2 Then
    MsgBox "Es wurde keine Auswahl getroffen."
    Exit Sub
End If
If Me.CheckBox1 And Not Me.CheckBox2 And Me.ComboBox1.ListIndex > -1 Then
    Me.TextBox4 = Format(CDbl(Me.TextBox2), "0.00")
'End If
ElseIf Me.CheckBox1 And Me.CheckBox2 And Me.ComboBox1.ListIndex > -1 Then
    Me.TextBox4 = Format(CDbl(Me.TextBox2) + CDbl(Me.TextBox3), "0.00")
'End If
ElseIf Me.CheckBox2 And Not CheckBox1 And Me.ComboBox1.ListIndex > -1 Then
    Me.TextBox4 = Format(CDbl(Me.TextBox2) + CDbl(Me.TextBox3), "0.00")
Else
    MsgBox "Bitte ein Schiff auswählen."
End If
 
End Sub

 

Der Code gehört komplett ins Codemodul deiner Userform. Die Namen deiner Textboxen/Checkboxen/Combobox und des Tabellenblattes mußt du ggf. noch an deine Verhältnisse anpassen.

Gruß Werner

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
15.01.2018 18:44:09 Olli
Solved
16.01.2018 14:19:31 Werner
NotSolved
16.01.2018 15:18:08 Gast22849
NotSolved
16.01.2018 17:29:25 Werner
NotSolved
16.01.2018 20:08:26 Olli
NotSolved
Blau Werte aus einem Dropdownmenü mit Zellen kombinieren
 17.01.2018 07:29:39 Gast77180
NotSolved
17.01.2018 11:36:35 Olli
NotSolved
17.01.2018 19:45:47 Gast78391
NotSolved
17.01.2018 20:20:02 Werner
NotSolved
18.01.2018 18:08:16 Olli
NotSolved
18.01.2018 18:52:27 Werner
NotSolved
19.01.2018 18:06:22 Gast3406
NotSolved
19.01.2018 18:40:00 Werner
NotSolved
19.01.2018 18:49:19 Gast42753
NotSolved
19.01.2018 18:57:53 Werner
Solved
20.01.2018 11:50:51 Gast71831
NotSolved