If Abfrage

Hallo zusammen
In vier verschiedenen (nicht anreihenden) Spalten sind Jahrzahlen von 2005 bis 2020 eingetragen. Mittels UserForm bestimmt der User den Auswahlbereich (Zeitraum zB. von 2006 bis 2011). Diese übergebe ich den Variablen Jahr1 und Jahr2.
Jahr1 hat in diesem Beispiel also den Wert 2006, Jahr2 den Wert 2011.
Wie kann ich nun feststellen, ob die gesuchten Jahre im definierten Bereich vorkommen?
Ich habe folgenden Ansatz, komme aber nicht zum gewünschten Ergebnis (Freitagabend!!). Kann mir jemand weiterhelfen?
Zähler = 0
For Each objZeile In Worksheets("Master Datei").Rows
Set Bereich = Union(Worksheets("Master Datei"). _
Range(Cells(Zeile, 40), Cells(Zeile + Zähler, 40)), _
Range(Cells(Zeile, 42), Cells(Zeile + Zähler, 42)), _
Range(Cells(Zeile, 44), Cells(Zeile + Zähler, 44)), _
Range(Cells(Zeile, 47), Cells(Zeile + Zähler, 47)))
JahrMin = Application.WorksheetFunction.Min(Bereich)
JahrMax = Application.WorksheetFunction.Max(Bereich)
If JahrMin 0 And JahrMax 0 Then
If Jahr1 >= JahrMin And Jahr1 = JahrMin And Jahr2 End If
End If
usw.
Gesucht ist also ob die definierten Jahre 2006 bis 2011 im definierten Bereich vorhanden sind. Sollte doch mit einer plausiblen If-Abfrage möglich sein.
Vielen Dank und Gruss
Gregor

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: If Abfrage

21.10.2005 22:16:05

Franz

AW: If Abfrage

22.10.2005 01:02:16

Gregor

AW: If Abfrage

22.10.2005 01:54:13

Aton

AW: If Abfrage

22.10.2005 10:52:37

Peter

AW: If Abfrage

22.10.2005 19:36:08

Gregor

Sub Test() Dim wks As Worksheet, Bereich As Range, ojbZeile As Range, Zeile As Integer Zeile = 1 Zähler = 0 Set wks = ThisWorkbook.Worksheets("MasterDatei") With wks For Each objZeile In .UsedRange.Rows Set Bereich = Union(.Range(Cells(Zeile, 40), Cells(Zeile + Zähler, 40)), _ .Range(Cells(Zeile, 42), Cells(Zeile + Zähler, 42)), _ .Range(Cells(Zeile, 44), Cells(Zeile + Zähler, 44)), _ .Range(Cells(Zeile, 47), Cells(Zeile + Zähler, 47))) JahrMin = Application.WorksheetFunction.Min(Bereich) JahrMax = Application.WorksheetFunction.Max(Bereich) If JahrMin <> 0 And JahrMax <> 0 Then If Jahr1 >= JahrMin And Jahr1 <= JahrMax And Jahr2 >= JahrMin And Jahr2 <= JahrMax Then End If End If Zeile = Zeile + 1 Next End With End Sub

Sub t() Dim intAnf As Integer, intEnd As Integer Dim myrng As Range, rng As Range intAnf = 2006 intEnd = 2011 Set myrng = Range("A1:A10") intZähler = 1 For Each rng In Sheets("Tabelle1").Range(myrng.Address) If rng >= intAnf And rng <= intEnd Then rng.Offset(0, 1) = rng.Row End If Next End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

If Abfrage

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread