mit "Alt Enter" kann ich einen Zeilenumbruch innerhalb einer Zelle einfügen. Kann mir jemand sagen wie ich per VBA ausfindig machen kann, ob so ein Zeilenumbruch in einer Zelle vorhanden ist?
Schon mal Danke Gruß Markus
Sub tt()
If InStr(Range("A1"), Chr(10)) Then MsgBox "vorhanden"
End Sub
Sub lközkjh()
For i = 1 To Len(Sheets(1).Cells(1, 1).Value)
If Mid(Sheets(1).Cells(1, 1).Value, i, 1) <> Chr(10) Then
MsgBox "Da hast Du einen."
Exit Sub
End If
Next i
End Sub
Sub Umbruch()
Cells.Find(Chr(10)).Activate
End Sub