wer kann mir zu dieser späten Stunde noch helfen? Folgende Anweisungsfolge habe ich sinngemäß 21 mal hintereinander stehen:
Range("B1").Select
On Error GoTo Next1
Cells.Find(What:="Lieschen Müller", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 10).Activate
ActiveCell.Value2 = LIEMUE1
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value2 = LIEMUE2
Next1:
.
'hier zwischen sind 8 Anweisungsfolgen mit der selben Syntax wie vor
'nur die Namen, Variablen und On Error - Sprungmarken sind anders
.
Next10:
Range("B1").Select
On Error GoTo Next11
Cells.Find(What:="Max Mustermann", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 10).Activate
ActiveCell.Value2 = MAXMUS1
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value2 = MAXMUS2
Next11:
.
.
.
Die einzigen Dinge, die sich in den folgenden 20 Anweisungen ändern, sind der Name, die beiden Variablen (die vorher richtig zugewiesen wurden - hab´s im Lokal-Fenster überprüft) und die On Error GoTo - Anweisung, die, abhängig von der fortlaufenden Nummer der Anweisungsfolge, zu den Zeilenmarken Next1 bis Next21 verzweigt. Diese funktioniert bei Lieschen Müller noch einwandfrei, kommt das Makro bei seiner Bearbeitung jedoch bei Max Mustermann an, und findet ihn nicht, ignoriert VBA die On Error GoTo - Anweisung einfach und zeigt einen Laufzeitfehler an. Was habe ich falsch gemacht? Kann es sein, das man nur eine bestimmte Anzahl von On Error GoTo - Anweisungen in ein Makro bringen kann? Ich weiß hier echt nicht weiter und bin für jeden Vorschlag dankbar.
Gruß, Stefan