Frage über arrays
30.09.2016 15:15:18
Max
ich habe verschiedene Arrays mit unterschiedlichen Nutzerdaten.
Der Verfasser(x) steht in einer KomboBox, wenn Verfasser(0) ausgewählt wurde soll
in ein Dokument dass dann geöffnet wird in bestimmte Textmarken: Tel(0), Vor(0) und Nach(0) eingefügt werden.
hier die Arrays:
Dim Verfasser(15) As String
Dim Tel(15) As String
Dim Vor(15) As String
Dim Nach(15) As String
Hier ein unschönes blödes stück Code
If strCb1 = Verfasser(5) Then
objDMTName.Range.Text = Vor(5) & " " & Nach(5)
objDMTMail.Range.Text = LCase(Vor(5)) & "." & LCase(Nach(5))
objDMTTel.Range.Text = Tel(5)
End If
So ist dass aber ewig viel Code da ich für jeden Verfasser eben einen If-Block habe,gibt es eine Möglichkeit ihm zu sagen dass er wenn Verfasser(x) ausgewählt die anderen Arrays mit dem gleichen (x) wert verwendet ?
(Bestimmt merkt ihr dass Verfasser und Vor + Nach mehr oder weniger das gleiche ist, aber Verfasser ist erst Nachname dann Vorname und für die Dokumente brauche ich es anders herum und ich wollte nicht großartig "Split(...(Variable...etc.))" verwenden