habe ein Makro gefunden, was Zeichen in einem im Makro festgelegten Bereich ersetzt. Läuft auch gut. Nun wollte ich es Umbauen, das sich das Makro den Bereich Dynamisch aus der Zelle holt, bekomm ich aba nicht hin Crying or Very sad Habe versucht den "Ort" as String und dann steht in der Zelle eben G1:G150, habe auch schon mit den Eckigen Klammern probiert und er sagt ständig Objekt erforderlich.
Kann mir da bitte jemand helfen?
Hier Orginal Makro:
Sub Zeichenwechseln()
Dim C As Range, Bereich As Range
Dim Awf As WorksheetFunction
Set Awf = Application.WorksheetFunction
Set Bereich = Tabelle9.[G1:G150]
With Awf
For Each C In Bereich
C = .Substitute(.Substitute(.Substitute(C, "-", "0"), "*", "0"), "+", "0")
Next C
End With
End Sub
Hier meine Versuche : (natürlich habe ich bei Set Bereich jeweils nur eine Variante aktiviert gelassen zum testen, gehen aber beide nicht)
Sub Zeichenwechseln()
Dim C As Range, Bereich As Range
Dim Awf As WorksheetFunction
Dim Ort As String
Ort = ActiveWorkbook.Sheets("Admin").Cells(9, 42).Value
Set Awf = Application.WorksheetFunction
'Set Bereich = Tabelle9.[G1:G150]
Set Bereich = (Ort)
Set Bereich = Tabelle9.[Ort]
With Awf
For Each C In Bereich
C = .Substitute(.Substitute(.Substitute(C, "-", "0"), "*", "0"), "+", "0")
Next C
End With
End Sub
Danke & Gruß
Michi