Thema Datum  Von Nutzer Rating
Antwort
17.01.2019 18:06:42 HUGO
NotSolved
Blau Textdateien in Excel laden
17.01.2019 22:58:15 Flotter Feger
NotSolved
18.01.2019 09:09:04 HUGO
NotSolved
18.01.2019 12:25:11 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
17.01.2019 22:58:15		 Views:
509		 Rating:
     
Antwort:
  Ja
Thema:
Textdateien in Excel laden

Hallo,

mach das mal so ...

Function WorkSheetExists(ByVal WS As Variant) As Boolean
On Error Resume Next
WorkSheetExists = Worksheets(WS) Is Nothing
End Function

Sub LoadData()
 
With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    AnzahlDatein = .SelectedItems.Count
    'cancel, after selection is zero
    If .SelectedItems.Count = 0 Then
        MsgBox "cancel"
        Exit Sub
    End If
    fStr = .SelectedItems(1)
End With
        
'find out the name of the file
    Dateiname = Dir(fStr, vbNormal)
    
'find out if SheetName still exists
    SheetName = Split(Dateiname, ".")(0)
    If WorkSheetExists(SheetName) = True Then Exit Sub
    
'open file
    Sheets("Speicher").Select
     
    With ThisWorkbook.Sheets("Speicher").QueryTables.Add(Connection:= _
    "TEXT;" & fStr, Destination:=Range("$A$1"))
    
    '***
    'hier der weitere Code
    '***

VG Sabina

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:



  • 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
17.01.2019 18:06:42 HUGO
NotSolved
Blau Textdateien in Excel laden
17.01.2019 22:58:15 Flotter Feger
NotSolved
18.01.2019 09:09:04 HUGO
NotSolved
18.01.2019 12:25:11 Flotter Feger
NotSolved