aktenzeichenformat
07.06.2020 01:18:06
Caesar
Ich suche nach einer Möglichkeit in einer Userform das Format einer Textbox über eine Listbox zu switchen.
Konkret bedeutet das, ich habe 3 verschiedene Aktenzeichenformate:
1. xxxxxx-xxxxxx-xx/x
2. xxxxxx-xxxx-xxxxxx
3. LRNE1_xxx_xxxxxx_xxxxxx
Bei der dritten Variante habe ich die Konstante "LRNE1" gefolgt von "_xxx_xxxxxx_xxxxxx"
Bisher benutzte ich folgenden Code:
'ListBox_Aktenzeichen1 und ListBox_Aktenzeichen2 definieren und befüllen
Dim intI As Integer
With Me.ListBox_Aktenzeichen1
.AddItem "IGVP"
.AddItem "ViVA"
With Me.ListBox_Aktenzeichen2
.AddItem "IGVP"
.AddItem "ViVA"
End With
End With
End Sub
Private Sub ListBox_Aktenzeichen1_Change()
If ListBox_Aktenzeichen1.Value = "IGVP" Then
TextBox_Aktenzeichen1.Text = Format(TextBox_Aktenzeichen1, "######""-""######""-""##""/" _
"#")
Else
If ListBox_Aktenzeichen1.Value = "ViVA" Then
TextBox_Aktenzeichen1.Text = Format(TextBox_Aktenzeichen1, "######""-""####""-""#### _
##")
End If
End If
End Sub
Private Sub ListBox_Aktenzeichen2_Change()
If ListBox_Aktenzeichen2.Value = "IGVP" Then
TextBox_Aktenzeichen2.Text = Format(TextBox_Aktenzeichen2, "######""-""######""-""##""/" _
"#")
Else
If ListBox_Aktenzeichen2.Value = "ViVA" Then
TextBox_Aktenzeichen2.Text = Format(TextBox_Aktenzeichen2, "######""-""####""-""#### _
##")
End If
End If
End Sub
Allerdings kann ich mit dem Code nicht hin und her wechseln.
Für eure Hilfe wäre ich sehr dankbar!