Excel VB Übertrag mit Zeilenweitersprung

Question

Moin zusammen

wie man wahrscheinlich schon am untenstehenden Code erkennen kann bin ich ein Anfänger. Mein Problem ist, dass ich gerne Daten auseinem Formular (Tabelle1) in eine Übersicht(Tabelle2) übernehmen möchte per Knopfdruck.
Das funktioniert soweit auch ganz gut mit folgenden Zeilen



Private Sub CommandButton1_Click()
Range("B7").Copy Worksheets("Übersicht").Range("A2")
Range("B9").Copy Worksheets("Übersicht").Range("B2")
Range("B12").Copy Worksheets("Übersicht").Range("C2")
Range("C12").Copy Worksheets("Übersicht").Range("D2")
Range("E12").Copy Worksheets("Übersicht").Range("E2")
Range("F12").Copy Worksheets("Übersicht").Range("F2")
End Sub


Ich bin schon eine Weile am googeln denn ich [xurl=http://jamaipa.de|Jamaipa - Suche ohne Spam und Shops]suche[/url] nun eine Funktion welche es ermöglicht benannte Felder zu übertragen jedoch bei jedem weiteren Click auf den Button, den Inhalt in die nächste Zeile zu kopieren.

Also
erster Click [xurl=https://supportnet.de/faqsthread/916|Kostenloses Backup Programm / Software von Microsoft: robocopy.exe]Copy[/url] B7 nach Übersicht A2
Zweiter Click Copy B7 nach Übersicht A3
…
…
…
…

Gibt es da eine einfache Lösung.
Ich wäre sehr dankbar für eine Antwort.

Liebe Grüße
Triddl

Answer 1

Hallo Triddl,

versuch es mal so:

[code]Private Sub CommandButton1_Click()
Dim lngEinf As Long

'In der Tabelle Übersicht die letzte beschriebene Zeile feststellen und um 1 erhöhen
With Worksheets("Übersicht")
 lngEinf = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End With

'Daten kopieren
Range("B7").Copy Worksheets("Übersicht").Range("A" & lngEinf)
Range("B9").Copy Worksheets("Übersicht").Range("B" & lngEinf)
Range("B12").Copy Worksheets("Übersicht").Range("C" & lngEinf)
Range("C12").Copy Worksheets("Übersicht").Range("D" & lngEinf)
Range("E12").Copy Worksheets("Übersicht").Range("E" & lngEinf)
Range("F12").Copy Worksheets("Übersicht").Range("F" & lngEinf)

End Sub[/code]

Ich gehe mal davon aus, dass in der ersten Zeile im Blatt Übersicht Überschriften stehen.

Gruß

M.O.

Answer 2

Hallo Community .-)

Ein Beispiel!

Gruß Nighty

[code]Private Sub CommandButton1_Click()
    If Zähler > 2 Then Zähler = 0
    Rquelle = Array("B7", "B9", "B12")
    Rziel = Array("A2", "B2", "C2")
    Worksheets("Übersicht").Range(Rziel(Zähler)) = Range(Rquelle(Zähler))
    Zähler = Zähler + 1
End Sub[/code]

Einzufügen in ein Allgemeines Modul
[code]Global Zähler As Integer[/code]

Answer 3

Hallo Community .-)

Elemente 0 bis 2,also 3 Elemente die Parallel laufen
Einfach Quell und Ziel Adressen hinzufügen
[code]Rquelle = Array("B7", "B9", "B12")
Rziel = Array("A2", "B2", "C2")[/code]


Abfrage des Zählers
Wir haben 0-2 Elemente,also wird der Zähler bei größer 2 auf 0 besetzt
[code]If Zähler > 2 Then Zähler = 0[/code]

Gruß Nighty