.find und .select klappt nicht (vba)
12.05.2017 16:26:53
Berni
ich habe ein Tabellenblatt ("Kassenbuch"), auf dem genau ein Mal das Wort "Letzte" auftaucht (als Folge einer Formel... Zeile Fall-abhängig, aber immer in Spalte U).
Mit einem vba soll dieses Wort gefunden, selektiert und die Zeile mit dem "Fund" in die Mitte des Bildschirms gescrollt werden.
Dazu habe ich folgende Code-Zeilen erstellt. Sie sind eingebettet in weitere Handlungs-Code-Anweisungen.
Und bis gestern funktionierte das auch toll... seit heute streikt er beim Selektieren (ohne , dass ich was geändert hatte):
Private Sub Sperren()
Dim last As Variant
With Sheets("Kassenbuch").Cells
Set last = .Find("Letzte", Lookat:=xlWhole)
If Not last Is Nothing Then
Sheets("Kassenbuch").Activate
Sheets("Kassenbuch").Range(last.Address).Select
Else: MsgBox "Letzte Zeile nicht gefunden"
End If
End With
End Sub
Ziel ist es, das Erstellen einer Zeichnung am Ende der letzten bebuchten Zeile (deren Aufruf auch in dieses vba eingebettet ist) zu beobachten....
Seit heute kommt die Fehler Message-Box "Letzte Zeile nicht gefunden", und die Zelle mit "Letzte" findet er wohl weder, noch selektiert er sie...
Besten Dank für Eure Hilfe!
Grüsse, Berni