Проверьте, заканчивается ли строка указанным символом c и удалите его - ошибка «неверный идентификатор»

Question

У меня есть скрипт VBA, который должен проверять, заканчиваются ли значения ячеек в диапазоне на ",". Если это так, запятая удаляется.

Dim Bereich As Range
Dim Zeilen As Long
Dim Zelle As Range
Dim str As String

Zeilen = Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = Range(Cells(4, 3), Cells(Zeilen, 19))

For Each Zelle In Bereich

str = Zelle.Value

If str.EndsWith(",") Then
str = Left(str, Len(str) - 1)
Zelle.Value = str
End If

Next Zelle

Однако в строке

 If str.EndsWith(",") Then

я получаю сообщение об ошибке «неверный идентификатор». Но я не могу найти ошибку в моем сценарии. Большое спасибо за вашу помощь!

Answer 1

Как уже упоминалось в комментариях, VBA отличается от VB; строковый тип данных не имеет свойств или методов в VBA.

В этом случае измените

If str.EndsWith(",") Then

на

If Right$(str, 1) = "," Then