Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

wo ist der Unterschied?

wo ist der Unterschied?
Melanie
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: wo ist der Unterschied?
04.04.2011 10:42:51
Rudi
Hallo,
vllt. so?
var = Application.Match(lname, Workbooks("Phaseout-fortlaufend.xls").Sheets(1).Range("b:b"), 0)
Gruß
Rudi
AW: wo ist der Unterschied?
04.04.2011 11:45:10
Melanie
Hallo Rudi,
vielen Dank für Deine Hilfe! Klappt!
Nun wird die Variable richtig zugeordnet :-)
Ein weiteres Problem gab´s bei der Wertezuordnung mit:
MM_2.TextBox92 = Cells(var, 5).Value (es wurde in der richtigen Zeile, aber in einem falschen Tabellenblatt gesucht)
Hier habe ich das entsprechende Worksheet ergänzt
MM_2.TextBox92 = Worksheets("alle PO").Cells(var, 5).Value
und jetzt ist alles gut :-)
Danke für Deine schnelle Hilfe!
Gruß,
Melanie
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige