Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Listbox befüllen Help!
#1
Exclamation 
Hallo zusammen

Ich komme leider nicht weiter bei meinem Code respektie kommt ein Laufzeitfehler.

Ausgangslage:

Ins Userform wird eine Datei raufgeladen. Den Pfad wird in eine TextBox geschrieben, welche nacher über einen anderen Button aufgerufen werden kann.
Ich möchte nun

Button 1: File Upload DIalog öffnen und Datei auswählen (das funktioniert soweit)
Button 2: Die ausgewählte Datei im Hintergrund öffnen und die Spalten A - F kopieren und in die Listbox anzeigen lassen
Button 3: In ein Tabellenblatt schreiben (fungiert als Datenbank)

folgender Code habe ich schon geschrieben:



Code:
Private Sub CommandButton2_Click()
Dim fd As FileDialog
     Dim file As Variant
     Dim textbox118 As String
     On Error Resume Next
     
     Set fd = Application.FileDialog(msoFileDialogFilePicker)
     With fd
         .AllowMultiSelect = False
         .InitialFileName = ActiveWorkbook.Path
         If .Show = -1 Then
             For Each file In .SelectedItems
                 TextBox1.Value = .SelectedItems(1)
             Next file
         Else
         End If
     End With
     Set fd = Nothing
End Sub

Private Sub CommandButton3_Click()

  Dim countx As Integer
    Dim wbOpened As Workbook
    Dim strFilePath As String
    Dim ListItems As Variant, i As Integer

    'Initialize the variables
    strFilePath = TextBox1.Text

    ' Make sure that the file exits
    If TextBox1.Value = "" Then
        MsgBox ("Bitte File auswählen")
        Exit Sub
        ' Open the workbook and assign it to the variable
        Else
    With Me.ListBox1
        .Clear ' remove existing entries from the listbox
        ' turn screen updating off,
        ' prevent the user from seeing the source workbook being opened
        Application.ScreenUpdating = False
        ' open the source workbook as ReadOnly
        Set wbOpened = Workbooks.Open(TextBox1.Value)
        ListItems = wbOpened.Worksheets(1).Range("A1:F13").Value
        ' get the values you want
        wbOpened.Close True ' close the source workbook without saving changes
        Set wbOpened = Nothing
        ListItems = Application.WorksheetFunction.Transpose(ListItems)
        ' convert values to a vertical array
        For i = 1 To UBound(ListItems)
          .AddItem ListItems(i) ' populate the listbox
        Next i
        .ListIndex = -1 ' no items selected, set to 0 to select the first item
        Application.ScreenUpdating = True
    End With
    End If
End Sub



Ich hoffe es kann mir jemand weiterhelfen. Ich danke euch im Voraus für eure Hilfe
Ihr findet das Dokument noch angehängt.


Cherrs
Rizzo91


Angehängte Dateien
.xlsm   Projekt_SN&MAC_einlesen.xlsm (Größe: 24,98 KB / Downloads: 4)
Antworten Top
#2
Hallo Rizzo,

wenn du uns nun noch den Wortlaut der Fehlermeldung und den Ort, wo sie auftritt in deinem Code, mitteilst, wäre das für eine Hilfe sehr hilfreich.
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top
#3
Hallo Rizzo,

wusstest du das englische Wort für durchsuchen nicht? Angel
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antworten Top
#4
Hola,

zur Info...

https://www.office-fragen.de/index.php?topic=59372.0

Gruß,
steve1da
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste