Daten auslesen
25.01.2023 14:44:49
grigri
für meine Arbeit nutze ich eine zusammengebastelte Excel Datenbank mit VBA.
Nun habe ich eine zweite Datei bekommen die ich aber nicht auf meinem Laptop habe, sondern jeden Tag neu vom Server beziehen muss.
Ist es möglich per VBA den Code in meiner Datei so anzupassen dass ich bei Eingabe einen weiteren Befehl ausführen kann der die Serverbasierte Datei durchsucht?
Das große Manko ist, das diese Datei keine Spalten und Zeilenbezeichnungen hat weil diese ausgeblendet sind.
Ein direktes Ansprechen ist also schwierig bis gar nicht möglich.
Nachstehend der Code der bisher ausgeführt wird.
Die Frage ist wie ich nun eine zweite Abfrage einer fremden Datei einbaue, ohne diese vorab auf meinem Rechner zu speichern (hierfür ändert sie sich zu oft)
Private Sub ComboBox2_Change()
On Error Resume Next
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Textbox4.Value = ""
Dim ComboBox2 As Variant
ComboBox2 = Me.ComboBox2
Me.TextBox1.Value = WorksheetFunction.VLookup(ComboBox2, Sheets("Service Verträge").Range("A:B"), 2, False)
Me.TextBox2.Value = WorksheetFunction.VLookup(ComboBox2, Sheets("Serviceaktionen").Range("A:B"), 2, False)
Me.TextBox3.Value = WorksheetFunction.VLookup(ComboBox2, Sheets("Serviceaktionen").Range("A:C"), 3, False)
Me.Textbox4.Value = WorksheetFunction.VLookup(ComboBox2, Sheets("Einsätze").Range("E:W"), 19, False)
Me.TextBox8.Value = WorksheetFunction.VLookup(ComboBox2, Sheets("Bemerkung").Range("B:C"), 2, False)
End Sub
Danke schon mal für euren Inputlg
Cris