|
Moin zusammen!
Ich stehe gerade absolut auf dem Schlauch.
In einem Formular soll in der ComboBox1 eine Kategorie A-E ausgewählt werden.
Jede Kategorie hat eine untere Schranke abwelcher eine Fortlaufende Numerierung beginnt.
In der bisherigen Liste soll dann gezählt werden wie oft die Kategorie bereits vorkommt (IntC), und in Textfeld1 dann der Wert IntC mit der unteren Schranke der Kategorie addiert ausgegeben wird in einem fünf stelligen Format.
Nun kommt für den Vlookup zur Bestimmung der unteren Schranke ein Laufzeitfehler '438', Objekt unterstützt diese Eigenschaft oder Methode nicht.
Kann mir hierbei jmd helfen?? Excel Version ist 2013. Bisher lief hier immer alles.
Private Sub ComboBox1_Change()
Dim rng_dpn As Range, rngC As Range
Dim IntC As Integer
Dim Name As Variant
Dim temp As Integer
Set rng_dpn = Range("E5:E20")
IntC = 0
Name = frm_Anlage.ComboBox1.Value
If Name = "" Then Exit Sub
'Zählen wie viele es der Kategorien A-E schon hat
For Each rngC In rng_dpn
If rngC = Name Then
IntC = IntC + 1
End If
Next
frm_Anlage.textfeld1 = ThisWorkbook.WorksheetFunction.VLookup(Name, ActiveWorkbook.Sheets("Lagerliste").Range("B3:B7"), 3, False) + IntC
frm_Anlage.textfeld1 = Format(CDbl(temp), "00000")
End Sub
Vielen Dank bereits!
Beste Grüße
|