Makro für neue Zeilen aus anderem Datenblatt

[madikarus]

Hi Leute,

ich bin auf der Suche nach einem Makro und/oder einer Formel...

[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Tabellenblatt "Archiv" und "aktuelle" sind gleich in der Überschrift.
Nun möchte ich, dass die Formel/das Marko überprüft, ob die Bestellnummer in "Archiv" bereits existiert.
Falls nein, soll die komplette Zeile unten mit in das Tabellenblatt "Archiv" unter allen anderen vorhandenen Einträgen eingefügt werden.
Falls ja, soll es mir die Werte in den Zellen D-E in der entsprechenden Zeile mit der gefundenen Bestellnummer auf den aktuellen Stand bringen.

Danke schon mal! :)

[Gast 123]

Hallo


mit Taste Alt + F11 VBA Editor öffnen, im Projektfenster mit rechter Maustaste ein neues Modulblatt einfügen, und dieses Makro kopieren.
Gestartet werden kann es über einen normalen CommandButton im Tabellenblatt

mfg  Gast 123

Code:

Sub Daten_ins_Archiv_buchen()
Dim rFind As Object, lzAr As Long
Dim ARV As Worksheet, lzak As Long
Set ARV = Worksheets("Archiv")

With Worksheets("aktuelle")
  'LastZell in Tabelle "aktuell"
  lzak = .Cells(Rows.Count, 3).End(xlUp).Row
  'Schleife zum bereich kopieren
  For Each AC In .Range("C2:C" & lzak)
     'LastZell in Tabelle "Archiv"
     lzAr = ARV.Cells(Rows.Count, 3).End(xlUp).Row
     'Bestell-Nr. im Archiv suchen
     Set rFind = ARV.Columns(3).Find(What:=AC, After:=Range("C1"), _
         LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext)
     
     If rFind Is Nothing Then
        'aktuelle Daten im Archiv unten anhaengen
        AC.Resize(1, 3).Copy ARV.Cells(lzAr + 1, 3)
     Else
        'aktuelle Daten in DE in Archiv kopieren
        AC.Resize(1, 3).Copy rFind.Cells(1, 1)
     End If
  Next AC
End With
End Sub