Option Explicit Option Base 1 Public Sub UsedRangeTest3() Dim AlleZellen As Range Dim Zelleninhalt() Dim ObergrenzeZeile As Long Dim UntergrenzeZeile As Long Dim ObergrenzeSpalte As Long Dim UntergrenzeSpalte As Long Dim ZeilenZaehler As Long Dim SpaltenZaehler As Long '======================================================= ActiveSheet.UsedRange.Select Set AlleZellen = Selection Zelleninhalt() = Selection.Value '======================================================= ObergrenzeZeile = UBound(Zelleninhalt, (1)) UntergrenzeZeile = LBound(Zelleninhalt, (1)) ObergrenzeSpalte = UBound(Zelleninhalt, (2)) UntergrenzeSpalte = LBound(Zelleninhalt, (2)) '======================================================= ZeilenZaehler = 1 SpaltenZaehler = 1 For ZeilenZaehler = UntergrenzeZeile To ObergrenzeZeile If ZeilenZaehler <= ObergrenzeZeile Then Zelleninhalt(ZeilenZaehler, SpaltenZaehler) = Replace(Zelleninhalt(ZeilenZaehler, SpaltenZaehler), "/", "--") Cells(ZeilenZaehler + 10, SpaltenZaehler) = Zelleninhalt(ZeilenZaehler, SpaltenZaehler) If ZeilenZaehler = ObergrenzeZeile And SpaltenZaehler = ObergrenzeSpalte Then Exit Sub End If End If If ZeilenZaehler >= ObergrenzeZeile Then ZeilenZaehler = 0 SpaltenZaehler = SpaltenZaehler + 1 End If Next End Sub