Thema Datum  Von Nutzer Rating
Antwort
Rot Ergänzen fehlender Zellen anhand zweier Bedingungen
 21.09.2015 16:51:46 Pascal
NotSolved

Ansicht des Beitrags:
Von:
Pascal		 Datum:
21.09.2015 16:51:46		 Views:
2579		 Rating:
     
Antwort:
  Ja
Thema:
Ergänzen fehlender Zellen anhand zweier Bedingungen

Hallo Leute,

Folgende Problematik an der ich seit mehreren Tagen hänge..


Ich habe Spalte [A] bis [F] mit Werten und Texten gefüllt.

Spalte A = comboBox Kategorie

Spalte B = comboBox Bezeichung

Spalte C = comboBox Farbe

Spalte D = comboBox Eigenschaft

Spalte E = text Kunde

Spalte F = Seriennummer - anhand einer WENN-Funktion in den Zellen

 

Ich habe also mehrere gleiche Artikel allerdings unterschiedlicher Farben untereinader stehen.
Nehmen wir an Kunde "VBA Forum" möchte nun ein weißes und ein schwarzes Telefon haben soll dieses bei der Farbeingabe des Kollegen die nächsthöhrere Seriennummer in einer MsgBox angezeigt werden.

Beispiel:

Kategorie = Telefon

Bezeichnung = Telefon X

Farbe = Weiß

Eigenschaft = mit Antenne

Kunde = VBA Forum

 

hierbei soll aus einer angelegten Liste nach dem Klicken auf Übernehmen eine Messagebox erscheinen die mir automatisch die nächste Seriennummer sagt, welches der Telefone ich jetzt aus dem Regal nehmen muss..

 

Farben gibt es nur zwei:

Weiß

Schwarz

?
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
Private Sub cboKategorie_Change()
'Zum Verknüpfen der Comboboxen mit einzelnen Auswahlmöglichkeiten'
     
    cboBezeichnung.Clear
     
    Select Case cboKategorie.Value
    Case "Lautsprecher"
     
    cboBezeichnung.AddItem "Referenz4"
    cboBezeichnung.AddItem "Referenz8"
    cboBezeichnung.AddItem "Referenz8Sub"
    cboBezeichnung.AddItem "Referenz12Sub"
    cboBezeichnung.AddItem "Referenz15Sub"
    cboBezeichnung.AddItem "Referenz100"
    cboBezeichnung.AddItem "Referenz165"
    cboBezeichnung.AddItem "Referent200"
     
    cboFarbe.AddItem "Weiß"
    cboFarbe.AddItem "Schwarz"
     
         
    Case "Verstärker"
    cboBezeichnung.AddItem "HLV1025"
    cboBezeichnung.AddItem "HLV1120"
    cboBezeichnung.AddItem "HLV2190"
    cboBezeichnung.AddItem "HLV4120"
     
    Case "Blenden"
    cboBezeichnung.AddItem "N-Anschluss"
    cboBezeichnung.AddItem "N-Schalter"
    cboBezeichnung.AddItem "N-Key"
    cboBezeichnung.AddItem "N-Fernpegel"
    cboBezeichnung.AddItem "N-Quelle"
     
    Case "Bügel"
    cboBezeichnung.AddItem "Ref4 UBügel"
    cboBezeichnung.AddItem "Ref8 UBügel"
    cboBezeichnung.AddItem "Ref8 LBügel"
    cboBezeichnung.AddItem "Ref12+15Sub UBügel"
    cboBezeichnung.AddItem "Ref8 Schiebehalter"
     
    cboFarbe.AddItem "Schwarz"
    cboFarbe.AddItem "Weiß"
     
    cboFarbe.AddItem "Sonstige"
     
     
 End Select
  
End Sub
 
Private Sub cmdAbbruch_Click()
 
'schließt das aktuelle Fenster'
     
    Unload frmAusgang
         
End Sub
 
Private Sub cmdEingabeausgang_Click()
 
'IN BEARBEITUNG' Übernimmt die Eingetragenen Werte ins Taballenblatt'
     
        Dim intErsteLeereZeile As Long
             
           If Me.cboBezeichnung.Value = "Referenz4" Then
           intErsteLeereZeile = Sheets("Ref4").Cells(Rows.Count, 5).End(xlUp).Row + 1
            
                Sheets("Ref4").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
                         
            End If
                 
                msgbox "Seriennummer:  " & Sheets("Ref4").Cells(intErsteLeereZeile, 6).Value
             
            If Me.cboBezeichnung.Value = "Referenz8" Then
            intErsteLeereZeile = Sheets("Ref8").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Ref8").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
                 
            End If
             
            If Me.cboBezeichnung.Value = "Referenz8Sub" Then
            intErsteLeereZeile = Sheets("Ref8Sub").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Ref8Sub").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
                
            End If
             
             If Me.cboBezeichnung.Value = "Referenz12Sub" Then
            intErsteLeereZeile = Sheets("Ref12Sub").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Ref12Sub").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
                
            End If
             
            If Me.cboBezeichnung.Value = "Referenz15Sub" Then
            intErsteLeereZeile = Sheets("Ref15Sub").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Ref15Sub").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
               
            End If
             
            If Me.cboBezeichnung.Value = "Referenz100" Then
            intErsteLeereZeile = Sheets("Ref100").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Ref100").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
             
            End If
             
             If Me.cboBezeichnung.Value = "Referenz165" Then
            intErsteLeereZeile = Sheets("Ref165").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Ref165").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
            
            End If
             
             If Me.cboBezeichnung.Value = "Referenz200" Then
            intErsteLeereZeile = Sheets("Ref200").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Ref200").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
                 
            End If
             
            If Me.cboBezeichnung.Value = "HLV1025" Then
            intErsteLeereZeile = Sheets("Verstärker").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Verstärker").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
            
            End If
             
            If Me.cboBezeichnung.Value = "HLV1120" Then
            intErsteLeereZeile = Sheets("Verstärker").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Verstärker").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
            
            End If
             
            If Me.cboBezeichnung.Value = "HLV2190" Then
            intErsteLeereZeile = Sheets("Verstärker").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Verstärker").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
            
            End If
             
            If Me.cboBezeichnung.Value = "HLV4120" Then
            intErsteLeereZeile = Sheets("Verstärker").Cells(Rows.Count, 5).End(xlUp).Row + 1
             
                Sheets("Verstärker").Cells(intErsteLeereZeile, 5).Value = Me.txtKunde.Value
            
            End If
                 
'schließt das Formular'
    Unload frmAusgang
        
End Sub
 
Private Sub UserForm_Initialize()
    'stellt manuell-eingetragene Kategorien dar'
    With Me
         
        With .cboKategorie
        .AddItem "Verstärker"
        .AddItem "Lautsprecher"
        .AddItem "Bügel"
        .AddItem "Blenden"
        .AddItem "Sonstiges"
        End With
         
    End With
     
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 Ergänzen fehlender Zellen anhand zweier Bedingungen
 21.09.2015 16:51:46 Pascal
NotSolved