Vielen Dank für eure Hilfe, Stoffel
Sub Stoffel()
Sheets("Tabelle1").Cells.Replace What:="#", Replacement:=Chr(10), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End Sub
Sub Stoffel()
Sheets("Tabelle1").Cells.Replace What:="##", Replacement:=Chr(10), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
End Sub