Schleife
16.06.2006 16:47:35
Erich
Kann man diesen Code auch mit einer Schleife
herstellen?
Private Sub Workbook_Open()
On Error Resume Next
Tabelle1.Activate
Tabelle1.Range("A2").Select
If Tabelle1.Range("h1") = "" Then GoTo 1
1 Tabelle1.Range("A1") = Now
i = Now
Range("A1") = i
Select Case Tabelle1.Range("B1")
~f~Case Is <= i~f~
UserForm1.Label1.Caption = Tabelle1.Range("E3").Value
End Select
Select Case Tabelle1.Range("B2")
~f~Case Is <= i
UserForm1.Label1.Caption = Tabelle1.Range("E4").Value
End Select
Letzte Zelle ist Tabelle1.Range("E53").
Bin Dankbar für jeden Hinweis
Gruss Erich