ich habe ein Userform geschrieben, das aufgrund von Dateiöffnung während der Ausführung sehr langsam war. Daraufhin habe ich die erforderlichen Dateien beim Öffnen der Arbeitsmappe öffnen lassen, um die Laufzeit der Userform zu beschleunigen. Das klappt auch super - schnell ist es jetzt :-) - aber mit den falschen Werten :-(
Meine Änderung geht von:
Workbooks.Open Filename:="M:\SC-RS\15_Materialstamm\Schrott\Phaseout-fortlaufend.xls", Notify:=False
auf Öffnung der genannten Datei beim Öffnen der Arbeitsmappe +
Workbooks("Phaseout-fortlaufend.xls").Activate
und dann läuft das Makro weiter mit:
Worksheets("alle PO").Select
Dim var As Variant
var = Application.Match(lname, Range("b:b"), 0)
If Not IsError(var) Then
MM_2.TextBox92 = Cells(var, 5).Value
MM_2.TextBox91 = Cells(var, 6).Value
MM_2.TextBox17 = Cells(var, 9).Value
End If
usw..
Hier wird im ersten Fall die Variable var mit der korrekten Zeile belegt und
im zweiten Fall mit dem Wert "Fehler 2042"
Was muss ich ändern?
Lieben Dank für Eure Hilfe!
Gruß,
Melanie