|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.03.2009 16:41:26 |
Torsten |
|
|
|
26.03.2009 12:32:51 |
Holger |
|
|
 Aw:Aw:run-time error '1004' wenn Cancel-Knopf ge |
26.03.2009 13:42:05 |
Torsten |
|
|
|
26.03.2009 14:05:07 |
Holger |
|
|
|
26.03.2009 14:26:00 |
Torsten |
|
|
Von:
Torsten |
Datum:
26.03.2009 13:42:05 |
Views:
1037 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:run-time error '1004' wenn Cancel-Knopf ge |
Hallo Holger
Danke für deinen Vorschlag. Ich habe ihn sofort ausprobiert und er funktioniert auch wie gewünscht. Zwar arbeitet er dann noch den weiteren Code ab, aber das stört ja nicht.
Leider habe ich fast keine Erfahrung mit VBA. Deshalb habe ich das Makro erst in Office 2000 aufzeichnen lassen, um es dann ein wenig anzupassen. Somit weiß ich nicht, wie das alles zusammenhängt. Aber es funktioniert so.
Die Aufzeichnungen in Excel 2000 und Excel 2003 sehen sehr ähnlich aus, nur das ich beim laufenlassen des Makros von Excel 2003 in Excel 2000 andere Laufzeitfehler bekomme. Umgedreht funktioniert es aber.
Das Stück Code funktioniert in Office 2000 & 2003 und bringt das gewünschte Ergebnis.
LG und Danke Torsten
Holger schrieb am 26.03.2009 12:32:51:
Hallo Torsten,
füge einfach vor dem Code
On Error Resume Next
und nach dem Code
On Error goto 0 'das ist eine Null
ein, so dass im Fehlerfall die Zeile übersprungen wird.
Funktioniert bei dir tatsächlich Selection.QueryTable...? Ich muss immer auf ein Element Auflistung zugreifen:
sheets("Name").querytables(1)...
Gruß
Holger
Torsten schrieb am 25.03.2009 16:41:26:
Hallo
Ich habe ein Makro aufgezeichnet, damit ich Daten in ein xls-File importieren kann und mich nicht durch alle Menüpunkte hangeln muss.
Data -> Import External Data -> Edit Text Import -> … ist mir doch zu aufwendig.
Als Code ist folgendes herausgekommen, was ich noch leicht angepasst habe und auch problemlos funktioniert.
' Datei laden und konvertieren
With Selection.QueryTable
.Connection = _
"TEXT;error*"
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileFixedColumnWidths = Array(19, 8, 29)
.Refresh BackgroundQuery:=False
End With
Nur leider bekomme ich den Fehler:
“ Run-time error ‘1004’: Application-defined or object-defined error ”, wenn ich doch keine Datei auswählen möchte und anstelle dessen den “Cancel”-Knopf drücke.
Bei Debug zeigt er mir die Zeile (.Refresh BackgroundQuery:=False ) als Problem an.
Jemand eine Idee, wie ich den Fehler beim betätigen des “Cancel”-Knopf abfangen kann?
Danke für eure Hilfe. |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
25.03.2009 16:41:26 |
Torsten |
|
|
|
26.03.2009 12:32:51 |
Holger |
|
|
Aw:Aw:run-time error '1004' wenn Cancel-Knopf ge |
26.03.2009 13:42:05 |
Torsten |
|
|
|
26.03.2009 14:05:07 |
Holger |
|
|
|
26.03.2009 14:26:00 |
Torsten |
|
|