Excel Makro neue Datei erstellen und Werte hineinkopieren

[DeLaGhetto]

Hallo zusammen,

ich bin mir sicher, folgendes Makro ist für die meisten von euch eine kleine Fingerübung, für mich aber leider nicht...

Ich brauche ein Makro, dass folgendes erledigt:

• Beim klicken auf das Steuerelement erstellt das Makro eine neue Excel Datei
  
• Anschließend wird in dieses neu erstellte Dokument Zeilen A1 bis C50 hineinkopiert (nur Werte, ohne Formatierung oder ähnliches)
  
• Und als letztes soll entweder gefragt werden wohin die Datei abgespeichert werden soll oder ich bin einfach schon autoamtisch in dieser neuen Datei drin und kann dann selbst auf speichern unter gehen
  

Danke euch sehr im Voraus!

[Kuwer]

Hallo,

Sub BereichInNeuesWorkbook()
  Dim varQ As Variant
  varQ = Range("A1:C50").Value
  Workbooks.Add(xlWBATWorksheet).Worksheets(1).Range("A1:C50").Value = varQ
End Sub

Gruß Uwe

[DeLaGhetto]

Funktioniert perfekt, Danke!

Noch eine Frage dazu:
Wenn ich in dieser neu erstellten Datei andere Befehle mit dem selben Makro ausführen möchte, reicht es dann aus, einfach hinter dem deinem Code die anderen Befehle dran zu schreiben, oder muss ich die neue Datei irgendwie ansprechen vorher?

[Kuwer]

Hallo,

mein gezeigter Code war eher auf eine Aktion ausgelegt.
Auf der sicheren Seite ist man, wenn man alles (notwendige) eindeutig referenziert.
Im folgendem Code ist es kein Problem, weitere Befehle anzuhängen:

Option Explicit

Sub BereichInNeuesWorkbook()
 Dim oWsQelle As Worksheet
 Dim oWsZiel As Worksheet
 
 Set oWsQelle = ActiveWorkbook.Worksheets("Tabelle1")
 Set oWsZiel = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
 
 oWsZiel.Range("A1:C50").Value = oWsQelle.Range("A1:C50").Value
 
End Sub

Gruß Uwe