Thema Datum  Von Nutzer Rating
Antwort
Rot Listenerstellung
 28.01.2016 12:56:13 Frank
NotSolved
28.01.2016 16:48:46 Gast76651
NotSolved
30.01.2016 07:48:31 Gast47825
NotSolved
31.01.2016 11:03:54 Gast72198
NotSolved

Ansicht des Beitrags:
Von:
Frank		 Datum:
28.01.2016 12:56:13		 Views:
1631		 Rating:
     
Antwort:
  Ja
Thema:
Listenerstellung

Hallo!

Habe folgenden Code in einer Userform liegen!

Es sind vir Combobxen die voneinander anhängig sind.

Nun möchte ich gerne das ich einen Abgleich alla SVERWEIS habe der die ersten ComboBoxen überprüft
und in der Richtigen Zeile aus der Spalte 5 den Wert in dem Label dar stellt.

Im Moment ist es so, das die einzelnen Werte nur zusammen im Label angezeigt werden.

Da komme ich aber nicht mit klar!

 

Kann mir da jemand weiterhelfen?

 

Gruß Frank

?
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
Option Explicit
'Modulweite Variablen deklarieren
Const C_mstrDatenblatt As String = "Tabelle1"
Const C_mstrZielblatt As String = "Tabelle2"
Dim mobjDic As Object
Dim mlngLast As Long
Dim sVar
Dim variable As String
Dim mlngZ As Long
Private Sub ComboBox1_Enter()
'1. ComboBox
Set mobjDic = CreateObject("Scripting.Dictionary")
  
For mlngZ = 2 To mlngLast
  mobjDic(Worksheets(C_mstrDatenblatt).Cells(mlngZ, 1).Value) = 0
Next
  
Me.ComboBox1.List = mobjDic.keys
Set mobjDic = Nothing
End Sub
  
Private Sub ComboBox2_Enter()
'2. ComboBox
Set mobjDic = CreateObject("Scripting.Dictionary")
With Worksheets(C_mstrDatenblatt)
  For mlngZ = 2 To mlngLast
    If .Cells(mlngZ, 1).Value = Me.ComboBox1.Value Then
      mobjDic(.Cells(mlngZ, 2).Value) = 0
    End If
  Next
End With
  
Me.ComboBox2.List = mobjDic.keys
Set mobjDic = Nothing
End Sub
Private Sub ComboBox3_Enter()
'3. ComboBox
Set mobjDic = CreateObject("Scripting.Dictionary")
With Worksheets(C_mstrDatenblatt)
  For mlngZ = 2 To mlngLast
    If .Cells(mlngZ, 2).Value = Me.ComboBox2.Value Then
      mobjDic(.Cells(mlngZ, 3).Value) = 0
    End If
  Next
End With
  
Me.ComboBox3.List = mobjDic.keys
Set mobjDic = Nothing
End Sub
 
 
Private Sub ComboBox4_Enter()
'4. ComboBox
Me.ComboBox4.Clear
With Worksheets(C_mstrDatenblatt)
  For mlngZ = 2 To mlngLast
   
    If .Cells(mlngZ, 1).Value = Me.ComboBox1.Value And .Cells(mlngZ, 2).Value = Me.ComboBox2.Value And .Cells(mlngZ, 3).Value = Me.ComboBox3.Value Then
      Me.ComboBox4.AddItem .Cells(mlngZ, 4).Value
    End If
  Next
End With
 
End Sub
 
Private Sub ComboBox4_Change()
Label1.Caption = ComboBox1 & " " & ComboBox2 & " " & ComboBox3 & " " & ComboBox4
End Sub
Private Sub CommandButton1_Click()
'Userform schliessen
Unload Me
End Sub
  
Private Sub CommandButton2_Click()
'Ausgewählte Daten in Tabelle 2 übertragen und Felder löschen
With Worksheets(C_mstrZielblatt)
  .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Value = Me.ComboBox1.Value
  Me.ComboBox1.Clear
  .Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Value = Me.ComboBox2.Value
  Me.ComboBox2.Clear
  .Cells(.Cells(Rows.Count, 3).End(xlUp).Row + 1, 3).Value = Me.ComboBox3.Value
  Me.ComboBox3.Clear
  .Cells(.Cells(Rows.Count, 4).End(xlUp).Row + 1, 4).Value = Me.ComboBox4.Value
  Me.ComboBox4 = " "
  Label1.Caption = " "
End With
 
End Sub
  
Private Sub UserForm_Initialize()
'Bei Start der Userform wird die unterste Zeile in Spalte A im Datenblatt ermittelt
mlngLast = Worksheets(C_mstrDatenblatt).Cells(Rows.Count, 1).End(xlUp).Row
End Sub

 

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 Listenerstellung
 28.01.2016 12:56:13 Frank
NotSolved
28.01.2016 16:48:46 Gast76651
NotSolved
30.01.2016 07:48:31 Gast47825
NotSolved
31.01.2016 11:03:54 Gast72198
NotSolved