Hallo Leute folgende Situation:Ich habe ein Kaufvertrag indem folgende Sachen eingetragen werden.
Diese Werte werden dann auf ein Neues Blatt mit dem Namen Artikel per Makro übertragen.
soweit so gut aber ich habe auf dem Blatt Artikel an den Zeilen Differenz,Verkaufspreis(Netto) und Differenzsteuer Formeln hinterlegt.
Mein Makro fängt jetzt also an die Daten in Spalte 1000 einzutragen weil obendran ja Formeln sind.
Könnt ihr mir helfen wie ich das Makro ändern muss damit ich die Werte von B-H übertragen bekomme und bei der nächsten Eingabe vortlaufend in der nächten Zeile die neuen eingaben reinbekomme? Meine Formeln solten erhalten bleiben.
Ich hoffe ich hab es verständlich erklärt und danke schon mal für eure Hilfe.

Artikelliste:

Artikelnummer Artikel / Hersteller Model Serialnummer Besonderheiten des Artikel Zustand Sonstiges/Zubehör Ankaufpreis Verkaufpreis(Brutto) Differenz Verkaupreis(Netto) Differenzsteuer vom Differenzbetrag
1 efaf faf dsv dsvvsd dsvs dvy 50,00 € 80,00 € 30,00 € 67,23 € 5,70 €
2 aaa bbb dsv ccc ddd eee 100,00 € 150,00 € 50,00 € 126,05 € 9,50 €



Kaufvertrag Daten:

Gegenstand / Gerät

Artikel / Hersteller :
Name / Modell :
Seriennummer :
Besonderheiten des Artikel :
Zustand :
Sonstiges/Zubehör :

Kaufpreis:





Ich hab mir ein Makro zusammen gepuzzelt das so aussieht:

'Code in einem alllgemeinen Modul der Datei.
Sub Artikel_übertragen()
  Dim wksEingabe As Worksheet
  Dim wksListe As Worksheet
  Dim lngZeile As Long, rngZelle As Range
  
  Set wksEingabe = Worksheets("Kaufvertrag")  'Eingabetabellenblatt
  Set wksListe = Worksheets("Artikel")      'Tabellenblatt in das die Daten geschrieben werden _
sollen
  
  With wksListe
    'nächste freie Zeile in Liste
    Set rngZelle = .Cells.Find(What:="*", after:=.Range("A1"), LookIn:=xlFormulas, _
        lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
    If rngZelle Is Nothing Then
      lngZeile = 1
    Else
      lngZeile = rngZelle.Row + 1
    End If
    'Spalte A - automatisch Nummerieren
    .Cells(lngZeile, 1).Value = Application.WorksheetFunction.Max(.Columns(1)) + 1
    .Cells(lngZeile, 2).Value = wksEingabe.Range("C25")
    .Cells(lngZeile, 3).Value = wksEingabe.Range("C26")
    .Cells(lngZeile, 4).Value = wksEingabe.Range("C27")
    .Cells(lngZeile, 5).Value = wksEingabe.Range("C28")
    .Cells(lngZeile, 6).Value = wksEingabe.Range("C29")
    .Cells(lngZeile, 7).Value = wksEingabe.Range("C30")
    .Cells(lngZeile, 8).Value = wksEingabe.Range("E32")
    'usw.

  End With
End Sub