habe wieder einmal ein Problem. In einem Dialogfeld muss ich bis zu 50 Textfelder bestücken. Gibt es die Möglichkeit eine Schleife zu schreiben?
Beispiel Code wie ich es gelöst habe siehe unten,allerdings ist dies recht aufwendig Danke im Voraus
tKostenstelle1.Caption = ActiveCell.Value
tKonto1.Caption = ActiveCell.Offset(0, 1).Value
tKostenstelle2.Caption = ActiveCell.Offset(1, 0).Value
tKonto2.Caption = ActiveCell.Offset(1, 1).Value