mit dem folgendem Code kopiere die Spalten A:C und F in eine andere Tabelle.
Bei dem Versuch den Code zu vereinfachen scheiter ich leider. Ich dachte es würde in der Form wie
Könntet ihr mir bitt helfen.
Danke
Private Sub CommandButton2_Click()
If Not IsWorkbookOpen("Data.csv") Then
MsgBox ("Data.csv ist nicht geöffnet!"), vbCritical, "DATEI ÖFFNEN"
Else
Windows("Data.csv").Activate
ActiveSheet.Range("A1:C" & Cells(Rows.Count, 1).End(xlDown).Row).Copy
ThisWorkbook.Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
Windows("Data.csv").Activate
ActiveSheet.Range("F1:F" & Cells(Rows.Count, 1).End(xlDown).Row).Copy
ThisWorkbook.Activate
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Application.CutCopyMode = False
Windows("Data.csv").Close
End If
End Sub
Gruß Ulf