Thema Datum  Von Nutzer Rating
Antwort
Rot Excel - Werte und Format kopieren und in neuer Excel Datei speichern
19.02.2016 12:57:26 Tobias K.
NotSolved
19.02.2016 13:13:24 Amicro2000
NotSolved
19.02.2016 13:26:22 Tobias K.
NotSolved
19.02.2016 19:29:33 Gast80772
*****
Solved
19.02.2016 19:35:59 Gast83615
*****
Solved
22.02.2016 10:56:18 Tobias K.
NotSolved
22.02.2016 11:15:25 Gast83615
*****
Solved
22.02.2016 11:28:05 Tobias K.
NotSolved

Ansicht des Beitrags:
Von:
Tobias K.
Datum:
19.02.2016 12:57:26
Views:
533
Rating: Antwort:
  Ja
Thema:
Excel - Werte und Format kopieren und in neuer Excel Datei speichern

Guten Tag,

ich bin ein absoluter Anfänger im Bereich VBA und habe versucht mir durch Foreneinträge einen Code zu basteln, der nur Werte und die Formatierung aus Tabellenblatt 1 kopiert und in einer neuen Excel Datei überträgt, welche dann automatisch gespeichert wird. Das Erstellen der neuen Tabelle funktioniert sowei auch, allerdings habe ich es nicht hinbekommen, die Daten aus dem Tabellenblatt 1 mit rüberzukopieren.

Mein Code sieht bisher wie folgend aus:

Private Sub CommandButton1_Click()
    Dim Tabelle1 As Workbook
    Set Tabelle1 = Workbooks.Add
    Tabelle1.SaveAs Environ("UserProfile") & "\Desktop\" & "Daten" & Format(Now, "dd_mm_yyyy") & ".xls"
    MsgBox Tabelle1.Name & " " & Tabelle1.FullName
    'wkbMappe.Close False ' schliessen ohne speichern
 End Sub

Was muss ich dazwischen einbauen, damit er die Werte und Formatierung aus Tabellenblatt 1 kopiert und einfügt?

Vielen Dank für alle Antworten.


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 Excel - Werte und Format kopieren und in neuer Excel Datei speichern
19.02.2016 12:57:26 Tobias K.
NotSolved
19.02.2016 13:13:24 Amicro2000
NotSolved
19.02.2016 13:26:22 Tobias K.
NotSolved
19.02.2016 19:29:33 Gast80772
*****
Solved
19.02.2016 19:35:59 Gast83615
*****
Solved
22.02.2016 10:56:18 Tobias K.
NotSolved
22.02.2016 11:15:25 Gast83615
*****
Solved
22.02.2016 11:28:05 Tobias K.
NotSolved