Inhalt aus Combo&Textbox mit Spalten vergleichen
15.02.2019 15:28:36
Tim
ich habe ein Makro welches mir eine fortlaufende Artikelnummer generieren soll. Das funktioniert mit einem einzigen Suchkriterium ganz gut, jedoch habe ich 3 Kriterien die zu prüfen sind an denen ich gerade scheitere. Und zwar befinden sich in zwei Comboboxen "Katergorie" & "Unterkategorie" Begriffe, bei denen mir die beiden Anfangsbuchstaben für die Artikelstruktur dienen. Zudem der Erste Buchstabe von der Tatsächlichen Bezeichnung. Gibt es diese Struktur, dann soll nur der Zähler erhöht werden, gibt es diese noch nicht, so soll aus den genannten Kriterien eine neue Struktur erstellt werden.
Bisher betrachtet das Makro nur die erste Spalte deren 2 Großbuchstaben aus der "Kategorie" kommen. Wie erreiche ich, dass auch die anderen Beiden Kriterien geprüft werden, um entweder den Zähler zu erhöhen oder eine neue Struktur zu schreiben?
Private Sub Artikel_anlegen_Click()
Dim wkb As Workbook
Dim ws As Worksheet
Dim lz As Long
Dim Jahr As String
Dim Tag As String
Set wkb = ThisWorkbook
Set ws = wkb.Worksheets("Artikelnummern")
lz = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws
If .Range("A" & lz) = UCase(Left(Kategorie, 2)) Then
.Range("E" & lz) = .Range("E" & lz) + 1
.Range("F" & lz) = .Range("A" & lz) & "-" & .Range("B" & lz) & "-" & .Range("C" & _
lz) & .Range("E" & lz) 'verkettet der Spalten zu einer Artikelnummer
Else
.Range("A" & lz + 1) = UCase(Left(Kategorie, 2))
.Range("B" & lz + 1) = UCase(Left(Unterkategorie, 2))
.Range("C" & lz + 1) = UCase(Left(Bezeichnung, 1))
.Range("E" & lz + 1) = 1
.Range("F" & lz) = .Range("A" & lz) & "-" & .Range("B" & lz) & "-" & .Range("C" & _
lz) & .Range("E" & lz) 'verkettet der Spalten zu einer Artikelnummer
End If
End With
End Sub