Alternative zu Select Case

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Kai,
"chronologisch" ist hier gar nichts - das hätte etwas mit Zeit zu tun.
Die (bei mir blau unterlegte) Tabelle lässt sich doch nach "Kennung ab" sortieren. (Mit Code wäre das nicht so einfach... ;-)
Und dann funzern die Formeln.
Hier habe ich dein Beispiel für den Kunden "NeuKunde"
von XXXXXXXXX4500000 bis XXXXXXXXX459999 oder von XXXXXXXXX6720000 bis XXXXXXXXX6729999
als
von XXXXXXXXX450000 bis XXXXXXXXX459999 oder von XXXXXXXXX6720000 bis XXXXXXXXX6729999
mal eingepflegt:
(Sind die "X"e irgend ein Text oder wofür stehen sie?)

	A	B	C	D	E	F	G	H	I
1		Eingabe				Kennungen ab	Kunde		nur zur Info
2	Kennung:	XXXXXXXXX459876	Kunde:	NeuKunde		AAAAA10	Müller		bis AAAAA39
3						AAAAA40	<<< frei >>>
4	Kennung:	XXXXXXXXX460000	Kunde:	<<< frei >>>		XXXXXXXXX450000	NeuKunde		bis XXXXXXXXX459999
5						XXXXXXXXX460000	<<< frei >>>
6						XXXXXXXXX490000	anderer		bis XXXXXXXXX490299
7						XXXXXXXXX490300	<<< frei >>>
8						XXXXXXXXX6720000	NeuKunde		bis XXXXXXXXX6729999
9						XXXXXXXXX6730000	<<< frei >>>

Formeln der Tabelle

Zelle	Formel
D2	=INDEX($G$2:$G$9;VERGLEICH(B2;$F$2:$F$9;1))
D4	=SVERWEIS(B4;$F$2:$G$9;2;1)

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hi Kai,
"es sind tatsächlich reine Zahlen" sagt mir, dass wir uns bezüglich Zahlen/Texte noch nicht einig sind.
Wolltest du mir das schreiben?
1234567890123456789 - das sind 18 Stellen - kann in Excel keine Zahl sein.
Gib mal die Formel =1234567890123456789 in eine (mit Standard formatierte) Zelle ein.
Du wirst sehen, dass die letzten 4 Stellen schon beim Reinschreiben der Formeln durch Nullen ersetzt werden,
es bleibt die Formel =1234567890123450000 übrig. Das ist einfach dadurch zu erklären,
dass Excel Zahlen mit höchstens 15 Stellen Genauigkeit verarbeiten (und speichern) kann.
Also: Es sind tatsächlich keine Zahlen, sondern reine Texte, die nur aus Ziffern bestehen, nicht aus Buchstaben.
(Buchstaben würden hier nicht stören - es sind ja ohnehin Texte, und in Texten dürfen Buchstaben natürlich vorkommen...)
Die Formatierung der Zellen hat damit nicht so viel zu tun. Wesentlich ist der Wert, nicht das Format der Zelle.
In einer Zelle, die als Zahl (z. B. Prozent) formatiert ist, kann natürlich auch Text stehen.
Die Formatierung spielt hier eine Rolle nur auf diese Weise:
Wenn man eine Zelle als Text formatiert und danach etwas eingibt, ist der Wert ein Text,
ob darin nur die Zeichen "1" bis "9" oder auch z. B. Buchstaben oder andere Zeichen vorkommen, ist gleichgültig.
Nicht einmal eine Formel kann man als Formel eingeben - man sieht immer nur die Formel als Text.
Probier das einfach mal aus.
"Die Formatierung hat aber nichts mit dem Arbeiten der Formel zu tun" - Stimmt!
SVERWEIS und VERGLEICH sind unabhängig von der Formatierung. Sie verarbeiten bei dir Texte,
weil die Werte deiner Zellen Texte sind.
Noch mal die Frage: Ist klar, dass "2" größer als "123" ist?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
P.S.: Lässt Matthias gar nicht grüßen?

Sub Worksheet_Change(ByVal Target As Range) Dim c As Object Application.EnableEvents = False If Target.Address = "$B$2" Then If Len(Target) > 20 Then Target = Left(Target, 20) End If End If If Target.Address = "$B$2" Then With Sheets("Kunden").Range("A2:A40000") Set c = .Find(Target, LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do Call Labelprint(Sheets("Kunden").Cells(c.Row, 2)) Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address firstAddress Else MsgBox "'" & Target & "' ist kein registrierter Kunde!" Range("B2").Select End If End With End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

	A	B
1	Kennung	Kunde
2	1001	Müller
3	1002	Müller
4	1003	Müller
5	1120	Meier
6	1121	Meier
7	1122	Meier
8	1123	Meier
9	1124	Meier
10	2101	Huber
11	2102	Huber
12	2103	Huber
13	2104	Huber

	A	B	C	D	E	F	G	H	I
1		Eingabe				Kennungen ab	Kunde		nur zur Info
2	Kennung:	1122	Kunde:	Meier		0	<<< frei >>>		Kennungen 0 bis 1000
3						1001	Müller		Kennungen 1001 bis 1119
4						1120	Meier		Kennungen 1120 bis 1124
5						1125	<<< frei >>>		Kennungen 1125 bis 2100
6						2101	Huber		Kennungen 2101 bis 2104
7						2105	<<< frei >>>		Kennungen 2105 bis 9999998
8						9999999	<<< frei >>>

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	Texte		Zahlen
2	27		27
3	9		9
4	123		123
5	51		51

Alternative zu Select Case

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread