25.09.2015, 20:48
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:
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