Office: VBA: bestimmte Spalten kopieren

jamo · 28. Juni 2016

Hallo zusammen,

mit dem u.g. Code kopiere ich zwei komplette Tabellenblätter (Altdaten,Neudaten) in eine neue Datei.
Wie kann ich denn nur bestimmte Spalten aus den Tabellenblätter in die neue Datei kopieren? Ich möchte konkret Spalte A,B,F,J aus Tabellenblatt "Altdaten" kopieren. (Excel 2007)

Code:

ub Report_Daten()
Dim strDateiname As String
ChDir "Q:\Test1\Test2\"
strDateiname = Application.GetSaveAsFilename _
("Test_Report_" & Date & ".xlsx", "Microsoft Excel-Dateien (*.xlsx),*.xlsx")

If TypeName(strDateiname) = "String" Then
Worksheets(Array("Altdaten","Neudaten)").Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
ActiveWorkbook.SaveAs strDateiname
ActiveWorkbook.Close
MsgBox "Fertig! Datei gespeichert unter:" & vbLf & vbLf & strDateiname, vbOKOnly + _
vbInformation, "Datei wurde gespeichert"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich wäre für jede Hilfe sehr dankbar.
Gruß

:)

Hajo_Zi · 30. Juni 2016

benutze doch mal den Makrorecorder.
Code bereinigen.

xlph · 30. Juni 2016

Code:

Sub Report_Daten()
Dim vntDateiname As Variant
Dim wkbNew As Workbook

ChDir "Q:\Test1\Test2\"

vntDateiname = Application.GetSaveAsFilename _
("Test_Report_" & Date & ".xlsx", "Microsoft Excel-Dateien (*.xlsx),*.xlsx")

If vntDateiname = False Then Exit Sub

Set wkbNew = Workbooks.Add(xlWBATWorksheet)

With ThisWorkbook

With .Worksheets("Altdaten")
wkbNew.Worksheets(1).Name = .Name
.Range("A:B,F:F,J:J").Copy Destination:=wkbNew.Worksheets(1).Cells(1)
End With
With wkbNew.Worksheets(1).UsedRange
.Value = .Value
End With

With wkbNew
.Worksheets.Add After:=.Sheets(.Sheets.Count)
End With

With .Worksheets("Neudaten")
wkbNew.Worksheets(2).Name = .Name
.Range("A:B,F:F,J:J").Copy Destination:=wkbNew.Worksheets(2).Cells(1)
End With
With wkbNew.Worksheets(2).UsedRange
.Value = .Value
End With

End With

wkbNew.SaveAs Filename:=vntDateiname
wkbNew.Close SaveChanges:=False

MsgBox "Fertig! Datei gespeichert unter:" & vbLf & vbLf & _
strDateiname, vbOKOnly + vbInformation, "Datei wurde gespeichert"

Set wkbNew = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jamo · 30. Juni 2016

Super ! Genauso klappt es ! Vielen, vielen Dank !

Office: VBA: bestimmte Spalten kopieren

VBA: bestimmte Spalten kopieren

VBA: bestimmte Spalten kopieren

VBA: bestimmte Spalten kopieren

VBA: bestimmte Spalten kopieren - Similar Threads - VBA bestimmte Spalten

Meldung kreieren wenn bestimmte Bedingung eintritt

VBA Code Spalte für bestimmte Nuter ausblenden

VBA: Spalten einblenden, wenn in Eingabezelle bestimmter String

VBA, Bestimmte Spalte ansprechen

Makro für csv-Export

VBA - MS Query --> nur bestimmte Spalten abfragen

VBA - Zwei Spalten Vergleichen, Bestimmter Wert - Bestimmte Ausgabe