Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum Prüfen

Datum Prüfen
29.11.2004 13:34:54
Jens
Hallo,
ich möchte mittels einer VBA Funktion Datumsbereiche prüfen!
...hab mal ne datei fertig gemacht...um besser zu zeigen worum´s geht...
Die Daten in dieser Datei kommen aus einer Datenbank!!
Das heisst die Funktion muss die Datenbankeinträge bei neuer Eintrag und Einträge Ändern prüfen!
(NICHT die Werte prüfen die in der Tabelle stehen!!!)
Bin am Verzweifeln...bekomme es einfach nicht hin...und hoffe das mir HIER einer helfen kann!!!
https://www.herber.de/bbs/user/14076.xls
MFG
Jens

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Prüfen
xule
so z.B.


      
Sub Zeitfehler()
    Dim Fehler
    
    Set TB1 = Sheets("Tabelle1")
    EZ = 3 'Erste DatenZeile
    SP = 1 'Spalte zur Ermittlung der letzten Zeile
    LZ = TB1.Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
    Columns(11).Interior.ColorIndex = 0
    Columns(15).Interior.ColorIndex = 0
    For i = EZ To LZ
        If Cells(i, 11).Value < Cells(i, 10).Value Then
            Cells(i, 11).Interior.ColorIndex = 6
            Fehler = 1
        End If
        If Cells(i, 15).Value < Cells(i, 14).Value Then
            Cells(i, 15).Interior.ColorIndex = 6
            Fehler = 1
        End If
    Next
    If Fehler <> 0 Then MsgBox "Gelbe Felder = Terminüberschneidungen"
End Sub 
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige