If Then per VBA

[atilla]

Hallo zusammen,


ich gehe davon aus, dass Peggymaus eine Schaltfläche in Tabelle2 nutzt und Tabelle "Antrag neu" nicht Tabelle2 ist.

Dann wäre folgende Lösung relativ einfach und flexibel:

Code:

Sub gehe_zu()
   Dim varZeile As Variant
   
   If Cells(2, 1) <> "" Then
       Select Case Cells(2, 1).Value
           Case "Jahr gesamt"
               Sheets("Antrag neu").Select
               Cells(10, 3).Select
           Case Else
               varZeile = Application.Match(CLng(CDate(Year(Date) & "/" & Range("A2") & "/1")), Columns("c"), 0)
               If IsNumeric(varZeile) Then
                   Sheets("Antrag neu").Select
                   Cells(varZeile, 3).Select
               Else
                   MsgBox CDate(Year(Date) & "/" & Range("A2") & "/1") & " nicht gefunden!"
               End If
       End Select
   End If
End Sub