Fehlermeldung 13, was nun oder wie denn?

Hallo

Ich habe es jetzt mal so, aber es gibt mir einen LAufzeitfehler 13 Typen unverträglich. Was kann man da machen?

Also ich möchte keine Fehlermeldung, wenn das Öffnenfenster offen ist und ich Abbrechen betätige. Aber so funktioniert es auch nicht. Was nun ?

Selection:
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt", 1, _
"Bitte wähle die gewünschte .txt-Datei von DEINEM Verzeichnis aus ...", MultiSelect:=False)
If fileToOpen = False Then
MsgBox "Die Datei konnte wegen Benutzerabbruch nicht gespeichert werden!", vbOKOnly + vbCritical, "Speichern fehlgeschlagen"
Exit Sub 'Vorzeitiges Ende
Else
'Konvertierung
Workbooks.OpenText FileName:=fileToOpen, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)) ', _
TrailingMinusNumbers:=True

'Zeile 1-3 und die letzte Zeile löschen
Dim LoLetzte As Long
LoLetzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rows(LoLetzte).Delete
Rows("1:3").Delete
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reto,

habe gereade gesehen, dass du mit XP arbeitest.
Deine Code Anweisung ( Else... ) habe ich nicht getestet, aber der Rest funktioniert.

Ist ein klein wenig anders aufgebaut, nutzt dafür alle Vorteile von XP :-)

Sub A_Datei_wählen()
'Das muss in den Deklarationsbereich
Dim FileDlg As FileDialog
Set FileDlg = Application.FileDialog(msoFileDialogFilePicker)
'Dein bisheriger Code
Selection:
With FileDlg
    .Title = "Wählen Sie eine Datei oder mehrere aus"
    'Environ(25) ermittelt den Aktuellen Userpfad
    'Alternativ kann hier auch die Variable vom vorherigen
    'Dialog eingesetzt werden
    '.InitialFileName = Suchpfad
    .InitialFileName = Environ(25) & "\Eigene Dateien\"
    .Filters.Clear
    .Filters.Add "Nur Text Dateien", "*.txt", 1
    'Andere Filterauswahlen sind möglich
    'Die Zahl gibt die Position in der Auswahlbox an
    '.Filters.Add "CSV Dateien", "*.csv", 2
    .FilterIndex = 1
    .ButtonName = "Dateien öffnen"
    'AllowMultiSelect = True dann können mehrere Dateien gewählt werden
    .AllowMultiSelect = False
    'Hier werden nur kleine Symbole angezeigt
    '.InitialView = msoFileDialogViewSmallIcons
    .InitialView = msoFileDialogViewLargeIcons
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "Sie haben keine Datei gewählt", vbCritical + vbOKOnly, "Dateifehler"
        Exit Sub
    Else
        'Konvertierung
        Workbooks.OpenText Filename:=fileToOpen, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
        ), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
        'Zeile 1-3 und die letzte Zeile löschen
        Dim LoLetzte As Long
            LoLetzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
        Rows(LoLetzte).Delete
        Rows("1:3").Delete
    End If
End With
Set FileDlg = Nothing
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Fehlermeldung 13, was nun oder wie denn?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread