![]() |
![]() |
|
![]() |
![]() |
|
Programmierung Rat & Tat für Programmierer |
|
Themen-Optionen | Ansicht |
![]() |
#3 |
Veteran
![]() |
![]() beispiel:
die Qbjekte heisen "Rechteck1...5" die Schleife versucht die Rechtecke nacheinander zu aktivieren, wird eines nicht gefunden gibt es einen Fehler der wird abgefangen und mit eine MSG Box quittiert. Code:
Dim Recht_name As String Recht_nr = "1" Do Until Recht_nr = "6" Recht_name = "Rechteck" & Recht_nr On Error GoTo Rechteck_weg Shapes(Recht_name).Select GoTo WEITER Rechteck_weg: MsgBox Recht_name & " wurde gelöscht" WEITER: Recht_nr = Recht_nr + 1 Loop
____________________________________
Internet is voll, GEH WEG ! ...a friend in need's a friend indeed, a friend with weed is better... be a warrior |
![]() |
![]() |
Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|