Umformeln eines Beitrags
28.11.2018 13:23:20
Stefanie
berverly scheint nicht mehr online zu sein und ich müsste dringend weitermachen an meiner Tabelle. Danke erstmal bis dahin noch für deine Bemühungen
Mit folgendem Code wird Reihe 2 nach dem Monatsanfang durchsucht, wenn in a1 januar februar usw. reingeschrieben wird.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
If Target.Cells(1).Address(False, False) = "A1" Then
If Not IsDate(Target.Value) Then
Set rngZelle = Rows(2).Find(DateValue("01." & Target.Value & ". " & Year(Date)), _
LookIn:=xlValues)
If Not rngZelle Is Nothing Then
Application.Goto reference:=rngZelle.Offset(8, 0), scroll:=True
End If
Else
Set rngZelle = Rows(2).Find(Target.Value, LookIn:=xlValues)
If Not rngZelle Is Nothing Then
Application.Goto reference:=rngZelle.Offset(8, 0), scroll:=True
End If
End If
End If
End Sub
Bei mir kommt leider ein Fehler, weil meine Zellen in diesem Format TT.MM formatiert sind (12.10). Das Ergebnis kommt aus einer Formel 01.01.2018 + 1 fortlaufend für alle 365 Tage.
Kann mir jemand sagen, wie die Formel umgeschrieben werden muss, damit er bei mir richtig sucht und aufgrund der Formatierung nichts findet.
Set rngZelle = Rows(2).Find(DateValue("01." & Target.Value & ". " & Year(Date)), LookIn:=xlValues)
Denke dass man das hier ändern müsste, weiß nur leider nicht wie.
Danke für die Hilfe.