Thema Datum  Von Nutzer Rating
Antwort
18.05.2018 22:48:47 2000ede
NotSolved
18.05.2018 22:54:10 Gast69437
NotSolved
Rot Seite während eines VBA-Laufs anzeigen
 18.05.2018 22:57:54 2000ede
NotSolved
19.05.2018 09:38:45 Werner
NotSolved

Ansicht des Beitrags:
Von:
2000ede		 Datum:
18.05.2018 22:57:54		 Views:
715		 Rating:
     
Antwort:
  Ja
Thema:
Seite während eines VBA-Laufs anzeigen
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
sieht durch das Probieren schon krum aus.
Bis zum Dateiaufruf bleibt er leider auf der "Menü" Seite.
 
 
 
 
Sub sub_import()
 
 
'Application.DisplayAlerts = False
'Application.ScreenUpdating = False
Sheets("wait").Visible = True
 
Blatt = "IMP01"
 
Sheets(Blatt).Visible = True
Sheets(Blatt).Delete
Sheets.Add Before:=Sheets("Menü")
ActiveSheet.Name = Blatt
ActiveWindow.DisplayGridlines = False
Sheets(Blatt).Visible = False
Range("A1").Select
 
Sheets(Blatt).Visible = True
Sheets("IMP01").Select
 
Dim IMPORTDATEI As String
    
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
Sheets("wait").Select
Sheets("wait").Activate
 
Cells(1, 1).Select
Sheets("wait").Select
Cells(1, 1).Select
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("wait").Select
Cells(1, 1).Select
 
 
 
 
MsgBox ("Bitte wählen Sie die AnaCredit Bundesbank-Datei aus." & Chr(13) & "(Sollte *.xml-Datei sein)")
 
 
'Application.GetOpenFilename ("Text Files (*.txt),*.txt,Add-In Files (*.xla),*.xla,XML-Files,*.xml")
 
IMPORTDATEI = Application.GetOpenFilename("Text Files (*.xml), *.xml")
'IMPORTDATEI = Application.GetOpenFilename("Text Files (*.txt), *.txt")
 
'If IMPORTDATEI = False Then GoTo Abbruch001
 
If Right(IMPORTDATEI, 3) = "xml" Or Right(IMPORTDATEI, 3) = "bat" Then
GoTo weiter2
Else: Call sub_ende
End If
 
weiter2:
 
Cells(1, 1).Select
 
 
 
 
 
Sheets("IMP01").Select
 
'Sheets("Import_alt").Select
 
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & IMPORTDATEI, Destination:=Range("$A$1"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
'       .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = "<"
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("A1").Select
 
Worksheets("IMP01").Cells(10, 1) = IMPORTDATEI
xxx = Mid(IMPORTDATEI, InStrRev(IMPORTDATEI, "\") + 1)
Worksheets("IMP01").Cells(12, 1) = Mid(IMPORTDATEI, InStrRev(IMPORTDATEI, "\") + 1)
Worksheets("IMP01").Cells(11, 1) = Mid(IMPORTDATEI, 1, Len(IMPORTDATEI) - Len(xxx))
 
 
 
Application.DisplayAlerts = True
Application.ScreenUpdating = True
 
Sheets("wait").Select
Cells(1, 1).Select
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
 
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.05.2018 22:48:47 2000ede
NotSolved
18.05.2018 22:54:10 Gast69437
NotSolved
Rot Seite während eines VBA-Laufs anzeigen
 18.05.2018 22:57:54 2000ede
NotSolved
19.05.2018 09:38:45 Werner
NotSolved