Sub SelectMarch()
 Dim first As Range, last As Range
 ' Die erste und die letzte Zelle für März finden.
 FindLike "??.03*",first,last
 ' Den Bereich auswählen.
 Range(first,last).Select
End Sub

Sub FindLike(str As String, first As Range, _
 last As Range)
 Dim cel As Range, i As Integer
 For Each cel In ActiveSheet.UsedRange
 If (cel.Value Like str) Then
 i=i+1
 If i=1 Then Set first=cel
 Set last=cel
 End If
 Next
End Sub