Wie kann dieses Code schneller werden?
05.05.2021 12:10:19
Ali
mein Code läuft aber es ist extrem langsam. Es nimmt viel Zeit bis die checkbox geklickt ist.
Hier geht es um: Wenn die Checkbox geklickt ist, werden die daten von eine ini datei ausgelesen und verglichen und dann im Ziel Worksheet aktualisiert.
Wie kann ich das schneller machen?
Vielen Dank im Voraus!
------------------------------------------------------------------------------------------------------------------------
Private Sub chk_AddCDH_Click()
Application.ScreenUpdating = False
Dim Wsp, Wsi, Wsm As Worksheet
Dim colValueM, colParaM, rowM, rowsM As Integer
Dim colParaI, colValue, colSteuerbI, colFeldI, colResultI, colDefaultI, colValueI As Integer, rowI, rowsI As Integer ' ini3
Set Wsp = Worksheets("Input")
Set Wsi = Worksheets("ini3")
Set Wsm = Worksheets("M6L")
colSteuerbI = 1: colParaI = 2: colValueI = 3: colFeldI = 4: colResultI = 5: colDefaultI = 7
rowsI = Wsi.Cells(Rows.Count, 1).End(xlUp).row
rowsM = Wsm.Cells(Rows.Count, 1).End(xlUp).row
For rowI = 2 To rowsI
For rowM = 2 To rowsM
If chk_AddCDH.Value = True Then
Wsm.Range(Wsi.Cells(rowI, colFeldI).Value) = Wsi.Cells(rowI, colResultI).Value
Else
If chk_AddCDH.Value = False Then
Wsm.Range(Wsi.Cells(rowI, colFeldI).Value) = Wsi.Cells(rowI, colDefaultI).Value
End If
End If
Next
Next
Application.ScreenUpdating = True
End Sub