mehrere Zellen mit Daten aus Userform befüllen
10.10.2018 21:53:22
Andreas
ich möchte gern wissen ob folgender Code noch zu vereinfachen ist - ich habe bereits im Forum nach verschiedenen Begriffen gesucht - bin aber nicht fündig geworden.
Da ich Userforms habe mit sehr vielen zu übergebenden Daten wäre eine Lösung mit einer Schleife für die Übertragung der Werte in die Excelzellen prima. Die Zielzellen sind entsprechend mit dem gleichen Namen wie auch die Control-Elemente in meiner Userform versehen.
Sub AnwenderdatenSichern()
Dim a1 As String, a2 As String, a3 As String, a4 As String, a5 As String
Dim i As Integer
a1 = "txtAnwenderNameVorname"
a2 = "txtAnwenderMail"
a3 = "txtAnwenderTelefon"
a4 = "txtAnwenderDebitor"
a5 = "txtInnendienstMail"
With Worksheets("dat_allgemein")
.Range(a1).Value = form_Anwenderdaten.Controls(a1).Value
.Range(a2).Value = form_Anwenderdaten.Controls(a2).Value
.Range(a3).Value = form_Anwenderdaten.Controls(a3).Value
.Range(a4).Value = form_Anwenderdaten.Controls(a4).Value
.Range(a5).Value = form_Anwenderdaten.Controls(a5).Value
End With
End Sub
Danke schon mal :)
Anzeige