Hallo ihr Excelspezialisten,
mit nachstehendem Code suche ich in Tabelle2 nach einem Datumwert der zwischen Anfangwert und Endwert liegt.
Wenn dieser nun gefunden ist, wird dieser mit rng.select markiert.
<pre>Sub Datumsvergleich_SpalteF_kleiner_groesser2()
Dim rng As Range
Dim lZeile As Long
With Worksheets("Tabelle2")
lZeile = .Cells(.Rows.Count, 6).End(xlUp).Row 'Spalte F
Dim Inh_N, Inh_S, Inh_PLZ, Inh_Ort, Inh_Tel As Range
' For Each rng In Range("F2:F50")
For Each rng In .Range("F2:F" & lZeile)
If rng > CDate("01.01.2019") And rng < CDate("31.12.2019") Then
MsgBox rng & " groesser " & "01.01.2019" & " kleiner " & "31.12.2019"
rng.Select
End If
Next
End With
End Sub</pre>
Nun möchte ich aber, dass die Werte der Spalten A, B, C, D und E ausgelesen werden.
z. B. Inh_N = Spalte A ist activecell(Offset(0,-6) geht nicht Laufzeitfehler 538.
Könnt ihr mir bitte helfen. Besten Dank.
Gruss
Peter