Hallo,
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
mfg
@Fen
Code:
Val(Mid(Cells(i, 1), 2))
kann nicht grösser sein als 99
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
mfg
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!
Vielen lieben dank
Hallo Patrick,
die Antwort ist: ja
Es ist möglich die Kategorie in die Datenbank (Excel?) zu schreiben und per Blattschutz gegen versehentliche Änderungen zu schützen.
Den ersten Teil der Frage habe ich nicht verstanden.
mfg
Ok dann machen wirs so dass man die Daten per Eingabemaske in die Datenbank schreiben kann.
Die erste Frage hab ich folgendermassen gedacht:
Ist ist der Fall dass zb. die Kategorie Bleistifte öfters in verschiedenen Zahlenreihen vorkommt wie hier zb.
C000001 - C000010 = Bleistifte
C000011 - C000020 = Kugelschreiber
C000021 - C000030 = Akte
C000031 - C000040 = Bleistifte
Wenn ich jetzt zb Bleistifte eingebge muss er mir als Resultat: C000001 - C000010 & C000031 - C000040 ausgeben.
Hallo,
das ist die Datei aus dem April, aber jetzt werden auch mehrere Kategorien gefunden.
Es ist einfacher die Datenbank direkt up-zu-daten als mittels einer UserForm.
mfg
Genau so will ich das dann musst du mir jetzt nur noch die Datenbank frei geben so dass ich die Datei auch nutzen kann
@Fennek wie mache ich das dass er mir keine Doppelte Einträge aus der Datenbank in die Combobox setzt sondern die ausblendet zb. Bleistifte