Office: (Office 2010) VBA Sverweis mit Userform

Gseemann · 23. Januar 2017

Guten Morgen Zusammen.

Ich habe eine Arbeitsmappe die heiß Bestellungen.

In der ist eine Userform mit 6 Textboxen.

Ich möchte in der Textbox1 ein Suchwert eingeben. Der soll in einer geschlossen Datei im Netzwerk per Sverweis Spalte A durchsuchen und den Wert der Spalte B in Textbox2 + Spalte F in Textbox3 schreibt.
Die Datei liegt W:xx/yyyy/z/Ordner Die Datei heiß: Gesamt.xlsm Tabelle1

Ich fülle dann Textbox 4-6 und möchte dann der Inhalt der 6 Textboxen in das Blatt Bestellblatt in der Arbeitsmappe Bestellungen schreiben.immer in der nächsten freie Zeile. Das schreiben soll per Button erfolgen

Wie müsste hier der Code heißen?

Vielen Dank

Guido

:)

Crazy Tom · 25. Januar 2017

Hallo

das könnte so aussehen
in meinem Test sind in der Userform
6 TextBoxen 1 bis 6 (nicht umbenannt)
2 Commandbutton
dazu dann dieser Code ins Modul der Userform
der Mappe Bestellungen

Code:

Private Sub CommandButton1_Click()
Dim c As Range
ChDir "D:BackUp" 'das bekommst du wenn du mit dem
Workbooks.Open Filename:="D:BackUpGesamt.xlsm" 'Makrorekorder die Mappe Gesamt öffnest
With Workbooks("Gesamt.xlsm").Sheets("Tabelle1")
Set c = .Columns(1).Find(TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
TextBox2 = .Cells(c.Row, 2)
TextBox3 = .Cells(c.Row, 6)
End If
End With
Workbooks("Gesamt.xlsm").Close False
End Sub

Private Sub CommandButton2_Click()
Dim lngZiel As Long
Dim i As Integer
With Sheets("Bestellblatt")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 6
.Cells(lngZiel, i) = Controls("Textbox" & i)
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die beiden Codezeilen mit Kommentar musst du an deine
Umgebung anpassen
am einfachsten einmal das Öffnen der Datei "Gesamt" aufzeichnen

hier im Forum werden die Backslash nicht dargestellt
aber wenn du den Code aufzeichnest werden sie dir schon an
richtiger Stelle angezeigt

MfG Tom

Gseemann · 26. Januar 2017

Hallo Tom,

der Code klappt. Chapeau

Wie bauen ich noch 2 Kombifelder ein die dann in Spalte 7+8 ausgegeben werden?

Erstmal vielen Dank

Guido

Crazy Tom · 26. Januar 2017

Hallo

zum Beispiel so

Code:

Private Sub CommandButton2_Click()
Dim lngZiel As Long
Dim i As Integer
With Sheets("Bestellblatt")
lngZiel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 6
.Cells(lngZiel, i) = Controls("Textbox" & i)
Next
.Cells(lngZiel, 7) = ComboBox1.Text
.Cells(lngZiel, 8) = ComboBox2.Text
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG Tom

Gseemann · 26. Januar 2017

Hallo Tom,

vielen Dank für die schnelle Antwort

Guido

Office: (Office 2010) VBA Sverweis mit Userform

VBA Sverweis mit Userform

VBA Sverweis mit Userform

VBA Sverweis mit Userform

VBA Sverweis mit Userform - Similar Threads - VBA Sverweis Userform

VBA SVerweis? / VBA neues Worksheet erstellen

Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen

Excel VBA Userform Daten aus Tabelle Auslesen "sverweis"

Copy and Paste unter bestimmten Bedingungen VBA

Kundennummer in Sverweis Zelle fortlaufend einfügen und drucken (VBA)

[VBA] Makro SVERWEIS auf andere Arbeitsmappe

VBA + SVERWEIS kombinieren?