Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1536to1540
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
Inhaltsverzeichnis

Datum mit Array vergleichen

Datum mit Array vergleichen
31.01.2017 11:30:45
Anton
Guten Morgen Zusammen,
mit folgendem Code würde ich gerne das Datum in wksParams.cells(31,4).value (formatiert als Datum) mit dem Datum im arr() Spalte 1 vergleichen. Wenn das Datum im Array Spalte 1 größer ist soll in Array Spalte 2 bei der entsprechenden Position "OK" geschrieben werden. Nun bekomme ich immer einen Typenkonflikt.
Kann mir evtl. wer weiterhelfen?
Sub Arrays()
Dim arr() As Variant
Dim i As Long
Dim wksBlatt As Worksheet
Dim wksParamas As Worksheet
Set wksBlatt = ThisWorkbook.Worksheets("Zeitraum")
Set wksParams = ThisWorkbook.Worksheets("Parameter")
With wksBlatt
arr = .Range("A3:G369")
For i = LBound(arr) To UBound(arr)
If CLng(arr(i, 1)) >= CLng(wksParams.Cells(31, 4).Value) Then
arr(i,2) = "OK"
End If
Next i
End With
End Sub
Hier eine Beispielmappe:
https://www.herber.de/bbs/user/111026.xlsx
Danke & VG
Anton

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum mit Array vergleichen
31.01.2017 12:34:21
ChrisL
Hi Anton
Wenn du im Debug-Modus über "arr" in der Codezeile fährst (Roll-Over), dann siehst du den Wert (Text "Datum") was mit eine Typ Long (CLng) unverträglich ist.
Fazit: dein Bereich beginnt in A3 anstatt A4.
cu
Chris
AW: Datum mit Array vergleichen
31.01.2017 12:37:08
Rudi
Hallo,
in A3 steht "Datum"
arr = .Range("A4:G369")
Gruß
Rudi
AW: Datum mit Array vergleichen
31.01.2017 12:55:47
Anton
Vielen Dank euch beiden! Debug Mode beim MAC ist ziemlich abgespeckt.
VG Anton
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige