Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1936to1940
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
Mit VBA Wert in anderer Datei suchen
24.07.2023 15:10:48
Uwe
Hallo,

leider habe ich in der Forensuche nichts dazu gefunden.
Datei1 hat mehrere Spalten. Der Wert in Spalte A soll in einer geschlossenen Datei (Datei2) ebenfalls in Spalte A gesucht werden und wenn vorhanden soll in Datei1 in Spalte E der Wert 1 eingetragen werden. Wenn der Wert nicht vorhanden ist erfolgt der Eintrag 0 in Spalte E.
Das Makro wird am Ende eines anderen Makros aufgerufen und alle Werte (ca 150 Zeilen) durchlaufen.

Gruß
Uwe

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit VBA Wert in anderer Datei suchen
24.07.2023 16:01:48
Daniel
HI
per VBA kannst du nicht auf geschlossene Dateien zugreifen, das geht nur mit einer Formel.
wenns denn per VBA sein soll, würde ich per VBA die Formeln in die entsprechenden Zellen schreiben und dann bei Bedarf die Formeln durch ihren Wert ersetzen:

das könnte dann in etwa so aussehen, mit diesem Makro in Datei 1

With Thisworkbook.Sheets("Blattname")
with .Range("E2:E" & .Cells(.Rows.count, 1).End(xlup).Row)
.FormulaR1C1 = "=1*ISNUMBER(MATCH(RC1;'[C:\..Verzeichnis...\[Datei2.xlsx]Tabelle1'!C1,0))"
.Formula = .Value
end with
end with

Gruß Daniel
Anzeige
AW: Mit VBA Wert in anderer Datei suchen
25.07.2023 14:21:34
Uwe
Hallo Daniel,

Danke für Deine Lösung.

Gruß
Uwe
AW: Mit VBA Wert in anderer Datei suchen
24.07.2023 15:39:18
Rudi Maintaire
Hallo,
teste mal:
Sub aaa()
Dim wksSuch As Worksheet
Dim rngC As Range

Const strDatei As String = "c:\test\test.xlsx" 'anpassen
Application.ScreenUpdating = False

Set wksSuch = Workbooks.Open(strDatei).Sheets(1)

With ThisWorkbook.Sheets(1)
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If Not IsError(Application.Match(rngC, wksSuch.Columns(1), 0)) Then
rngC.Offset(, 4) = 1
Else
rngC.Offset(, 4) = 0
End If
Next rngC
End With

wksSuch.Parent.Close False

End Sub

Gruß
Rudi
Anzeige
AW: Mit VBA Wert in anderer Datei suchen
25.07.2023 14:19:57
Uwe
Hallo Rudi,

vielen Dank. Klappt wunderbar!

Gruß
Uwe

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige