Formular füllen und 2fach speichern

[Tuempeltaucher]

Hallo Leute,

ich hab ein Formular das folgender Maßen bearbeitet werden soll:

Nach dem Aufruf des Formulars "Berichte eingeben" wird eine Objekt-Nummer eingeben.
Daraufhin sollen die Felder Bezeichnung und Hersteller automatisch mit den entsprechenden Werten zu der Objekt-Nummer gefüllt werden.
Die Daten stehen im folgender Datei"U:Betriebstechnik\Maschinen\MASCHINEN.xlsx Tabellenblatt MASCHINEN" in den Spalten 2und 3.


Nachdem die Felder Monteur,Dauer und Aktivitäten-Bericht bearbeitet wurden sollen die Daten über die Übernahme-Taste zweimal gespeichert werden.

1. Die Daten sollen in einer Datei die den Namen des Monteurs trägt (z.B.: U:Betriebstechnik\Maschinen\F.Spiekermann.xlxs)gespeichert werden.
Der neuste Bericht soll dabei immer oben stehen (Zeile2)

2. Die Daten sollen in einer Datei gespeichert werden die der Objektnummer entspricht. (z.B.: U:Betriebstechnik\Maschinen\1001\1001.xlsx)
Der neuste Bericht soll dabei immer oben stehen (Zeile2)


Bei der Übernahme der Daten und dem Speichern brauch ich Eure Hilfe.

Gruß
Frank

[Rabe]

Hi,

Daraufhin sollen die Felder Bezeichnung und Hersteller automatisch mit den entsprechenden Werten zu der Objekt-Nummer gefüllt werden.
Die Daten stehen im folgender Datei"U:Betriebstechnik\Maschinen\MASCHINEN.xlsx Tabellenblatt MASCHINEN" in den Spalten 2und 3.
[...]
Bei der Übernahme der Daten und dem Speichern brauch ich Eure Hilfe.

stehen die Herstellerdaten nun im Blatt MASCHINEN oder M_Daten?

Du hast das doch gewissermaßen schon drin:

Private Sub Text_Objekt_Nummer_AfterUpdate()
'Formular an Hand der Objektnummer füllen 


Me.Text_Maschinen_Bezeichnung = Application.WorksheetFunction.VLookup(Val(Text_Objekt_Nummer), Worksheets("U:Betriebstechnik\Maschinen\MASCHINEN.xls!MASCHINEN").Range("A2:C500"), 2, True)
Me.Text_Hersteller = Application.WorksheetFunction.VLookup(Val(Text_Objekt_Nummer), Worksheets("U:Betriebstechnik\Maschinen\MASCHINEN.xls!MASCHINEN").Range("A2:C500"), 3, True)

End Sub

nur die Formel für "Bezeichnung" verwies auf Spalte 4 in einer dreispaltigen Matrix.

zum Speichern habe ich gerade keine Zeit.

[Tuempeltaucher]

Hallo Ralf,

danke für Deine Hilfe.

Gruß
Frank