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
Anzeige