Private Sub Datei_öffnen_Button_Click()
Dim fname_open As Variant
Dim filename_open As String
fname_open = Application.GetOpenFilename()
For i = ActiveSheet.QueryTables.Count To 1 Step -1
ActiveSheet.QueryTables(i).Delete
If fname_open = False Then
Exit Sub
ElseIf fname_open <> False Then
filename_open = Dir(fname_open)
TextBox1.Text = filename_open
MsgCode = MsgBox("'" & filename_open & "' wird nun eingelesen!", _
vbOKCancel + vbInformation, "Microsoft Office Excel")
If MsgCode = vbCancel Then
Exit Sub
End If
Application.DisplayAlerts = False
For Each WS In Worksheets
If WS.Name <> "Hauptmenü - Report" Then
WS.Delete
End If
Next WS
Application.DisplayAlerts = True
Workbooks.OpenText filename:=fname_open, Origin:=65001, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Local:=True, _
Semicolon:=True, FieldInfo:=Array(1, 1)
ActiveSheet.Move after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
Sheets("Hauptmenü - Report").Select
Start_Button.Enabled = True
End If
Call Anpassung_META_AUSLEITUNG
Sheets(1).Select
End Sub
Ich Danke schonmal