Mahlzeit zusammen
Erst einmal vielen Dank für den zahlreichen Support hier im Forum ohne die vielen Beiträge wäre ich mit meinen bescheidenen VBA Kenntnisse bestimmt nicht weit gekommen.
Jedoch habe ich jetzt ein Problem zu dem ich einfach keine Lösung finden kann.
Ich habe im Sheet "Früh" Zelle A8 einen Namen stehen der in Tabelle6 abgeglichen werden muss.
Dies funktioniert auch super. Auch die Zelle A8 leer ist funktioniert alles wunderbar.
Wenn ich jedoch in Zelle A8 einen Namen stehen habe den es in der Tabelle nicht gibt dann soll der Code genau so handeln, wie wenn nichts in A8 stehen würde.
Bin dann im Forum auf die On Error GoTo Funktion gestoßen und habe versucht diese einzubinden jedoch bekomme ich dann sporadisch einen Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt.
Anbei mal mein kläglicher Versuch die GoTo Funktion einzubinden.
'Zellbezug Zeile A8
If Not Sheets("Früh").Range("A8").Value = "" Then
Dim ZeileA8 As Range
Set ZeileA8 = Tabelle6.Columns(x).Find(What:=Tabelle1.Range("A8"), LookIn:=xlValues, lookat:=xlWhole)
On Error GoTo BeendenA8
y = ZeileA8.Row
Sheets("Früh").Range("J8").Value = Sheets("Lokeinsatzplan").Cells(y, x - 1)
Else
BeendenA8:
Sheets("Früh").Range("J8").Value = ""
End If