Hallo Leute
Mein Protokoll soll sich eine Text-Datei und eine csv-Datei aus einem vorgebenen Ordner ziehen und die Inhalte an bestimmten Stellen importieren und einfügen (in verschiedenen Tabellen/Arbeitsmappen). Und im Idealfall nach dem Import die beiden Dateien löschen.
Ich bin leider totaler Anfänger in der VBA Programmierung
Meine Versuche bis jetzt
für den Import
Dim Dateiname_Ausw As String ' Dateiname der Auswertedatei
Dim Dateiname_MW As Variant ' Dateiname der Datei mit Messwerten
Dim Abbruch As Long
On Error GoTo Fehler
Dateiname_Ausw = ActiveWorkbook.Name
Application.ScreenUpdating = False
Call Datei_öffnen(Dateiname_Ausw, Dateiname_MW, Abbruch)
If Abbruch = 0 Then
'Datenimport wird durchgeführt, wenn der Dateiauswahldialog nicht abgebrochen wird
Call Datenimport(Dateiname_Ausw, Dateiname_MW)
Call Datei_schließen(Dateiname_MW)
ElseIf Abbruch = 1 Then
für das richtige einsortieren der csv
Dim i As Long
Windows(Dateiname_Ausw).Activate
ActiveSheet.Unprotect
Application.ScreenUpdating = False
'vorhandene Rohdaten werden gelöscht
For i = 2 To 1000
Range("A" & i & ":E" & i).Select
Selection.ClearContents
Next i
Windows(Dir(Dateiname_MW)).Activate
'Namen der Messpunkte werden in der .csv-Datei ausgewählt und kopiert
Workbooks(Dir(Dateiname_MW)).Sheets(1).Range("A2:A1000").Select
Selection.Copy
Windows(Dateiname_Ausw).Activate
'kopierte Zellen werden bei den Rohdaten eingefügt
Range("A2").Select
ActiveSheet.Paste
Windows(Dir(Dateiname_MW)).Activate
'Schichtdicken werden in der .csv-Datei ausgewählt und kopiert
Workbooks(Dir(Dateiname_MW)).Sheets(1).Range("B2:B1000").Select
Selection.Copy
Windows(Dateiname_Ausw).Activate
'kopierte Zellen werden bei den Rohdaten eingefügt
Range("B2").Select
ActiveSheet.Paste
Windows(Dir(Dateiname_MW)).Activate
'untere Toleranzen werden in der .csv-Datei ausgewählt und kopiert
Workbooks(Dir(Dateiname_MW)).Sheets(1).Range("C2:C1000").Select
Selection.Copy
Windows(Dateiname_Ausw).Activate
'kopierte Zellen werden bei den Rohdaten eingefügt
Range("C2").Select
ActiveSheet.Paste
Hilfe wäre großartig!
grüße
Maik |