Vielleicht CountA?
08.11.2004 21:07:05
Fritz
Um zu üben bastele ich an einem Zimmerbelegunsplan. In eine Textbox wird das Anfangsdatum geschrieben, in eine zweite das Enddatum. Ich bin ohne select :-)) soweit gekommen, dass beides wohl gefunden wird. Nun möchte ich wissen, ob zwischen "Anfang" und "Ende" in Spalte 2, 3 oder 4 eine oder mehrer Zellen belegt sind. Hier weiß ich nicht weiter. Mit ohne select kann ich nämlich noch nicht :-(
Hier mein code, soweit ich ihn habe. Die Frage steht noch mal in der MsgBox.
Wäre nett, wenn ich einen kleinen oder größeren Anschubser von Euch bekäme.
Sub Suchen()
Dim Datum1 As Date, Datum2 As Date, Anfang As Boolean
Dim Ende As Boolean, Zeile As Long, wks As Worksheet
Set wks = Sheets("Belegung")
Datum1 = CDate(frmMaske.txtvon.Value)
Datum2 = CDate(frmMaske.txtbis.Value)
For Zeile = 2 To 366
If Cells(Zeile, 1).Value = Datum1 Then
Anfang = True
Exit For
End If
Next Zeile
For Zeile = 2 To 366
If Cells(Zeile, 1).Value = Datum2 Then
Ende = True
Exit For
End If
Next Zeile
If Anfang And Ende Then
MsgBox "Anfang und Ende gefunden. Prima." & Chr(13) & _
"Wie erfahre ich aber nun, ob zwischen Anfang und Ende" & Chr(13) & _
"ein Wert in Spalte 1 steht?"
End If
End Sub
Mit Find habe ich es auch schon probiert. Geht auch. Aber am Ende habe ich dann wieder dasselbe Problem.
Danke,
Grüße, Fritz