Mehrfachbennenung von Variablen
16.08.2007 16:33:00
Variablen
ich weiß nicht ob der Titel zutreffend ist, aber mir ist nix besseres eingefallen. Und sowieso raucht mir schon wieder die Birne.
Zu meinem Problem:
Ich habe eine kleine Funktion geschrieben, diese gehört zu einer Userform.
Generell hab ich mir das so vorgestellt. Wenne in bestimmter Name in einer Combobox gewählt wird soll in einer Textbox die Bürozugehörigkeit geschrieben werden.
Also bei Name1 "Geschäftsführer"
bei Name2 und Name3 "Assistentin"
und bei allen anderen "Sachverständiger"
eigentlich ganz einfach oder? Nur ich steh mal wieder wie der berühmte Ochse vor der Pfütze (oderso)
Wie kann ich eine Variable auf die zwei Namen setzen?
Bitte HILFE!
code:
Function Status()
Dim GF As String
Dim SV As String
Dim AdGF As String
Dim AbsN As String
GF = "Geschäftsführer"
SV = "Sachverständiger"
AdGF = "Assistentin"
AbsN = Me.cbAbsN.Value
sGF = "Name1"
sAdGF = "Name2"
sAdGF = "Name3"
If AbsN = sGF Then
Me.tbAbsSta.Value = GF
ElseIf AbsN = sAdGF Then
Me.tbAbsSta.Value = AdGF
Else: Me.tbAbsSta.Value = SV
End If
End Function
Gruß Oliver
Anzeige