Ich habe nen kleinen fehler in meinem Code, finde ihn aber net... Wenn ich ihm sage das er Spalte C in meinem 2.Sheet automaitsch anpassen soll macht er es in dem Scheet ins und nicht in Scheet 2. Sheet 2 heißt Daten und Sheet 1 heißt Auswertung. Kann mir einer sagen was ich bei mir falsch gemacht habe?
Vielen Dank
If
...
Else
Workbooks.Open sFile
Sheets(1).Select
Sheets(1).Copy After:=Workbooks("Auswertung.xls").Sheets(1)
Sheets(2).Name = "Daten"
Worksheets("Daten").Columns("A:A").Select
Sheets("Daten").Select
If Range("B2").Value = "" _
Then
Application.DisplayAlerts = False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
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), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:=True
Application.DisplayAlerts = False
Worksheets(2).Range("C1").Select --- hier soll er automatisch anpassen---
Columns("C:C").EntireColumn.AutoFit
Else
Columns("C:C").Select
Selection.ColumnWidth = 9.44
End If
End If