Thema Datum  Von Nutzer Rating
Antwort
Rot dynamisch kopieren + dyn. Einfügen
15.12.2016 02:37:38 Woppel
NotSolved
15.12.2016 04:41:55 Gast39039
NotSolved
15.12.2016 16:15:30 Mackie
NotSolved
15.12.2016 16:24:36 Mackie
NotSolved
15.12.2016 17:23:29 Woppel
Solved
15.12.2016 17:52:39 Werner
Solved

Ansicht des Beitrags:
Von:
Woppel
Datum:
15.12.2016 02:37:38
Views:
505
Rating: Antwort:
  Ja
Thema:
dynamisch kopieren + dyn. Einfügen

Hallo Excel-Gemeinde,

ich muss innerhalb kurzer Zeit leider nochmals eine Frage stellen.

Folgendes;

Ich möchte aus dem einen Tabellenblatt "Auswahl" ab A2: H & bis zur letzten Zelle kopieren

und in Tabellenblatt "Druck" die erste freie Zelle in Spalte A einfügen.

 

Klingt banal, doch für einen VBA-Beginner ........

Ich bin mit dem Code mal soweit:

Sub dynamischKopierenEinfuegen()
With ThisWorkbook.Worksheets("Auswahl") 
    .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 0, 8)).Copy
End With

With ThisWorkbook.Worksheets("Druck")
.Range("A2").PasteSpecial Paste:=xlPasteValues
End With
End Sub

das bis zur letzten beschriebenen Zelle (in "Auswahl") kopiert wird,- aber wie ich nun in "Druck" in die erste freie Zelle der Spalte A einfüge ...... ich habe da schon stundenlang die absurdesten Anweisungen gegeben ....

Kann mir jemand den Code ergänzen,- bzw. wenn der "ganz Panne ist", mir den richtigen Code schreiben?

 

mit freundlichen Gruß

Woppel


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot dynamisch kopieren + dyn. Einfügen
15.12.2016 02:37:38 Woppel
NotSolved
15.12.2016 04:41:55 Gast39039
NotSolved
15.12.2016 16:15:30 Mackie
NotSolved
15.12.2016 16:24:36 Mackie
NotSolved
15.12.2016 17:23:29 Woppel
Solved
15.12.2016 17:52:39 Werner
Solved