Anzeige
Archiv - Navigation
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife

Schleife
16.06.2006 16:47:35
Erich
Hallo Excelaner....
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 &lt= i~f~
UserForm1.Label1.Caption = Tabelle1.Range("E3").Value
End Select
Select Case Tabelle1.Range("B2")
~f~Case Is &lt= i
UserForm1.Label1.Caption = Tabelle1.Range("E4").Value
End Select
Letzte Zelle ist Tabelle1.Range("E53").
Bin Dankbar für jeden Hinweis
Gruss Erich

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife
16.06.2006 17:39:05
fcs
Hallo Erich,
Version mit Schleife:

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
For Each Zelle In Tabelle1.Range("B1:B51")
If Zelle.Value <= i Then
UserForm1.Label1.Caption = Zelle.Offset(2, 3).Value
Exit For '*****
End If
Next
End Sub
***** Diese Zeile evtl. löschen, wenn mehrere Zellen im Bereich mfg
Franz
AW: Super, Perfekt
16.06.2006 17:44:40
Erich
Hallo Franz...
Super, vielen Dank für die schnelle Antwort.
Klappt perfekt.
Jetzt wird mein Code übersichtlicher.
Gruss Erich
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige