Office: (Office 365) Status ändern nach Bearbeitung

Hallo Anton Exl

Danke für die schnelle Rückmeldung.

Hier ein Teilstück des Codes mit welchem die letzten 2 Bestellungen im Tempsheet gesucht und und die dementsprechenden
Texrboxen gefüllt werden.

Code:

Private Sub cmdFuellen_Click()


   ' Speichern und aktualisieren
  ' ThisWorkbook.Save

  ' Variable festlegen
    Dim letzteZeile1 As Long
    Dim lngZeile As Long
    Dim intCP1 As Integer
    Dim intTN As Integer
    Dim intTVN As Integer
    Dim intCP14 As Integer
    Dim intVP As Integer
    Dim intFPC3 As Integer
    Dim intFP4 As Integer
    Dim intFP6 As Integer
    Dim intRP3 As Integer
    Dim intRKP As Integer
    Dim intPG2 As Integer
    Dim intIBG4 As Integer
   
    ' prüfen  Zeilen in Spalte 9
    With ThisWorkbook.Sheets("Temp")
        For lngZeile = .Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1
            Select Case .Cells(lngZeile, 11)
                Case "CP1"                                          ' Cp1 füllen
                    intCP1 = intCP1 + 1
                    If intCP1 = 1 Then
                        Logistik.TextBox37 = .Cells(lngZeile, 9)
                        Logistik.TextBox38 = .Cells(lngZeile, 5)
                        Logistik.TextBox39 = .Cells(lngZeile, 4)
                        Logistik.TextBox102.Value = "offen"
                        Logistik.TextBox102.ForeColor = RGB(255, 0, 0)
                    ElseIf intCP1 = 2 Then
                        Logistik.TextBox33 = .Cells(lngZeile, 9)
                        Logistik.TextBox34 = .Cells(lngZeile, 5)
                        Logistik.TextBox35 = .Cells(lngZeile, 4)
                        Logistik.TextBox101.Value = "offen"
                        Logistik.TextBox101.ForeColor = RGB(255, 0, 0)
                    End If
                 Case "TN"                                          ' TN füllen
                    intTN = intTN + 1
                    If intTN = 1 Then
                        Logistik.TextBox45 = .Cells(lngZeile, 9)
                        Logistik.TextBox46 = .Cells(lngZeile, 5)
                        Logistik.TextBox47 = .Cells(lngZeile, 4)
                        Logistik.TextBox114.Value = "offen"
                        Logistik.TextBox114.ForeColor = RGB(255, 0, 0)
                    ElseIf intTN = 2 Then
                        Logistik.TextBox41 = .Cells(lngZeile, 9)
                        Logistik.TextBox42 = .Cells(lngZeile, 5)
                        Logistik.TextBox43 = .Cells(lngZeile, 4)
                        Logistik.TextBox113.Value = "offen"
                        Logistik.TextBox113.ForeColor = RGB(255, 0, 0)
                    End If
                Case "TVN"                                          ' TVN füllen
                    intTVN = intTVN + 1
                    If intTVN = 1 Then
                        Logistik.TextBox53 = .Cells(lngZeile, 9)
                        Logistik.TextBox54 = .Cells(lngZeile, 5)
                        Logistik.TextBox55 = .Cells(lngZeile, 4)
                        Logistik.TextBox116.Value = "offen"
                        Logistik.TextBox116.ForeColor = RGB(255, 0, 0)
                    ElseIf intTVN = 2 Then
                        Logistik.TextBox49 = .Cells(lngZeile, 9)
                        Logistik.TextBox50 = .Cells(lngZeile, 5)
                        Logistik.TextBox51 = .Cells(lngZeile, 4)
                        Logistik.TextBox115.Value = "offen"
                        Logistik.TextBox115.ForeColor = RGB(255, 0, 0)
                    End If

Nachdem ich Deine vorgeschlagenen Änderungen vorgenommen hatte, bekam ich immernoch den Laufzeitfehler 9. Der Hund lag in dieser Zeile des Codes begraben With Sheets("Temp") !!!
Nachdem ich den Code dann in With ThisWorkbook.Sheets("Temp") geändert habe, scheint der Fehler nicht mehr aufzutreten.
Ich gehe mal davon aus, dass alle Zeilen dementsprechend dann anzupassen sind.
Vielen Dank für Deine Hilfe.

Liebe Grüße
Detlef