Hilfe bei Code erforderlich
08.10.2016 14:04:37
Peter
ich bitte Euch um Hilfestellung bei einem Code.
In einer Zelle R2 stehen normalerweise zwei oder mehr Worte.
Um das erste Wort dieser Zelle in Zelle AE10 zu übertragen benutze ich folgenden Code:
Sub Teilname_auslesen_Speichern_unter1()
Dim strwert As String
strwert = Left(Worksheets("Anfang und Enddatum").[R2], InStr(Worksheets("Anfang und Enddatum").[ _
R2], " ") - 1)
Worksheets("Anfang und Enddatum").Range("AE10") = ""
Range("AE10") = strwert
End Sub
Besten Dank für Eure Hilfe.
Gruss Peter