ich breche noch zusammen. Was habe ich mir mit dem Lernen von VBA angetan ;)
Ich suche mit folgendem Code in einem Tabellenblatt nach dem aktuellen Monatsnamen, den er sich aus der Zelle D1 im Sheet "Tabelle1" ziehen soll.
ThisWorkbook.Worksheets(Zuo).Activate
lzzuo = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
lszuo = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
AktuellerMonat = Sheets("Tabelle1").Range("D1").Value
Set Findmon = Sheets(Zuo).Range(Cells(1, 1), Cells(1, lszuo)).Find(What:=AktuellerMonat, LookIn: _
=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not Findmon Is Nothing Then
MsgBox Findmon.Address
Else
MsgBox "Monat wurde nicht gefunden"
End If
Die Funktion in Zelle D1 lautet:
=WENN(A5"";TEXT(A5;"MMMM")&" "&JAHR(A5);"?")
, die mir "Juni 2013" korrekt ausgibt.Im Sheet "Zuo" in Zelle A1 steht ebenfalls "Juni 2013" (genauer gesagt 01.06.2013 im benutzerdefinierten Format MMMM JJJJ.
Leider bekomme ich immer die Meldung "Monat wurde nicht gefunden". Es muss am Format liegen, weil wenn ich in die Zelle A1 des Zuo Sheets "Test" schreibe und dies im Find Befehl: What:="Test" dementsprechend anpasse, dann gibt er mir die Zellenadresse wieder.
Hat da jmd. einen Tipp? Mache ich mir das Leben wieder unnötig schwer :)?