VBA: Vergleichen mit mehreren Bedingungen

[Memo]

Hi,


super...also ein "Danke" ist mittlerweile echt unterbewertet für deine Leistung..

Danke ∞ 

VG
Memo

[jules]

Hi zusammen,

ginge soetwas auch auf eine externe, geschlossene Mappe? Genaugenommen bin ich auf der Suche nach einem Index-Vergleich für geschlossene Mappen.
( siehe auch hier ) .. Dürfte aber ähnlich sein?

Grüße

[cysu11]

Hi Jules,

was ist dein Ziel? Zeig mal eine kleine Beispieldatei!

LG
Alexandra

[jules]

Hi,

mein Ziel ist es im Prinzip aus meiner Mappe heraus eine geschlossene Datei auf mehrere Bedingungen zu durchsuchen und einen Zielwert zu erlangen. 

Im Anhang mal 2 Dateien, vereinfacht dargestellt.
Hier möchte ich in Mappe1, dass er mir anhand der definierten Bedingungen (1,2 & 3) in der geschlossenen Mappe (Daten.xlsx) auf die Suche nach meinem Wert geht und ihn mir in Mappe1.xlsx ausspuckt

Grüße

[cysu11]

Hi Jules,

darf ich fragen, warum die Daten.xlsx nicht geöffnet werden darf?

LG
Alexandra

[jules]

Hey Du,

darfst du
Ich habe mehrere (geschlossene) Dateien aus denen gelesen wird. Auch unser Beispiel hier gibt es mit 2 unterschiedlichen Dateien. Wenn man anfangen würde jede Datei zu öffnen, ergibt das ein schönes Durcheinander, zumal auch andere Personen mit dieser Datei arbeiten sollen. Denen möchte ich ein öffnen aller Dateien nicht "zumuten". Außerdem ändert sich der "Standort" desöfteren, somit müßte man jedesmal die Daten-Datei (und andere) öffnen..

Gibt es denn eine Lösung für mein "Problem"? 

LG

[cysu11]

Hi Jules,

sorry, da fällt mir auch nichts anderes ein, außer den Suchbereich in Daten.xlsx komplett in die Mappe1 zu holen und dann dort deine Formel anwenden.

Siehe hier:
https://www.vb-paradise.de/index.php/Thr...Cllt-sind/

Haben ja die anderen Helfer ja auch vorgeschlagen...

ABER ich verstehe nicht, wo das Problem ist, dass die Daten.xlsx geöffnet wird, das kann man ja so machen, dass man das garnicht sieht, und 
wenn gerade jemand diese offen hat, dann wird sie halt als readonly geöffnet!  :19:


LG
Alexandra

[jules]

Hey,

danke Dir. Der komplette Suchbereich wäre zu groß und dann auch nicht mehr Sinn der Sache... 
Komisch, dass Excel soetwas nicht kann? 

Auch wenn man die Daten.xlsx im Hintergrund öffnet, so ist es wieder eine zusätzliche Mappe offen und wie beschrieben, handelt es sich ja nicht bloß um die eine.....

Danke Dir trotzdem... 

[Memo]

Hi Alexandra,

kannst du mir vielleicht noch sagen, weshalb nach erfolgreichem Ausführen des Makros die Daten in der Tabelle2 nur bis Spalte "Z" kopiert/übernommen werden?

Der originale Textinhalt in Tabelle1 geht ja bis zu Spalte "DB".


"On Error Resume Next" habe ich nachträglich eingefügt, weil ich den Fehler "Lauzeitfehler 9: "Index außerhalb des gültigen Bereichs" nicht identifizieren konnte, das Makro jedoch richtige Ergebnisse lieferte.

Der Fehler muss doch irgendwo in der Fett hinterlegten Stelle sein?

   
        .Resize(.Rows.Count - 1).Offset(-2, 0).Copy
    End With
    With Worksheets("Tabelle2")
        loLetzteZ = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
        If .Cells(1, 1) = "" Then loLetzteZ = 1
        .Cells(loLetzteZ, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False
         End With
    .Columns("C:P").Hidden = True
    .AutoFilter.ShowAllData
    On Error Resume Next
End With
Application.CutCopyMode = False
Set raZielzelle = Nothing
On Error Resume Next
End Sub

Gruß
Memo

[cysu11]

Hi Memo,

weil du den Filter manuell gesetzt hast nur bis Spalte Z.

diese Zeile hier: .Range("$A$3:$DB$" & loLetzte)

Jetzt passt es! :)

LG
Alexandra