Hallo!
Ich wollte in folgendem Code nach "1584" noch eine Erweiterung anhängen und bekam die Fehlermeldung Zu viele Zeilenfortsetzungen. Welche Lösungen gäbe es hier bitte um diesen Fehler zu umgehen?
ElseIf Not Intersect(Target, Columns("H")) Is Nothing Then
arrDaten = Array(Array(1548, 1549, 1550, 1556, 1557, 1558, 1559, 1560, _
1561, 1562, 1563, 1564, 1565, 1566, 1567, 1578, 1579, 1580, _
1581, 1582, 1583, 1584), _
Array("Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher", _
"Orthopädietechniker, Orthopädieschuhmacher"))
If Target.Count > 1 Then
If Not IsError(Application.Match(Selection.Cells(1), arrDaten(0), 0)) And Selection. _
Cells(1) <> "" Then Selection.Offset(0, 73) = arrDaten(1)(Application.Match(Selection.Cells(1), _
arrDaten(0), 0) - 1)
Else
If Not IsError(Application.Match(Target, arrDaten(0), 0)) And Target <> "" Then Target. _
Offset(0, 73) = arrDaten(1)(Application.Match(Target, arrDaten(0), 0) - 1)
End If
Danke
Josef