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