Office: (Office 365) Status ändern nach Bearbeitung

Helfe beim Thema Status ändern nach Bearbeitung in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von DetBarr2, 9. April 2022.

  1. DetBarr2 Neuer User

    Status ändern nach Bearbeitung


    Hallo Anton ExlStatus ändern nach Bearbeitung *:)*

    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.Status ändern nach Bearbeitung *:)*Status ändern nach Bearbeitung *:)*Status ändern nach Bearbeitung *:)*

    Liebe Grüße
    Detlef
     
    DetBarr2, 12. Mai 2022
    #16
Thema:

Status ändern nach Bearbeitung

Die Seite wird geladen...
  1. Status ändern nach Bearbeitung - Similar Threads - Status ändern Bearbeitung

  2. Zellen einen "Status" zuweisen

    in Microsoft Excel Hilfe
    Zellen einen "Status" zuweisen: Hallo. Ich möchte einer Zelle, die eine Zahl enthält, in Abhängigkeit der Nachbarzelle (Text) einen Status zuweisen. Oder anders gesagt, die Zahl-Zelle soll zu Kategorie 1 oder 2 gehören,...
  3. Status von Aufgaben nach bestimmter Zeit automatisch zurücksetzen

    in Microsoft Teams Hilfe
    Status von Aufgaben nach bestimmter Zeit automatisch zurücksetzen: Hallo zusammen, in einem Team ist eine Registerkarte mit Aufgaben angelegt. Die Aufgaben müssen immer nach einer bestimmten Zeit, nachdem sie erledigt wurden, erneut durchgeführt werden. Gibt es...
  4. Fälligkeiten und Prioritäten

    in Microsoft Excel Hilfe
    Fälligkeiten und Prioritäten: Hallo zusammen, ich habe mir ein nettes Office Template für eine TO-DO Liste gezogen und würde gerne noch eine Sache einbauen von der ich 1. nicht weiß ob es überhaupt geht und 2. wenn ja, wie es...
  5. Ändern Ihres Status in Teams

    in Microsoft Teams Tutorials
    Ändern Ihres Status in Teams: Ändern Ihres Status in Teams Microsoft Teams Mehr... Weniger Desktop Mobilgeräte...
  6. Im Chat gelesen Status bei über 20 TN nicht verfügbar

    in Microsoft Teams Hilfe
    Im Chat gelesen Status bei über 20 TN nicht verfügbar: Wenn ich im Chat Gruppen bilde, so sehe ich jeweils wer meine Nachrichten gelesen hat. Bei Gruppen über 20 Personen ist das nicht mehr möglich. Kann man diese Limite eventuell auf 30 oder 40...
  7. Status Microsoft Teams wird fälschlicherweise mit inaktiv ausgewiesen

    in Microsoft Teams Hilfe
    Status Microsoft Teams wird fälschlicherweise mit inaktiv ausgewiesen: Hi, wie in anderen Threads bereits zu lesen habe auch ich das Problem, dass mein Teams Status nach ein paar Minuten (ca. 5) von aktiv auf abwesend wechselt obwohl der Rechner nicht gesperrt ist....
  8. Teams Status unbekannt

    in Microsoft Teams Hilfe
    Teams Status unbekannt: Hallo, der Verfügbarkeitsstatus eines Kollegen ist seit ca. 2 Wochen auf "unbekannt/grau". Dies jedoch nur im lokalen Teams-Desktop Client. Im Web wird der Status normal "verfügbar/grün"...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden