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!