ich möchte gerne dem Nutzer meiner Tabelle anbieten einen Monat auszuwählen.
Nach der Auswahl soll der Bereich vom 01.des Monats bis zum letzten Tag des Monats markiert werden.
In Cells(3, 31) steht z.B.: "03" für März
In Cells(3, 27) steht z.B.: "2017"
Nun soll der gesamte März in 2017 markiert werden.
Ich denke mir vom Code her sollte der Ablauf so sein:
-Suche in Spalte C den 01.03.2017
-Merke dir diesen Tag
-gehe jetzt zum letzten Tag des Monats (nächst höhere Monat -1)
-Merke dir auch diesen Tag
-Nun markiere den Bereich zwischen den zwei gemerketen Tagen.
...ach wenn das alles so einfach wäre
Ich müsste mit zwei Schleifen gleichzeitig arbeiten, aber wie?!
(Die eine für den Monatsanfang und die Andere für das Monatsende)
Hier mein jetziger Code, welche nurn den 01. des Monats eines Jahres wählt:
Sub sucheMonatprobe()
Dim i As Integer
Dim suchspalte As String
suchspalte = "c"
For i = 1 To Daten.UsedRange.Rows.Count
If Range(suchspalte & i).Text = "01." & Cells(3, 31) & "." & Cells(3, 27) Then
Range(Cells(i, suchspalte), Cells(i + 30, suchspalte)).Select
MsgBox "Jahr in " & Cells(i, suchspalte) & " gefunden"
Exit Sub
End If
Next
MsgBox "Jahr wurde nicht gefunden"
End Sub