Hallo zusammen,
ich habe mal wieder eine Frage.
Ich möchte ein Formular erstellen. Über ein Makro lese ich Daten aus einer Exceltabelle in ein Kombinationsfeld ein. Wenn ich nun einen Namen angeklickt habe, möchte ich, dass sich die anderen Textfelder automatisch mit den dazugehörigen Daten aus der Exceltabelle füllen. Die Daten stehen alle in einer Tabelle. In Spalte D steht der Name und in Spalte E steht die dazugehörige Nummer. Diese sollte dann automatisch in dem Textfelder, oder auch einem anderen Feld, ich weiß leider nicht welches Feld optimal dafür wäre, erscheinen.
Hier das Makro welches das Kombinationsfeld füllt:
Private Sub Document_Open()
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws, ws1 As Excel.Worksheet
Dim zeile As Long
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open(FileName:=„Z:\Martina\Eigene Dateien\Stammdaten\Kundenliste 2000.xlsx“)
Set ws = wb.Worksheets(1)
Set ws1 = wb.Worksheets(2)
Me.NName.Clear
For zeile = 2 To 76
Me.NName.AddItem ws.Cells(zeile, 4)
Next zeile
Me.NName.ListIndex = 0
wb.Close
’ Excel schließen
xlApp.Quit
Set xlApp = Nothing
End Sub
Ich hoffe Ihr könnt mir helfen. Befasse mich zum ersten Mal mit der Fromularerstellung.
LG Martina