Datum im Schichtplan suchen VBA

[michel34497]

Hallo Leute!

Ich möchte gerne ein Datum im Schichtplan suchen. In der Zeile 4 Steht der Monatsname, in der Zeile 7 der Tag.
Wie kann man jezt z.B. den 03.02 oder 07.05 suchen?
Ein Beispiel ist angehangen.

Danke im voraus.

Michael

[Kuwer]

Hallo Michael,

Private Sub CommandButton1_Click()
  With Range("W7:BA7")
    .Cells(Application.Match(CDbl(CDate(TextBox1)), .Cells, 0)).Select
  End With
End Sub

Gruß Uwe

[michel34497]

Hallo Uwe!

Danke dir für deine antwort.
Habe den bereich erweitert W7:OT7 und es funktioniert.
Möchte aber nicht die Zelle selectieren sondern wissen in welcher Spalte das Datum steht.
Weiß nicht wie ich das ändern soll. Kannst du nochmals helfen?

Danke.

[Kuwer]

Hallo Michael,

z.B. so:

Private Sub CommandButton1_Click()
 Dim strSpalte As String
 With Range("W7:OT7")
   strSpalte = .Cells(Application.Match(CDbl(CDate(TextBox1)), .Cells, 0)).EntireColumn.Address(0, 0)
   MsgBox Left(strSpalte, Len(strSpalte) / 2)
 End With
End Sub

Gruß Uwe