Checkbox-Abfrage = sehr langsam
14.06.2007 11:35:37
Thomas
Ich brauche mal wieder eure Hilfe.
In meiner Datei habe ich 46 Checkboxen die der User verwenden kann. Bei der Abfrage soll nun ermittelt werden welche True und welche False sind.
Leider dauert aber das extrem lange für Excel. Habt ihr eine Idee wie ich die Abfrage beschleunigen kann ? (Der Code ist unten an bei)
Danke für eure Hilfe,
Thomas
Private Sub go_Click()
Application.ScreenUpdating = False
Dim i As Byte, ws As Worksheet
Set ws = Sheets("Grafik")
'Abfrage welche Werte für die Grafik verwendet werden sollen
For i = 1 To 46
If ws.OLEObjects("CheckBox" & i).Object.Value = True Then ws.Cells(i + 3, 3) = "J"
If ws.OLEObjects("CheckBox" & i).Object.Value = False Then ws.Cells(i + 3, 3) = "N"
Next i
Application.ScreenUpdating = True
Application.Run "Grafik_erstellen"
End Sub