Hallo und guten Morgen,

ich habe folgendes Problem das mein Makro zu lage läuft.
Es macht genau das was es machen soll, nur dauert es zu lange bis es fertig ist.
Ich habe nur für die erste Reihe den Code hier reingestellt, er wiederholt sich bis alle Checkboxen abgefragt sind.
Ich ändere dann nur die For I angaben wie folgt:
For i = 15 To 22;
For i = 23 To 30....... immer um 7 erhöt bis alle Checkboxen überprüft sind.
Ich hätte gerne eine Beispielmappe hochgeladen, nur leider ist diese für das Forum zu groß.


Private Sub CommandButton1_Click() 'Seite 1
Dim i
Dim zelladresse

Application.ScreenUpdating = False
'ActiveCell.Offset(0, 0).Activate

'Zelle = ActiveCell.Address
'Sheets("Sped.Plan").Visible = True
Sheets("Speditionen").Activate
ActiveCell.Offset(-6, 0).Activate
zelladresse = ActiveCell.Address

'neu einlesen
' Ab hier wiederholt sich der Code dieser Bereich wird nur durch andere Angaben in der For i geändert. ( immer 7 mehr )

With Me
Range(zelladresse).Select
For i = 1 To 7
If Controls("CheckBox" & i).Value = True Then
ActiveCell.Offset(-1, 8).Value = ("F") 'Controls("CheckBox" & i).Caption
Else: Controls("CheckBox" & i).Value = False
ActiveCell.Offset(-1, 8).Value = ("")
End If
ActiveCell.Offset(1, 0).Select
Next i
End With
With Me
Range(zelladresse).Select
For i = 8 To 14
If Controls("CheckBox" & i).Value = True Then
ActiveCell.Offset(-1, 9).Value = ("S")
Else: Controls("CheckBox" & i).Value = False
ActiveCell.Offset(-1, 9).Value = ("")
End If
ActiveCell.Offset(1, 0).Select
Next i
End With
' bis ihier wird es kopiert und die Angaben in For i angepasst.
'hier kommen die anderen Schleifen rein

MsgBox "Die Eingabe wurde gespeichert" _
& vbLf, vbOKOnly + vbInformation, "Huhu ich bins " & Environ("Username")
'Unload Me
'Spediplan.Show
Application.ScreenUpdating = True

End Sub

Ich hoffe das mein Problem verständlich ist.