|
|
|
|
|
|
|||||||
| Registrieren | Hilfe/Forumregeln | Benutzerliste | Kalender | Suchen | Heutige Beiträge | Alle Foren als gelesen markieren |
| Programmierung Rat & Tat für Programmierer |
|
|
Themen-Optionen | Ansicht |
19.09.2008, 09:40
|
#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 | |
|
|
Baum-Darstellung