Codeerweiterung gesucht
27.02.2014 17:49:03
Frank
Vor einiger Zeit wurde mir hier im Forum mit folgendem Code geholfen:
Dim arrValues() As Variant
intRowU = 0
For d = 5 To Sheets("DUZ").Cells(Rows.Count, 1).End(xlUp).Row
datum = Sheets("DUZ").Cells(d, 1)
datum1 = Sheets("DUZ").Cells(d, 1) + 1
If Not Month(datum) = Month(datum1) Then
le = Sheets("DUZ").Cells(d, 1)
ReDim Preserve arrValues(0 To 8, 0 To intRowU)
arrValues(0, intRowU) = Sheets("DUZ").Cells(d, 1)
arrValues(1, intRowU) = Sheets("DUZ").Cells(d, 23).Text ' Spalte W
arrValues(2, intRowU) = Sheets("DUZ").Cells(d, 24).Text
arrValues(3, intRowU) = Sheets("DUZ").Cells(d, 25).Text
arrValues(4, intRowU) = Sheets("DUZ").Cells(d, 26).Text
arrValues(5, intRowU) = Sheets("DUZ").Cells(d, 27).Text
arrValues(6, intRowU) = Sheets("DUZ").Cells(d, 28).Text
arrValues(7, intRowU) = Sheets("DUZ").Cells(d, 29).Text
intRowU = intRowU + 1
End If
Next d
ListBox2.Column = arrValues
Nun möchte ich aber nur die Datensätze angezeigt bekommen wenn auch in Spalte W ein Eintrag steht.
Ich versuchte es mit der Ergänzung in der If Zeile: AND Cells(d, 23) ""
Das funzt aber leider nicht. Kann mir jemand helfen?
Danke.
Gruß Frank H.