Problem bei Suchen/Ersetzen
06.05.2022 16:30:17
Florian
ich versuche mit diesem Code Leerzeichen aus einem Bereich zu löschen. Leider läuft mein Code in dieser Zeile auf einen Fehler
rngKonten = wksBuchungen2021.Range("F2:G" & lngLetzteZeile)
Da sist mein gesamter Code:
Sub LeerzeichenKontoLoeschen()
Dim wks As Worksheet
Dim lngLetzteZeile As Long
Dim rngKonten As Range
Dim rngZelle As Range
Set wks = ThisWorkbook.Sheets("Tabelle 1")
lngLetzteZeile = wks.Cells(Rows.Count, 1).End(xlUp).Row
rngKonten = wks.Range("F2:G" & lngLetzteZeile)
For Each rngZelle In wks.Range("F:G")
rngZelle.Value = Replace(rngZelle.Value, " ", "")
Next rngZelle
End Sub
Wer kann helfen?
Danke euch!!