Ich habe eine Frage, und hoffe ihr könnt mir helfen.
Und zwar habe ich zwei Workbooks A (.csv Datei mit einem Sheet "Referenz") und B (normale Excel mit mehreren Sheets). In Workbook B wird das Makro quasi gestartet werden, da mit der Excel-Tabelle gearbeitet wird.
Ich möchte jetzt aus Workbook A jede zweite Zeile in das Workbook B, Sheet "Kurve" kopieren.
Zurzeit kopiere ich alle Datensätze und lösche dann jeden Zweiten. Das dauert aber sehr sehr lange und ich habe mich gefragt, ob man auch einfach nur jede zweite Zeile aus A in B kopieren kann? Und würde das dann schneller gehen?
Hier mein derzeitiger Code:
Sub Referenzkurve_Klicken()
'Daten aus .csv kopieren und einfügen
'ACHTUNG: ggf. Pfad ändern
Workbooks.Open Filename:="Z:\Probe\Referenz.csv"
Range("A1:K1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.Close
Sheets("Kurve").Select
Range("A1").Select
ActiveSheet.Paste
'Jede zweite Zeile löschen
Dim i As Integer
For i = 3 To 5000 Step 1
Sheets("Kurve").Rows(i).Delete
Next
'Daten in Spalten separieren
Worksheets("Kurve").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), _
TrailingMinusNumbers:=True
End Sub
Ich wäre euch für eine Antwort sehr dankbar! Vielleicht habt ihr ja eine Idee, wie das ganze schneller gehen kann =).Liebe Grüße
Linda