suche mit Array
16.01.2006 21:03:43
Peter
bisher habe ich die Spaltennummer in dem das akt. Datum steht mit dem
unteren Makro ermittelt.
- die Spaltennummer des akt Datumermitteln
- das akt. Datum wird in Zeile 8 der Spalten 7-99 gesucht
Geht das auch mit einem Array?
Danke Peter
Sub aktDatumColumn()
Dim GesDatSpalte As Range
Dim intMonat As Integer
Dim intJahr As Integer
Dim DatCol As Long
intMonat = Month(Date)
intJahr = Year(Date)
If ActiveSheet.Name = Format(DateSerial(intJahr, intMonat, 1), "mmm YYYY") Then
Set GesDatSpalte = Rows(8).Find(DateValue(Date), LookIn:=xlFormulas)
DatCol = GesDatSpalte.Column
MsgBox DatCol
End If
End Sub