Guten Morgen!
Ich habe mir aus der Recherche folgenden Text zusammengezimmert.
Leider hatte ich noch nie das Vergnügen eine Select Case Anweisung zu schreiben, daher bin ich sozusagen "Rudi Ratlos".
Wenn in einer UserForm z.B. in TextBox1 der Wert 80600 eingelesen wird, so sollte in der TextBox2 der Text "Bandagen und Orthesen" eingetragen werden.
Wäre hierfür der nachstehende Text ungefähr richtig oder liege ich hier komplett falsch?
Danke
Josef
Dim AC As Range
Set AC = Application.Caller
If AC.Column <> 1 Then Exit Sub
Select Case AC
Case 80600: AC = "Bandagen und Orthesen"
Case 80700: AC = "Kompressionsbandagen"
Case 80800: AC = "Elastische Binden"
Case 80900: AC = "Wundversorgung"
End Select
End Sub