VBA Wert aus Liste übertragen per Klickfeld

[deschroe]

Hallo,

ich bin auf der Suche nach einer Möglichkeit Werte aus einer Tabelle (Bestellung) in eine andere Tabelle (Bestand) zu übertragen.
Der Wert soll immer in der Zelle B2 in der Tabelle Bestand zu sehen sein.
Sprich Bestand B2 = Bestellung A1
Nach dem Klick soll dann Bestand B2 = Bestellung A2 sein
Bei erneutem klicken soll der Wert aus A3 in Bestand B2 eingetragen werden usw.
Sobald alle Werte aus der Tabelle Bestellung abgearbeitet sind soll eine Msg Box angezeigt werden.

Es wäre toll, wenn jemand möglicherweise schon einmal auf ein ähnliches Thema gestoßen ist, oder eine Ratschläge für mich parat hat.

Ich habe zu allererst mir einmal ein Klickfeld erzeugt und das richtige Tabellenblatt inkl. Zelle. Normalerweise über den Befehl Copy.Destination könnte ich es ja einmalig machen. Wie bekomme ich denn immer den nächsten Wert? 

Sub Schaltfläche5_Klicken()
    Sheets("Bestellung").Select
    Range("A2").Select

End Sub





Viele Grüße und schon einmal besten Dank

[deschroe]

http://www.office-loesung.de/p/viewtopic.php?f=166&t=793411

[MisterBurns]

Witzig, dass du crosspostest (danke für die Verlinkung), die beiden Posts aber unterschiedliche Inhalte haben...

Ich kann deiner Beschreibung ehrlich gesagt nicht ganz folgen, lade bitte eine Beispielmappe hoch

[Kuwer]

Hallo,

Sub Schaltfläche5_Klicken()

  Static lngZ As Long

  If lngZ = -1 Then

    If MsgBox("Soll wieder von vorn begonnen werden?", vbYesNo + vbQuestion) = vbYes Then

      lngZ = lngZ = 0

    Else

      Exit Sub

    End If

  End If

  lngZ = lngZ + 1

  Worksheets("Bestand").Range("B2").Value = Worksheets("Bestellung").Cells(lngZ, 1).Value

  If Worksheets("Bestellung").Cells(lngZ + 1, 1) = "" Then

    MsgBox "Das Ende ist erreicht.", vbInformation

    lngZ = -1

  End If

End Sub

Gruß Uwe

[deschroe]

Hallo Uwe,

deine Lösung ist genau das, wonach ich gesucht habe.

Super!

[deschroe]

Du hast natürlich Recht. In der Zwischenzeit zwischen dem ersten und zweiten Post habe ich noch weiter recherchiert und rumprobiert. Ich bin davon ausgegangen, dass hier auf den Beitrag nach einem Tag keiner mehr antwortet.
Daher habe ich ihn nicht mehr aktualisiert.

Dies ändere ich beim nächsten Mal!