WCM - Das österreichische Computer Magazin Forenübersicht
 

Zurück   WCM Forum > Rat & Tat > Programmierung

Programmierung Rat & Tat für Programmierer

Microsoft KARRIERECAMPUS

 
 
Themen-Optionen Ansicht
Alt 19.09.2008, 09:40   #3
incubus
Veteran
 
Benutzerbild von incubus
 
Registriert seit: 31.07.2006
Ort: Österreich, nähe Graz
Alter: 51
Beiträge: 253

Mein Computer

Standard

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
incubus ist offline   Mit Zitat antworten
 


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 17:42 Uhr.


Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Forum SEO by Zoints
© 2009 FSL Verlag