Worksheets(TABLENAME_TO).Cells(get_next_empty_row, 1).Value = Replace(Left(regEx.Replace(.Cells(l, 1), ""), InStr(1, regEx.Replace(Trim(.Cells(l, 1)), ""), " ", vbTextCompare) - 1), Chr(160), vbNullString)
Laufzeitfehler '5' ungültiger prozeduraufruf oder ungültiges argument :/
Gruß und auf jeden Fall sehr großen Dank das du mir wirklich unter die arme greifst! :)
|