Datenübertragung zwischen Tabellen mittels Button (mit Kriterien)

Hallo zusammen,
ich hatte bisher nur rudimentär mit VBA Kontakt und so einfache Buttons wie einen Reset für einzelne Zellen oder Bereiche einfach durch googlen gefunden.
Jetzt allerdings benötige ich leider eine etwas kompliziertere Formel und da hoffe ich, dass ihr mir weiter helfen könnt.
Ich habe in einer Tabelle zwei Tabellenblätter.
Im ersten findet sich in J2 zu Beginn die Nr. 1 als Runde 1. J2 erhöhe ich nach Abschluss der Runde jedes Mal um den Wert 1 mit einem Button 
Nun befindet sich auf dem Tabellenblatt 1 ebenfalls noch eine kleine Tabelle über zwei Spalten (Q und R), sowie 9 Zeilen (20 - 28).
Die erste Zeile und Spalte dient der Überschrift bzw. den Kriterien, die Spalte R21 R28 dann den von Hand eingegebenen Werten.
Das sieht dann z.B. folgendermaßen aus:
Übertragen Gegner 1
Treffer 6
Tr. / Rnd.
xX
xn
x# 2
xB 2
(-x)
(+x)
Die Werte sind hier: 6, 2 und 2 - entschuldigt die Darstellung.
Im Tabellenblatt 2 gibt es eine große Auflistung in der ich die Runden dann zusammengefasst speichern will:
1
Treffer
Tr. / Rnd.
xX
xn
x#
xB
(-x)
(+x)
2
Treffer
Tr. / Rnd.
xX
xn
x#
xB
(-x)
(+x)
Die 1 und die Kriterien stehen hier in Spalte B-E39 (Verbundene Zelle) und von dort an geht es bis Runde 15 immer wiederholend herunter.
Die Namen der Spieler / Gegner stehen in Zeile F3 X3.
Ihr könnt euch wahrscheinlich denken, was ich ungefähr will:
Runde 1:

Ich trage die Kriterien (müssen nicht alle befüllt sein) für irgendeinen Namen (z.B. Gegner 1) in die Tabelle im Tabellenblatt 1 ein.

Durch drücken des Buttons (Übertragen) werden nun die Werte in die entsprechende Tabelle im Tabellenblatt 2 kopiert. Und zwar unter dem richtigen Namen (eindeutig keine Doppelten) und der Richtigen Rundenzahl (hier 1).

Das kann auch mehrfach für verschiedene Namen in einer Runde hintereinander geschehen, ich trage die Werte immer wieder für jeden Charakter von Hand ein. Der Name ändert sich automatisch über vorhergehende Eingaben an anderer Stelle.

Es muss aber nicht jeder Name in der Zeile von Tabellenblatt 2 auch in jeder Runde einen Wert erhalten und es gibt keine vorgegebene Reihenfolge.

Nun stelle ich auf die nächste Runde und wiederhole das Ganze. Dabei sollte dann natürlich in die Tabelle mit der 2 eingetragen werden.

Das ist schon recht komplex, aber vielleicht hat hier wer eine Idee.
Ich will letztendlich für jeden Spieler / Gegner für jede Runde die Werte speichern. Das geht natürlich auch über einfaches Kopieren von Hand, eleganter wäre aber ein entsprechendes Makro mit Button 
Bitte entschuldigt die Darstellung, ich habe es leider nicht hin bekommen, die Tabellen mit html-Code einzufügen.
Danke euch schon einmal
Grüße
Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub KOPIEREN_Click() Dim Quelltab As Worksheet Dim Zieltab As Worksheet Dim Zelle As Range Dim Zeile As Long Zeile = Worksheets("LetsRoll").Range("Q19").Value Spalte = Worksheets("LetsRoll").Range("R19").Value Bereich = "R21:R28" Set Quelltab = ActiveWorkbook.Worksheets("LetsRoll") Set Zieltab = ActiveWorkbook.Worksheets("Charakterblatt") For Each Zelle In Quelltab.Range("R21:R28") Zieltab.Cells(Zeile, Spalte) = Zelle Zeile = Zeile + 1 Next Zelle End Sub

Beliebteste Forumthreads (12 Monate)

Datenübertragung zwischen Tabellen mittels Button (mit Kriterien)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread