Mit
Set r_Liste2 = ActiveCell.CurrentRegion
Set r_Felder2 = r_Liste2.Rows(1)
int_AnzFelder2 = r_Felder2.Columns.Count
For int_Zähler2 = 1 To int_AnzFelder2
Controls("BeaLab" & int_Zähler2) = r_Felder2.Cells(int_Zähler2)
Next
muß ich mich auf dem richtigen Tabellenblatt befinden sonst erhalte ich die Fehlermeldung dass ein Object nicht gefunden werden konnte und die Zeile mit den Controls wird markiert.
Gibt es hier bitte eine Möglichkeit dass der Fehler nicht auftaucht, wenn im Hintergrund ein anderes Arbeitsblatt aktiv ist?
Vielleicht statt ActiveCell.CurrentRegion ?
Josef