so ist vielleicht noch übersichtlicher und leichter zu pflegen:
Code:
Sub Petz2()
'Werte in Spalte A (mit Überschrift) 'Ausgabe: Gruppe in Spalte B
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Select Case Val(Mid(Cells(i, "A"), 2)) Case 43000 To 43500 ret = "Bleistifte" Case 45500 To 46000 ret = "Hefte" Case Else ret = "nicht zugeordnet" End Select Cells(i, "B") = ret Next i End Sub
11.04.2019, 11:25 (Dieser Beitrag wurde zuletzt bearbeitet: 11.04.2019, 11:57 von Fennek.)
Hallo,
eigentlich zeigte snb unter #6 die Lösung.
Aber es geht auch etwas komplizierter mit VBA und UserForm.
Leitideen:
- EINE Tabelle der Kategorien mit den Unter- und Obergrenzen -> leichtes update falls nötig -> das Erstellen übernimmt der Fragesteller - unabhängig von der Sortierung
02.05.2019, 16:38 (Dieser Beitrag wurde zuletzt bearbeitet: 02.05.2019, 16:47 von Petz1807.)
Hallo,
Ja genau so sollte es sein doch zeigt er auch mehrere Zeichenfolgen an wenn zb. Akte 2 odder mehrere Zeichenfolgen enthält
Zb.
C000900 - C000910 und C002010 - C003000 u.s.w.
Wäre es auch vielleicht möglich die Einträge per Maske in die Datenbank einzutragen so dass mann den VBA Script nicht öffnen muss und jeder diese Einträge machen kann doch nicht mehr löschen kann das kann nur der der das Passwort dazu hat!
