Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Weitersuchen per VBA
Autor: Arno
Datum: 14.03.03 14:58
Hi NG, wie kann ich meinen Code so optimieren das wenn zwei gleich Datumsangaben in einer Spalte stehen zuerst die erste Angabe angezeigt wird und dann die zweite´? Dank im voraus Arno Sub SuchDatum() 'Fehlerbehandlung On Error Resume Next 'Deklaration von Datum und Spalten Dim rng As Range Dim Datum1 As Date Datum1 = InputBox("Geben Sie ein Datum ein") 'Datumsvergleich mit der InputBox und dem Zelleninhalt Dim var As Variant var = Application.Match(CDbl(Datum1), Columns(5), 0) 'Ausgabe in eine MSGBox If IsError(var) Then Beep MsgBox prompt:="Datum wurde nicht gefunden!" Else MsgBox prompt:="Ablaufdatum erreicht." End If If IsError(var) Then Beep Else ' Anzeige der Fundzeile der Datumsanzeige MsgBox prompt:="Spalte E, Fundzeile: " & var End If End Sub .

Weitersuchen per VBA	230	Arno	14.03.03 14:58
Re: Weitersuchen per VBA	146	Greyhound	27.03.03 14:19

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen