Alternative zu Select Case
Kai
ich habe eine Frage, per Worksheet Change lasse ich zu jedem Kunden (nach Eingabe der Kundenkennung)
ein Adresslabel drucken.
Nun habe ich mittlerweile so viel Code dass ich die 64kb bald erreiche und brauche dringend eine Alternative.
Außerdem ist es sehr nervig so einen neuen Kunden hinzuzufügen.
Weiß jmd. Rat?
[code] Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next 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 Select Case Target.Value ' Kunde Müller Case "1220" To "1300" Range("D2").Value = "Müller" Labelprint 'Kunde Meier Case "1300" To "1310" Range("D2") Range("D2").Value = "Meier" Labelprint 'usw Case Else MsgBox "Kein Kunde!", vbCritical Range("B2").Select End Select End If Application.EnableEvents = True End Sub
[/code]
Gruß Kai