Clever-Excel-Forum

Salut,

als VBA-/Excel-Grünschnabel stellt sich mir folgendes Problem:

Ziel:
Tabellenblatt 1 enthält ein Formular, das ausgefüllt wird.
Bestimmte Zellen werden dann per Button-Click in Tabellenblatt 2 übertragen.

Füllt man das Formular in Blatt 1 erneut aus und klickt wieder den Button, so kopiert es die Angaben in Blatt 2 unter die bereits dort gespeicherten.

Makro lautet wie folgt:

Sub Schaltfläche1_Klicken()

Worksheets ("Auswertung Teil 1"). Rows("3:3"). Insert Shift:=xlDown
Range("C1:C6").Copy Worksheets("Auswertung Teil 1").Range("C3")

End Sub

Funktioniert auch alles soweit.
Aber: Die Datensätze werden immer über den bereits vorhandenen in Tabellenblatt 2 eingefügt.
Ich möchte aber, dass die Daten darunter eingefügt werden. Und komme partout nicht auf den Fehler....

Über eine Lösung wäre ich sehr dankbar!

Liebe Grüße und Vielen Dank in Voraus,

Mela

Hallo,

Code:
Public Sub aaa()

Dim loLetzte As Long

With Worksheets("Auswertung Teil 1")

    loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row + 1

    If .Cells(3, 3) = "" Then loLetzte = 3

    Range("C1:C6").Copy .Cells(loLetzte, 3)

End With

End Sub

Gruß Werner

Mela

Werner.M