Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: FlorianF am August 05, 2017, 10:35:08 Vormittag

Titel: Office 2016 Fehler beim Suchen nach Wert in Spalte
Beitrag von: FlorianF am August 05, 2017, 10:35:08 Vormittag

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!!!

Titel: Antw:Office 2016 Fehler beim Suchen nach Wert in Spalte
Beitrag von: maninweb am August 05, 2017, 11:46:33 Vormittag

Hallo,

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

Gruß

Titel: Antw:Office 2016 Fehler beim Suchen nach Wert in Spalte
Beitrag von: FlorianF am August 06, 2017, 10:34:42 Vormittag

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

Code: [Auswählen]

tblKontenzuordnung.Range("A:A")

Titel: Antw:Office 2016 Fehler beim Suchen nach Wert in Spalte
Beitrag von: maninweb am August 07, 2017, 09:27:38 Vormittag

Hallo,

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

Gruß