VBA !!!!!!!!! Daten in eine andere Tabelle eintragen .......

    Brauche umbedingt eure Hilfe, komme einfach nicht weiter.

    ----------------------------------------------------------------------------------------
    Aufgabe:
    Jede erstellte Rechnung ist mit ihren relevanten Daten zu speichern, d.h. in einem weiteren Datenblatt sollen die Rechnungs-Nr., das Rechnungsdatum und di Kunden-Nr (bitte diese Reihenfolge einhalten! Daten ggf. formtieren) erfasst werden. Das Übertragen und Speichern der Daten soll durch eine Schaltfläche erfolgen.

    Selbstverständlich achten Sie darauf, dass eine Rechnung nicht doppelt erfasst wird. In diesem Fall machen Sie den Anwender durch eine Mittweilung (Msgbox) darauf aufmerksam.
    -----------------------------------------------------------------------------------------

    Das eintragen in eine andere Tabelle erfolgt bei mir leider nur in einer Zeile, obwohl ich eine DO-LOOP Schleife eingebaut habe. Naja vllt könnt Ihr mir ja helfen. Wenn ihr das mit der Msgbox auch hinkriegen würdet, währe ich euch sehr dankbar.

    DANKE schon mal im Voraus

    Hier einen Lösungsvorschlag für die MsgBox

    Als erstes musst du Mitzählen wieviele Rechnungen übertragen worden sind

    Dim i as Integer Zähler1
    Dim i as Integer Zähler2
    Dim n as Integer Anzahl Rechnungen
    Dim Fehlerspeicher as Interger

    Fehlerspeicher = 0
    i = 0
    i1 = 1
    n = wurde bereits gezählt durch den übertrag
    Range("A2").Select Zelle in der die Erste Rechnungsnr. steht anwählen
    while i < n
    while i1 < n
    if ActiveCell.Offset(i, 0).value = ActiveCell.Offset(i1, o).value then
    fehlerspeicher = 1
    i1 = i1 + 1
    else
    i1 = i1 + 1
    End if
    wend
    i = i + 1
    wend
    if Fehlerspeicher = 1 then
    MsgBox (Es wurden Rechnungen mehrfach Aufgeführt)
    Else

    End If