Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellenvergleich

Zellenvergleich
30.12.2003 16:02:12
Wolfgang Schleiff
Hallo Excel Fans,

ich möchte 2 Zellen vergleichen. In Zelle A 1 steht das heutige Datum. Dieses Datum soll verglichen werden mit einer Anzahl von Datümern, die in den Zellen B1 bis B16 aufsteigend stehen. Wenn A1 größer ist als ein Datum dann soll der Wert aus der gleichen Zeile und Spalte C genommen und in Spalte D kopiert weren. Wäre perfekt wenn jemand eine Lösung für dieses Problem hätte ?

Danke im Voraus
Wolfgang

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellenvergleich
30.12.2003 16:12:32
Bernd Kiehl
Hallo Wolfgang,

meinst du so...

Gruss Bernd

AW: Zellenvergleich
30.12.2003 16:41:22
Wolfgang Schleiff
Diese Lösung ist prima, gehbt aber bestimmt auch im VBA Modus. Weiß da jemand Rat ? Danke im Voraus !
Ich nicht - hab nur Level "mit Rekorder" OT
30.12.2003 16:51:19
Bernd Kiehl
.
Makro
30.12.2003 17:05:34
Josef Ehrensberger
Hallo Wolfgang,

ich persönlich würde die Formel-Version bevorzugen,
aber wenn Du lieber ein Makro willst, dann bitte.



Sub DatumVergleich()
'Vergleicht das Datum in "B1:B16" mit "A1" und
'kopiert Wert aus Spalte "C" nach "D"
Dim rng As Range
   With Sheets("TB3")
   'Tabellenblatname anpassen
      For Each rng In .[B1:B16]
         If .[A1] > rng Then
         rng.Offset(0, 1).Copy rng.Offset(0, 2)
         End If
      Next
   End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige