Mehrere .asc Dateien einlesen und bearbeiten
28.07.2016 15:27:13
Tobias
vorerst einmal ein dickes Dankeschön für die Existenz des Forums und die netten Helfer. Ich habe mit Hilfe des Forums schon einiges an Makros hinbekommen.
Nun stehe ich jedoch vor einem für mich unlösbaren und nervenraubenden Problem für das ich einfach keine Lösung finde und sich wie folgt gestaltet:
Ich habe ein Makro geschrieben, mit Hilfe dessen ich eine .asc Datei einlese, die Datei in ein anderes Woorkbook verschoben wird und gewisse Operationen vollzogen werden, die jedoch nicht von Relevanz sind. Das Makro funktioniert auch einwandfrei für eine Datei und sieht wie folgt aus:
Sub DateiLesen()
Dim varDatei As Variant
Dim MyPath As String
Dim ws As Worksheet
Dim oWs As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim StartCell As Range
Dim wss As Worksheet
Dim anzahlZeilen As Integer
Dim z As Integer
Dim HRFZeile As Integer
Dim x As Integer
Dim anzahlZeilenFormula As Integer
Dim StartCell2 As Range
Dim b As Long
Set StartCell = Range("A32")
Set ws = ActiveSheet
Set StartCell2 = Range("B1")
'Datei auswählen und importieren
Workbooks.OpenText Filename:= _
Application.GetOpenFilename() _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
ActiveWindow.WindowState = xlNormal
'Import der Datei in die Zielmappe inkl. Bennenung und Anpassung der Spaltenbreite
ActiveSheet.Select
ActiveSheet.Move After:=Workbooks( _
"Datei_oeffnen.xlsm").Sheets(3)
Range("B1") = "Blattbezeichnung:"
Range("C1").Activate
ActiveCell = ActiveSheet.Name
Columns("A:Z").EntireColumn.AutoFit
End Sub
Sub DateiLesen()
Dim varDatei As Variant
Dim intDatei As Integer
Dim MyPath As String
Dim ws As Worksheet
Dim oWs As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim StartCell As Range
Dim wss As Worksheet
Dim anzahlZeilen As Integer
Dim z As Integer
Dim HRFZeile As Integer
Dim x As Integer
Dim anzahlZeilenFormula As Integer
Dim StartCell2 As Range
Dim b As Long
Set StartCell = Range("A32")
Set ws = ActiveSheet
Set StartCell2 = Range("B1")
varDatei = Application.GetOpenFilename(MultiSelect:=True)
If TypeName(varDatei) Like "Boolean" Then
GoTo BeforeExit
End If
'Dateien auswählen und importieren
For varDatei = 1 To UBound(varDatei)
Workbooks.OpenText Filename:=varDatei, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
ActiveWindow.WindowState = xlNormal
'Import der Datei in die Zielmappe inkl. Bennenung und Anpassung der Spaltenbreite
ActiveSheet.Select
ActiveSheet.Move After:=Workbooks( _
"Datei_oeffnen.xlsm").Sheets(3)
Range("B1") = "Blattbezeichnung:"
Range("C1").Activate
ActiveCell = ActiveSheet.Name
Columns("A:Z").EntireColumn.AutoFit
Next varDatei
End Sub
Grüße, Tobias