selectieren dynamisch
06.07.2006 06:41:47
Giuseppe
ich schaffe allein nicht und brauche eure Hilfe:
ich möchte der Code so ändern, dass statt AS2500 letze benutze zelle in AS selectiert wird. Wie mache ich das?
Hier der Code:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ListBox1.Visible = True
ListBox1.RowSource = ("A3:AS2500")' Die Tabelle heißt "Database"
Dim f As Integer, l As Integer
For f = 27 To 45
Controls("TextBox" & f).Visible = False
Next
For f = 27 To 45
Controls("Label" & f).Visible = False
Next
Label41.Visible = True
TextBox41.Visible = True
Label43.Visible = True
TextBox43.Visible = True
Else
ListBox1.Visible = False
ListBox1.RowSource = ("")
For f = 27 To 45
Controls("TextBox" & f).Visible = True
Next
For f = 27 To 45
Controls("Label" & f).Visible = True
Next
End If
End Sub
Danke
Giuseppe