checkboxabfrage :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

checkboxabfrage

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

dan311
Newbie
Newbie

Anmeldedatum: 05.10.2007
Beiträge: 18

Verfasst am: 11.04.2008, 15:50

Hallo zusammen

ich habe da eine kleine frage bezüglich einer abfrage von mehreren checkboxen. die abfrage soll in einer for- schlaufe sein:

Code:

For i = 1 To 7
wert = (checkbox & (i))
If wert.Value = True Then
Range("ti" & (i) & "lt") = Range("TI1lt")
Range("ti" & (i) & "x") = Range("TI1x")
Next i

unfegähr so möchte ich das gerne, nur excel findet das nicht so lustig. ok, ich eigentlich mittlerweile auch nicht mehr.

gibts da einen tipp wie ich das zum laufen bringe?

Besten dank!

gruss Dani

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 11.04.2008, 16:19

Hallo!

Teste mal dies:

Code:

Sub test()
Dim cb As OLEObject, i As Integer
For i = 1 To 7
Set cb = Tabelle1.OLEObjects("CheckBox" & i)
If cb.Object.Value = True Then
'mach irgendwas
End If
Next i
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Dies ist meine Signatur und sie trägt eigentlich nichts zur Lösung deines Problems bei. Sollte sie es dennoch tun, dann bist du definitiv im falschen Forum...

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

dan311
Newbie
Newbie

Anmeldedatum: 05.10.2007
Beiträge: 18

Verfasst am: 11.04.2008, 20:28

hallo

besten dank für die antwort

leider funktioniert das nicht. ich muss vielleicht noch erwähnen, dass die checkbox in einem userform liegt.

gruss

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5520

Verfasst am: 11.04.2008, 20:45

Hallo!

Zitat:

ich muss vielleicht noch erwähnen, dass die checkbox in einem userform liegt.

Nicht nur vielleicht...

Code:

For i = 1 To 7
If UserForm1.Controls("CheckBox" & i).Value = True Then
'mach was
End If
Next i

Ein Feedback zum ursprünglichen Problem wäre trotzdem nett!
Windows XP, Office2000, Office2007

dan311
Newbie
Newbie

Anmeldedatum: 05.10.2007
Beiträge: 18

Verfasst am: 11.04.2008, 20:54

jetzt passts! besten dank!

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de