wie kann ich im folgenden Makro den markierten Bereich als Range definieren? Ich möchte den Bereich auf den dieses Makro angewendet werden soll im Code festschreiben, sondern durch eine vorherige Markiterung festlegen.
mit "For Each Zelle In Worksheets(BlattName).Range(Bereich)" klappt es leider nicht.
Sub Text_zu_Zahl()
Dim BlattName As String
BlattName = ActiveSheet.Name
Dim Bereich As Range
Set Bereich = Application.Selection
For Each Zelle In Worksheets("Tabelle1").Range("A1:D10")
s = Zelle.Value
If s "" And IsNumeric(s) Then
s = s * 1
Zelle.Value = s
End If
Next Zelle
End Sub
Vielen Dank.
Gruß,
Jakob