VBA- Daten aus einer 2.Datei importieren

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema ListBox
Screenshot zu ListBox	ListBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

VBA- Daten aus einer 2.Datei importieren

VBA- Daten aus einer 2.Datei importieren von Kati vom 03.09.2020 18:53:51

mehr Ideen hab ich nicht... - von Oberschlumpf am 03.09.2020 20:06:15

Betrifft: VBA- Daten aus einer 2.Datei importieren von: Kati
Geschrieben am: 03.09.2020 18:53:51

Hi ihr Lieben! Ich habe den nachfolgenden Code, mit dem ich Daten aus einer Tabelle auslese - Suchkriterium ist dabei eine Nummer in der TextBox_Nummer. Die ausgelesenen Daten werden in die UserForm4 übertragen. Das Funktioniert soweit echt super.... Jetzt möchte ich aber, dass die auszulesenden Daten nicht in der selben Datei, sondern in einer anderen (geschlossenen) Excel-Datei stehen. Könnt ihr mir helfen und mir zeigen, wie ich das einbinde?

Die Daten von der Datei (mit den Daten die importiert werden sollen) lauten z.B. wie folgt:

Pfad: C:\Users\Desktop\Datendatei.xlsx

Name Arbeitsblatt: Daten2020

Ich hoffe ihr könnt mir helfen! Lieben Dank schon mal.... Kati

Private Sub CommandButton2_Click()
    Dim X As Integer
    Z = Sheets(1).UsedRange.Rows.Count
    X = TextBox_Nummer
    temp = 0
    For i = 2 To Z
        If Cells(i, 1) = X Then
            temp = 1
            Exit For
        End If
    Next
    If temp = 1 Then
        Unload Me
        zeile = i
        UserForm4.Show
    Else
        MsgBox "Nummer nicht vorhanden!", vbExclamation
        TextBox_Nummer= ""
    End If
End Sub

Betrifft: mehr Ideen hab ich nicht...
von: Oberschlumpf
Geschrieben am: 03.09.2020 20:06:15

Hi Kati,

1. Nach Anzeigen von Userform4 und Eintragen der Werte in Userform4 (ich vermute, diese Werte aus Userform4 sollen in die 2. Datei übertragen werden) die 2. Datei mit diesem Befehl öffnen:

Workbooks.Open "C:\Users\Desktop\Datendatei.xlsx"

2. Mit diesen Befehlen die Werte aus Userform4 an 2. Datei übergeben (huch! WELCHE Werte genau aus Userform4 sollen in 2. Datei übertragen werden??? Und in WELCHE Zellen genau im Blatt "Daten2020" sollen die Werte eingetragen werden???)

Sheets("Daten2020").Range("Zelle???").Value = Userform4.TextBox?ListBox?.Text
Sheets("Daten2020").Range("Zelle???").Value = Userform4.TextBox?ListBox?.Text
...
so oft wiederholen, bis alle Werte aus Userform4 in Blatt "Daten2020" übertragen sind

3. Jetzt noch die 2. mit Speichern wieder schließen