Vielen lieben Dank :)
Allerdings erhalte ich beim Test folgenden Fehler: "Fehler beim Kompilieren: Sub oder Funktion nicht definiert"). Weißt du woran das liegen könnte?
Sub test()
Dim sOhneLänge As String
Dim sMitLänge As String * 2
'
sMitLänge = Range("B3") 'Hier das Wort "Ja" vorhanden
End Sub
|