![]() |
![]() |
|
![]() |
![]() |
|
Registrieren | Hilfe/Forumregeln | Benutzerliste | Kalender | Suchen | Heutige Beiträge | Alle Foren als gelesen markieren |
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) | |
Themen-Optionen | |
Ansicht | |
|
|