VBA: UF Application.Match

Hallo,
Ich möchte in einem bestimmten Bereich, Werte in die Tabelle eintragen.
Mein Problem:
Per OB1 wähle Ich den Bereich aus u. lasse in der nächsten Freien Zeile Schreiben. Das Funktioniert auch!
Wenn Ich aber OB2 Auswähle, wird nicht in die Tabelle Geschrieben.
Anmerkung zu den OptionButtons:
OB1 = Springe in Zeile 5, ab Zeile 6-404 in letzte Freie Zeile Schreiben (Bereich 1)
OB2 = Springe in Zeile 408, ab Zeile 409-807 in letzte Freie Zeile Schreiben (Bereich 2)
-- Innerhalb dieser Bereiche wird immer eine Zeile beim Schreiben Übersprungen --.
Erläuterung der UF:
In der UF habe Ich eine Vorauswahl über zwei ComoboBoxen mit je einem Wert, anhand dieser Werte werden andere Werte gesucht u. in die UF geladen.
Anschließend Ergänze Ich die noch fehlenden Werte.
Per OptionButton soll dann in einem bestimmten Bereich in der Tabelle diese Werte Eingetragen werden.
Per Button würd der Befehl zum Schreiben ausgelöst. Der Code zum Schreib liegt in einem Modul u. wird per Call aufgerufen.
Das ist der Code wenn OB1 Ausgewählt wurde. Dieser läuft auch!

Sub Bereich_WB1()
ThisWorkbook.Activate '

Das ist der Code wenn OB2 Ausgewählt wurde. Hier haperts.

Sub Bereich_WB2()
ThisWorkbook.Activate '

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

An alle die helfen wollen,
Wie bereits erwähnt sind Verweise zu allen Mappen im VBA hinterlegt.
Es würde nur zu Fehlermeldungen kommen, wenn Ich nur die Mappe mit dem Problem Hochlande.
Darum diese drei Mappen um den richtigen Ablauf der UF zu gewährleisten.
Dies ist die Hauptmappe, Dateiname "Mappe_ori.xlsm" in ihr sind zwei Tab´s "Eingabe, Werte".
Die Tabelle "Werte" ist als Quelle (Verweis) in den anderen Mappen hinterlegt.
Alle weiteren Mappen werden über Tab: Eingabe geöffnet.
https://www.herber.de/bbs/user/132179.xlsm
Diese Mappe ist eine Daten-Mappe, Dateiname "Mappe_RO.xlsm" aus Ihr werden per UF die Werte gesucht.
https://www.herber.de/bbs/user/132180.xlsm
Nun zur eigentlichen Mappe ebenfalls eine Daten-Mappe, Dateiname "Mappe_Aus.xlsm".
Hier werden die gesuchten Werte aus Mappe_RO.xlsm eingelesen, dazu kommen manuelle Werte
die der Benutzer selbst eingibt.
Hier tritt der Beschriebene Fehler auf.
UF: UF5_ID_Austragen, Modul: M_UF5_Wirting, über den Button (Auslagern_Kann gelöscht werden) im Tab "Aus" kann man die UF aufrufen.
https://www.herber.de/bbs/user/132181.zip
Gruß Charly

Sub test1() Dim v As Variant v = Application.Match(VBA.CLng("5"), ThisWorkbook.Worksheets("Tabelle1").Range("B:B"), 0) If VarType(v) = vbError Then '10 MsgBox "Wert '5' nicht gefunden!" Err.Clear Exit Sub Else Debug.Print v, VarType(v), "Hurra... gefunden!" End If '' und hier geht's weiter End Sub Gruß von Luschi aus klein-Paris PS: der Rückgabetyp bei 'GEFUNDEN' ist nicht 'Long' sondern 'Double'. Vervollständige in jedem Modul zu Beginn den Eintrag 'Option Explicit' bzw. setzt das Häckchen zu dieser Option unter Extras-Optionen 'Variablendeklaration _ erforderlich' Verwende bitte öffentliche Objektvariablen, die dann im gesamten Projekt verwendet werden Dim wbA As Workbook Set wbA = Workbooks.Open(Filename:="P:\Doku2\Mappe_RO.xlsm")

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: UF Application.Match

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread