ich möchte die Zeichen vor dem ersten Zeilenumbruch chr(10) in der Zelle auslesen VBA.
Gruß Harald
Option Explicit
Sub Harald()
If InStr(ActiveCell, Chr(10)) = 0 Then
MsgBox "kein Zeilenumbruch"
Else
MsgBox Left(ActiveCell, InStr(ActiveCell, Chr(10)) - 1)
End If
End Sub