Office 2016 Fehler beim Suchen nach Wert in Spalte

[FlorianF]

Hi Leute,

jetzt zweifle ich schon fast an mir selbst. Die ganze Zeit hat mein Code funktioniert und seit gestern habe ich in dieser Zeile den Fehler Objekt- und With-Block Variable nicht festgelegt. Ich kann mich aber nicht daran erinner, dass ich an diesem Teil des Codes was geändert habe.

Code: [Auswählen]

strGegenkonto = tblKontenzuordnung.Range("A:A").Find(strBuchungstext).Offset(0, 1).Value
Hier mal die ganze Prozedur:

Code: [Auswählen]

Sub GegenkontenEinfuegen()
   
    Dim rngSpalte As Range, rngZelle As Range
    Dim strBuchungstext As String, strGegenkonto As String
   
    Set rngSpalte = tblBuchungen.Range("G2:G" & tblBuchungen.UsedRange.Rows.Count)
   
    For Each rngZelle In rngSpalte
        strBuchungstext = rngZelle.Offset(0, -1).Value
        strGegenkonto = tblKontenzuordnung.Range("A:A").Find(strBuchungstext).Offset(0, 1).Value
        rngZelle.Value = strGegenkonto
    Next rngZelle

End Sub
Kann mir jemand sagen woran das liegt?

Danke euch!!!

[maninweb]

Hallo,

sieht so aus, als würde dann strBuchungstext nicht gefunden werden. Also, hattest Du wohl vorher On Error Resume Next drin.

Gruß

[FlorianF]

Hatte ich schon geprüft, aber den Eintrag gibt es in dieser Range

Code: [Auswählen]

tblKontenzuordnung.Range("A:A")

[maninweb]

Hallo,

das kann man ohne Daten nicht testen. Frage ggf. tblKontenzuordnung.Range("A:A").Find(strBuchungstext)
auf Nothing ab, bevor Du es verwendest.

Gruß