22.03.2021, 15:46
Hallöchen,
die Schleife drumherum könnte man z.B. auf zwei Arten lösen. Eine wäre eben, direkt drumrum, die andere wäre eine Auslagerung des Codes und dann eine kleine Schleife beim CommandButton.
Wenn Du den Code im CommandButton lässt dann im Prinzip so. Oben Änderungen und weitere Zeilen ab der Zeile mit Dim
Dim iCnt%, iCnt2%
'Schleife ueber alle Eintraege der Box1
For iCnt2 = 0 To Box1.ListCount -1
'Wenn Eintrag gewaehlt, dann
If Box1.Selected(iCnt2) Then
'Eintrag suchen
Sheets("Rotationsplan (2020-2021)").Columns(5).Find(What:=Box1.List(iCnt2)...
und unten dann an passender Stelle End If und Next
die Schleife drumherum könnte man z.B. auf zwei Arten lösen. Eine wäre eben, direkt drumrum, die andere wäre eine Auslagerung des Codes und dann eine kleine Schleife beim CommandButton.
Wenn Du den Code im CommandButton lässt dann im Prinzip so. Oben Änderungen und weitere Zeilen ab der Zeile mit Dim
Dim iCnt%, iCnt2%
'Schleife ueber alle Eintraege der Box1
For iCnt2 = 0 To Box1.ListCount -1
'Wenn Eintrag gewaehlt, dann
If Box1.Selected(iCnt2) Then
'Eintrag suchen
Sheets("Rotationsplan (2020-2021)").Columns(5).Find(What:=Box1.List(iCnt2)...
und unten dann an passender Stelle End If und Next