Office: Makro zu langsam

Hi, hab es jetzt endlich geschafft meine beiden Makros zu schreiben wie ich es brauch (und die funktionieren sogar *freu*)

allerdings ist mein zweites mit ~5min Durchlaufzeit etwas langsam.
kennt ihr da möglichkeiten noch etwas Zeit einzusparen?

Code:

Option Explicit

Sub Search()
Dim tempStatus                              As String
Dim tempOutput                              As String
Dim Duration                                As String
Dim startdate                               As String
Dim I                                       As Integer 'Zeile Status
Dim K                                       As Integer 'Zeile Output

    Sheets("Status").Select
    
    For I = 1 To 1922                          ' Last line of Status
        Sheets("Status").Select
        Cells(I, 4).Select
        If ActiveCell.Value = "Transform" Or ActiveCell.Value = "Load" Or ActiveCell.Value = "Submit source file" Or ActiveCell.Value = "Extract data" Or ActiveCell.Value = "Pre-validate" Or ActiveCell.Value = "Validation" Then
            Cells(I, 2).Select
            tempStatus = Trim(ActiveCell.Value)
            Cells(I, 3).Select
            tempStatus = tempStatus & Trim(ActiveCell.Value)
            Cells(I, 4).Select
            tempStatus = UCase(tempStatus) & Trim(UCase(ActiveCell.Value))
            
       
        
            If I = 83 Then
                'Stop
            End If
            
            Sheets("Output").Select
        
            For K = 1 To 1136                   'last line of Output
                 'Cells(K, 5).Select
                tempOutput = ""
                'If ActiveCell.Value = "Transform" Or ActiveCell.Value = "Load" Or ActiveCell.Value = "Submit Source file" Or ActiveCell.Value = "Extract data" Or ActiveCell.Value = "Pre-Validate" Or ActiveCell.Value = "Validation" Then
                    Cells(K, 3).Select
                    tempOutput = tempOutput & Trim(ActiveCell.Value)
                    Cells(K, 4).Select
                    tempOutput = tempOutput & Trim(ActiveCell.Value)
                    Cells(K, 5).Select
                    tempOutput = UCase(tempOutput) & Trim(UCase(ActiveCell.Value))
                    If tempStatus = tempOutput Then
                        'Dauer übertragen
                        Sheets("Status").Select
                        Cells(I, 6).Select
                        Duration = ActiveCell.Value
                        Cells(I, 7).Select
                        startdate = ActiveCell.Value
                        'Anderes Tabellenblatt selektieren
                        Sheets("Output").Select
                        Cells(K, 6).Value = Duration
                        'Start-Datum übertragen
                        Cells(K, 8).Value = startdate
                        'Wert ist eindeutig, daher kann Schleife beendet werden
                        Exit For
                     End If
                     
                    If K = 55 Then
                          'Stop
                    End If
                    
                'End If
            Next
    End If
    Next
   
End Sub


Sub Action2()

Application.ScreenUpdating = False
Application.Run "Search"
Application.ScreenUpdating = True

End Sub

das ist mein komplettes makro, screenupdateing ausschalten spart schon enorm Zeit.
allerdings soll das makro später noch überschaubar bleiben, also bitte nicht zuviel rauskürzen oder abkürzen damit auch andere damit arbeiten können und es verstehen :)

Danke für eure Hilfe

MFG

 

Hallo!

Wie ich bereits hier im allerersten Satz schrieb:

Dieser Teil zum Beispiel:

Code:

  For I = 1 To 1922                          ' Last line of Status
        Sheets("Status").Select
        Cells(I, 4).Select
        If ActiveCell.Value = "Transform" Or ActiveCell.Value = "Load" Or ActiveCell.Value = "Submit source file" Or ActiveCell.Value = "Extract data" Or ActiveCell.Value = "Pre-validate" Or ActiveCell.Value = "Validation" Then
            Cells(I, 2).Select
            tempStatus = Trim(ActiveCell.Value)
            Cells(I, 3).Select
            tempStatus = tempStatus & Trim(ActiveCell.Value)
            Cells(I, 4).Select
            tempStatus = UCase(tempStatus) & Trim(UCase(ActiveCell.Value))
            

macht genau das gleiche wie

Code:

    For I = 1 To 1922                          ' Last line of Status
        Sheets("Status").Select
        If Cells(I, 4) = "Transform" Or Cells(I, 4) = "Load" Or Cells(I, 4) = "Submit source file" Or Cells(I, 4) = "Extract data" Or Cells(I, 4) = "Pre-validate" Or Cells(I, 4) = "Validation" Then
            tempStatus = UCase(Trim(Cells(I, 2)) & Trim(Cells(I, 3)) & Trim(Cells(I, 4)))

 

jo das habe ich mal ausprobiert, aber an der geschwindigkeit ändert das leider kaum etwas.

trotzdem danke, dann ist das nicht soviel code =)