Option Explicit

Option Base 1

Public Sub UsedRangeTest()
Dim Auswahl As Range   
Dim ZellenInhalt()
Dim ZellenUmwandlung() As String
Dim sp As Integer
Dim ze As Integer
Dim ceze As Integer
Dim ceSp As Integer
Dim ObergrenzeZe As Integer
Dim ObergrenzeSp As Integer
Dim Element

Worksheets("Tabelle3").Activate
ActiveSheet.UsedRange.Select

Set Auswahl = Selection
ZellenInhalt = Selection.Value
sp = 1
ze = 1
ceze = ze + 10
ceSp = 1
ObergrenzeZe = UBound(ZellenInhalt, (1))       
ObergrenzeSp = UBound(ZellenInhalt, (2))       

For Each Element In ZellenInhalt()
    If ze < ObergrenzeZe  And sp <= ObergrenzeSp Then
        ZellenInhalt(ze, sp) = Replace(ZellenInhalt(ze, sp), "/", "--")
        
        Cells(ceze, sp) = ZellenInhalt(ze, sp)
        ze = ze + 1
        ceze = ceze + 1
    ElseIf sp >= ObergrenzeSp Then  'ze >= ObergrenzeZe And
                Exit Sub
    Else
            If ze >= ObergrenzeZe Then
            ze = 1
            sp = sp + 1
            ceSp = ceSp + 1
            ceze = ze + 10
            
            End If
    End If

Next

End Sub