Excel-VBA Zellinhalt auf neues Tabellenblatt kopieren
Hallo,
ich möchte den Zellinhalt (F6) von einen Tabellenblatt(Rechnung) in ein anderes Tabellenblatt(Archiv) per Steuerelement kopieren.
Dabei ändert sich der Zellinhalt ständig und diese Änderung aus dieser selben Zelle (F6) soll im Tabellenblatt (Archiv) in Spalte C untereinander fortlaufend reinkopiert werden.
Als nächstes möchte ich den Inhalt aus mehreren Zellen,(F6,F7,C76) vom Tabellenblatt (Rechnung) ins Tabellenblatt (Archiv) in mehrere Spalten A,B C untereinander reinkopiert werden .
hier mein Code der nur immer in die selbe Zelle in Tabellenblatt(Archiv) C6 reinkopiert und neue Zellinhalte überschreibt:
Private Sub CommandButton2_Click()
Sheets("Rechnung").Range("F6").Copy
Sheets("Archiv").Range("C3").PasteSpecial xlPasteValues
End Sub
Bitte um Hilfe.
Danke
ich möchte den Zellinhalt (F6) von einen Tabellenblatt(Rechnung) in ein anderes Tabellenblatt(Archiv) per Steuerelement kopieren.
Dabei ändert sich der Zellinhalt ständig und diese Änderung aus dieser selben Zelle (F6) soll im Tabellenblatt (Archiv) in Spalte C untereinander fortlaufend reinkopiert werden.
Als nächstes möchte ich den Inhalt aus mehreren Zellen,(F6,F7,C76) vom Tabellenblatt (Rechnung) ins Tabellenblatt (Archiv) in mehrere Spalten A,B C untereinander reinkopiert werden .
hier mein Code der nur immer in die selbe Zelle in Tabellenblatt(Archiv) C6 reinkopiert und neue Zellinhalte überschreibt:
Private Sub CommandButton2_Click()
Sheets("Rechnung").Range("F6").Copy
Sheets("Archiv").Range("C3").PasteSpecial xlPasteValues
End Sub
Bitte um Hilfe.
Danke
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 372080
Url: https://administrator.de/forum/excel-vba-zellinhalt-auf-neues-tabellenblatt-kopieren-372080.html
Ausgedruckt am: 23.12.2024 um 00:12 Uhr
9 Kommentare
Neuester Kommentar
Hallo,
Ist dir deine andere Frage nicht mehr gut genug? Oder weil du die Wörter in der Überschrift doch in andere Weise geschrieben hast?
VBA Zellinhalt in anderes Tabellenblatt kopieren
Vermutlich Browser seit Stunden geöffnet, Frage gestellt aber nicht gesendet und jetzt schnell ab und Feierabend
Gruß,
Peter
Ist dir deine andere Frage nicht mehr gut genug? Oder weil du die Wörter in der Überschrift doch in andere Weise geschrieben hast?
VBA Zellinhalt in anderes Tabellenblatt kopieren
Vermutlich Browser seit Stunden geöffnet, Frage gestellt aber nicht gesendet und jetzt schnell ab und Feierabend
Gruß,
Peter
Hallo,
Aber nicht gesehen das du deine eizige Frage 2 mal hier gepostet hast? Muss ja ein heftiges tüfteln sein
Gruß,
Peter
Aber nicht gesehen das du deine eizige Frage 2 mal hier gepostet hast? Muss ja ein heftiges tüfteln sein
Gruß,
Peter
Hallo,
Du hast das Wort nicht vergessen
Gruß,
Peter
Du hast das Wort nicht vergessen
Konstruktive Lösungsvorschläge würde in diesem Forum weiterhelfen...dazu sollte es ja da sein, oder?
Hab ich doch (in deinen anderen FredGruß,
Peter
Hallo,
Und wie ich dir dort schon schrieb Ein bisserl mehr ist es schon als das was du uns dort mit deinen 4 Zeilen (Eine für die Sub xyz () und eine für End Sub) gezeigt hast.
Gruß,
Peter
Zitat von @ManneKL:
Ich will nichts suchen, sondern gegebene werte in eine neue zelle im anderen Tabellenblatt reinkopieren.
Und bevor du Einfügen kannst musst du trotzdem erst die nächste frei Zelle finden, ausser du willst alles in C3 rein Schreiben und nur das allerletzte Ergebniss dort drin haben, auch wenn es ein leeres Feld dann sein kann.Ich will nichts suchen, sondern gegebene werte in eine neue zelle im anderen Tabellenblatt reinkopieren.
für sachliche und zielführende lösungsvorschläge wär ich sehr dankbar .
Ich finde das ist sehr Sachlich und ein sehr Zielführender Ansatz, oder erwartest du von uns das wir dir eine abschreibungsfähige Vorlage anbieten? Wusste nicht das ich für dich Arbeite...Und wie ich dir dort schon schrieb Ein bisserl mehr ist es schon als das was du uns dort mit deinen 4 Zeilen (Eine für die Sub xyz () und eine für End Sub) gezeigt hast.
Gruß,
Peter
Private Sub CommandButton2_Click()
With Sheets("Rechnung")
Sheets("Archiv").Cells(Rows.Count,"C").End(xlUp).Offset(1,0).Value = .Range("F6").Value
Sheets("Archiv").Cells(Rows.Count,"C").End(xlUp).Offset(1,-2).Resize(1,3).Value = .Range("F6;F7;C76").Value
End with
End Sub