Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Von einer Tabelle mittels Button in eine andere kopieren
#1
Hallo,

ich habe mich an folgendes Tut gehalten: https://www.youtube.com/watch?v=GQYkURMTmoU&t=10s

Hierbei passiert nur leider der Fehler, dass die erste Zeile korrekt transportiert wird, die zweite auch, dann aber immer in die zweite Zeile hineinkopiert/ überschrieben wird, nicht aber in eine dritte/ verite / fünte..

Der Code:

Sub transfer_werte()

Dim AngabeA As String, AngabeB As Date, AngabeC As String, AngabeD As String
   
    Worksheets("Tabelle1").Select
    AngabeA = Range("C2")
    AngabeB = Range("C4")
    AngabeC = Range("C6")
    AngabeD = Range("C8")
    Worksheets("Speicherung").Select
    Worksheets("Speicherung").Range("A2").Select
   
    If Worksheets("Speicherung").Range("A2").Offset(1, 0) <> "" Then
        Worksheets("Speicherung").Range("A2").End(xlDown).Select
    End If
   
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = AngabeA
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = AngabeB
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = AngabeC
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = AngabeD

End Sub


Kann da jemand helfen? Wäre super! 

LG
Antwortento top
#2
Hallöchen,

gehe den code mit F8 schrittweise durch und schaue, was in A3 vorgeht und was dann zwischen If und End If passiert.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#3
Hallo Fragender,

hast du dir das Video genau angeschaut?
Dann wirst du bemerkt haben, dass er dort mit der Zeile 2 (also in A2) beginnt. Und dort steht ein Text, ist also nicht leer. 
Und das muss bei dir der Fall sein. 
Wenn du das änderst, funktioniert es mit diesem Makro auch bei dir.

Gruß Rudi
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste