Clever-Excel-Forum

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!

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

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?

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