Code verbessern für schnellere Ausgabe an Userform
16.03.2004 15:20:23
Josef Bouchi
ich habe folgenden Code gebastelt, um ganz bestimmte Werte aus einer Tabelle in eine Userform auszulesen. Der Code ist mittlerweile sogar was länger geworden, aber im Prinzip ähnelt er diesem. Mein "Problem": es dauert einige Sekunden bis diese ausgelesen werden. Nicht wirklich gravierend, aber ich denke das geht auch schneller. Für jeden Ansatz bin ich dankbar. Hier der Code.
Private Sub UserForm_Initialize()
'Aktuelle Werte aus Tabelle übernehmen
Dim iRow As Integer
Cells([a65536].End(xlUp).Row, 1).Activate
Me.labelNr = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.txt_PolicyCheck = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.txtDatumIn = ActiveCell
ActiveCell.Offset(columnOffset:=3).Activate
Me.ComboBox1 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.ComboBox2 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.ComboBox3 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.ComboBox4 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox1 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox2 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox16 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox3 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox6 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox4 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox14 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox12 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox5 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox7 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox13 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox17 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox18 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox19 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
If ActiveCell.Value = "Yes" Then
Me.opt_Yes = ActiveCell
Else:
Me.opt_No = ActiveCell
End If
ActiveCell.Offset(columnOffset:=1).Activate
If ActiveCell.Value = "Justified" Then
Me.opt_justified = ActiveCell
ElseIf ActiveCell.Value = "not justified" Then
Me.opt_notjustified = ActiveCell
Else:
Me.opt_partly = ActiveCell
End If
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox8 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox9 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox10 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.CheckBox11 = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.handled_by = ActiveCell
ActiveCell.Offset(columnOffset:=1).Activate
Me.registered_by = ActiveCell
End Sub
Danke schön.
Grüsse
Josef