Office: (Office 365) VBA - Wenn Eintrag in Spalte vorhanden dann aktualisieren, sonst neue Zeile

Hallo an Alle,
ich habe ein Problem und finde keine Lösung in den Foren.
Ich hoffe, dass mir jemand hier helfen kann.

Ich habe in einer Datei zwei Blätter - eins "TC_Template" ist optisch wie ein Formular aufgebaut, ist zum Ausdrucken und manuell ausfüllen, auf dem Anderen Blatt "Database" sollten die Daten aus dem "TC_Template" in die Übersicht einfließen. Weil es viele Spalten Sind (über 40), würden die User gerne mit dem Formular neue Datensätze anlegen und die Datensätze bearbeiten.
Es sind Produktionsaufträge, mit der Batch-Nummer, die nur einmal vorkommen darf.
Wenn User mit dem "TC_Template" arbeitet und die Daten speichern will, soll VBA schauen, ob die Batch-Nummer im Blatt "Database" schon vorhanden ist, dann solle die Zeile mit den Werten aus Formular aktualisiert werden, sonst soll eine neue Zeile angelegt werden.

Ich habe schon mithilfe von Foren mir einen Code zusammen gebastelt, dass neue Zeilen anlegt.


Das funktioniert, aber wie kann ich es vorher abfragen, ob Batch schon vorhanden ist, dann merke die Zeile und befülle/überschreibe die Werte, sonst ..(und dann mein vorhandener Code).
Es wäre super, wenn ihr mir helfen könnt.
Danke schon mal vorab!
Marina

 

Hallo Marina,

benutze Find.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hallo Hajo,
vielen Dank für die rasche Antwort.
Jetzt habe ich die Datei hochgeladen.
Würde mich freuen, wenn du eine Lösung hättest.

LG, Marina

 

Hallo marina,

ich kann Dir Leider nicht Helfen. Ich konnte "Batch" nicht finden.

Gruß Hajo

 

Hallo Hajo,

Batch ist die Batch-Nummer, Zelle O1 von TC_Template
LG, Marina

 

Code:

Option Explicit

Sub Find_eimal()
    '**************************************************
    '* H. Ziplies                                     *
    '* 02.12.2023                                     *
    '* erstellt von HajoZiplies@WEB.de                *
    '* http://Hajo-Excel.de                           *
    '**************************************************
    Dim Rafound As Range
    With Worksheets("Database")
        ' für Formeln, Beverly
        'Set Rafound = Worksheets("Mitarbeiter").Columns(6).find(Cells(LoI, 7), LookIn:=xlValues, lookat:=xlWhole)            ' xlPart enthalten
        Set Rafound = .Columns(3).Find(Worksheets("TC_Template").Range("O1"), .Range("C1"), , xlPart, , xlNext)
        ' xlPart enthalten
        ' xlWhole kompletter Vergleich
        If Rafound Is Nothing Then
            'Daten eintragen
        Else
            MsgBox "vorhanden in Zeile " & Rafound.Row
        End If
    End With
    Set Rafound = Nothing
End Sub

Gruß Hajo

 

Vielen Dank Hajo,

es funktioniert! :)

LG, Marina