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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 372080

Url: https://administrator.de/contentid/372080

Ausgedruckt am: 22.11.2024 um 15:11 Uhr

9 Kommentare

Neuester Kommentar

Hallo,

Zitat von @ManneKL:
ich möchte den Zellinhalt (F6) von einen Tabellenblatt(Rechnung)

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

...so ist es nicht Peter....bin online und am tüfteln....

gruß
mannkl

Hallo,

Zitat von @ManneKL:
...so ist es nicht Peter....bin online und am tüfteln....

Aber nicht gesehen das du deine eizige Frage 2 mal hier gepostet hast? Muss ja ein heftiges tüfteln sein

Gruß,
Peter

...schade Peter das dich so etwas stört...war nicht meine Absicht!
Böses unterstellen ist wohl deine Absicht?

Konstruktive Lösungsvorschläge würde in diesem Forum weiterhelfen...dazu sollte es ja da sein, oder?

vielleicht findet sich ein anderer hilfreicher Teilnehmer um mir zu helfen.
Gruß
mannekl

Hallo,

Zitat von @ManneKL:
Böses unterstellen ist wohl deine Absicht?

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 Fred

Gruß,
Peter

Moin,

den Thread hier kannst du als gelöst markieren - die Antwort auf deine Frage steht in deinem anderen Thread.

Gruß

leiden noch nicht gelöst, trotz des Threads von Peter.
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 .

gruß
mannekl

Hallo,

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.

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