Frage zu meinem Makro - verkürzen?
18.04.2016 18:13:09
Frank
Ich habe auf einer UF 24 TextBoxen, diese werden mittels Klick in eine ListBox gefüllt und deren Inhalt wird dann mittels folgendem Makro in meine Tabelle "Adressen" geschrieben. Funzt auch.
lngRows = frmAdressverwaltung.ListBox1.Column(16)
For i = 1 To 4
Me("TextBox" & i) = Sheets("Adressen").Cells(lngRows, i + 18)
Me("TextBox" & i + 4) = Sheets("Adressen").Cells(lngRows, i + 22)
Me("TextBox" & i + 8) = Sheets("Adressen").Cells(lngRows, i + 26)
Me("TextBox" & i + 12) = Sheets("Adressen").Cells(lngRows, i + 30)
Me("TextBox" & i + 16) = Sheets("Adressen").Cells(lngRows, i + 34)
Me("TextBox" & i + 20) = Sheets("Adressen").Cells(lngRows, i + 38)
Next i
Nun aber meine Frage. Kann man meine Zahlen irgendwie durch eine Variabel ersetzen und dann das ganze in nur einer Zeile vereinfachen?
Ich hoffe es weiss jemand Rat und es wird mir wieder etwas beigebracht.
Danke!
Gruß frank H.
Anzeige