VBA prüfen, Wert aus Spalte A in einer anderen Arbeitsmappe vorhanden ist

Ich versuche zu bauen, ein makro durchläuft eine Reihe von Werten in colA und überprüfen, ob Sie existieren mit einer anderen Arbeitsmappe. In einem von Ihnen möchte ich mark es "funktioniert"/"Nicht Gearbeitet"

VBA prüfen, Wert aus Spalte A in einer anderen Arbeitsmappe vorhanden ist
Keine Anleitung, wo Sie anfangen?

  • Sie können dies tun, öffnen Sie eine Arbeitsmappe(mit Namen Mappe1) und speichern seinen Wert in Dictionary. Dann auf eine durch einen Wert aus einer anderen Arbeitsmappe(name Mappe2) und überprüfen Sie für die Existenz des Wortes in das Wörterbuch. Wenn übereinstimmung gefunden, dann markieren Sie dieses Wort in Mappe2. Hoffe es wird Euch helfen. Für mehr Abfrage, bitte es mich wissen.
InformationsquelleAutor user1810449 | 2014-02-11
  1. 0

    Beispiel

    Hier ist ein Beispiel, was du bist suchen für. Denken Sie daran, dass beide Arbeitsmappen müssen geöffnet werden, in der gleichen Instanz von Excel.

    Sub check()

Dim i As Integer, k As Integer, j As Integer 'Define your counting variables
Dim Report1 As Worksheet, bReport As Workbook, Report2 As Worksheet, bReport2 As Workbook 'Define your workbook/worksheet variables

Set Report1 = Excel.ActiveSheet 'Assign active worksheet to report1
Set bReport = Report1.Parent 'Assign the workbook of report 1 to breport


On Error GoTo wbNotOpen 'If an error occurs while accessing the named workbook, send to the "wbNotOpen" line.
Set bReport2 = Excel.Workbooks("otherworkbookname.xlsm") 'Assign the other workbook which you are cross-referencing to the bReport2 variable.
Set Report2 = bReport2.Worksheets("otherworksheetname") 'Do the same with the worksheet.
On Error GoTo 0 'Reset the error handler (to undo the wbNotOpen line.)

k = Report1.UsedRange.Rows.Count 'Get the last used row of the first worksheet.
j = Report2.UsedRange.Rows.Count 'Get the last used row of the second worksheet.

For i = 2 To k 'Loop through the used rows of the first worksheet. I started at "2" to omit the header.
    'Next, I used the worksheet function "countIf" to quickly check if the value exists in the given range. This way we don't have to loop through the second worksheet each time.
    If Application.WorksheetFunction.CountIf(Report2.Range(Report2.Cells(2, 1), Report2.Cells(j, 1)), Report1.Cells(i, 1).Value) > 0 Then
        Report1.Cells(i, 5).Value = "Worked" 'If the value was found, enter "Worked" into column 5.
    Else
        Report1.Cells(i, 5).Value = "Not worked" 'If the value wasn't found, enter "Not worked" into column 5.
    End If
Next i




Exit Sub
'This is triggered in the event of an error while access the "other workbook".
wbNotOpen:
MsgBox ("Workbook not open. Please open all workbooks then try again.")
Exit Sub

End Sub

    Dieser link enthält auch die Schritte, die erklären, wie zu überprüfen, ob eine Zelle vorhanden ist in einer anderen Arbeitsmappe. Die Kommentare sind nützlich.

    • Der folgende code, den ich versuche, Sinn zu machen { If Application.WorksheetFunction.ZÄHLENWENN(Bericht2.Range(Bericht2.Cells(2, 1), Bericht2.Cells(j, 1)), Bericht1.Cells(i, 1).Wert) > 0 ist, Dann }, Wenn man erklären kann, wie die Referenzierung ist die Arbeit, die ich halb verstehen.
    • Ich Frage die oben, weil ich die notwendigen änderungen vorgenommen und ausprobiert, läuft das makro über einige test-Daten, die es in beiden Dokumenten aber alle es zeigt, ist "Nicht Gearbeitet"
    • Die Linie ist im Grunde die VBA-version von der Funktion ZÄHLENWENN in excel. Es funktioniert auf die gleiche Weise; es verwendet zwei Parameter: ein Parameter für den Bereich und eine für die Suche Wert. Der einzige Unterschied ist, müssen Sie den Bereich festlegen mit VBA mySheet.Range(cellone,celltwo). In dem obigen code, Zelle ist Report2.Cells(2,1) und Zelle zwei ist Report2.Cells(j,1). Die Suche Wert ist Report1.Cells(i,1).Value. Sie möchten die .Value weil wir verweisen auf den Inhalt der Zelle und nicht die Zelle selbst.
    InformationsquelleAutor Lopsided
  2. 0

    Dank #Einseitige Lösung, ich habe tweeked seinen code zu gebären, diese Lösung. Und diese scheint zu funktionieren.

    {       
Sub CheckValue()

Dim S1 As Worksheet
Dim S2 As Worksheet

Dim i As Integer
Dim k As Integer
Dim j As Integer

Set S1 = Worksheets("Sheet1")
Set S2 = Worksheets("Sheet2")

k = S1.UsedRange.Rows.Count
j = S2.UsedRange.Rows.Count

For i = 1 To k
If Application.WorksheetFunction.CountIf(S2.Range(S2.Cells(2, 1), S2.Cells(j, 1)), S1.Cells(i, 1).Value) > 0 Then
    S1.Cells(i, 5).Value = "Worked" 'If the value was found, enter "Worked" into column 5.
Else
    S1.Cells(i, 5).Value = "Not worked" 'If the value wasn't found, enter "Not worked" into column 5.
End If
Next i
End Sub

    }

    • Ich würde gerne wissen, ob es eine schnelle Behebung für diese Rohlinge Zellen markiert. Wenn ich das makro ausführen markiert er es wie gewünscht, aber es markiert auch das Leerzeichen Zellen auch.
    • Wenn Sie leere Zellen in dem Bereich, der von dem ersten Blatt, der ZÄHLENWENN-Funktion die leere Zeichenfolge als Wert haben. Wenn Sie wollen, um schnell weglassen dieser Zellen, nur wickeln Sie die wenn-Funktion in einer anderen wenn. Wie If S1.Cells(i,1).Value <> "" Then. Die im Grunde sagt: "Tue das folgende nur, wenn der gesuchte Wert nicht leer.
    • Bedeutet das, dass ich zu schreiben habe eine verschachtelte if-Anweisung? Oder fügen Sie einfach eine weitere wenn-dann-Zeile unten.
    • Verschachtelt. Setzen Sie die Zeile, die ich oben schrieb, und die End If Zeile unterhalb.
    • Ich habe die if-Anweisung, um den code und egal, was es zeigt "Nicht funktioniert" hat für alle Zellen {Für i = 2 Bis k, Wenn S1.Cells(i, 1).Wert <> "" Dann, Wenn Anwendung.WorksheetFunction.ZÄHLENWENN(S2.Range(S2.Cells(2, 1), S2.Cells(j, 1)), S1.Cells(i, 2).Wert) > 0 then S1.Cells(i, 5).Value = "Gearbeitet" S1.Cells(i, 5).Innenraum.ColorIndex = 43 Else S1.Cells(i, 5).Value = "Nicht gearbeitet" S1.Cells(i, 5).Innenraum.ColorIndex = 36 ', Wenn der Wert nicht gefunden wird, geben Sie "Nicht funktioniert" in Spalte 5. End If End If Next i}
    • Gut, meine Lösung wäre nur, es zu beheben, wenn das war tatsächlich das problem. Könnte es ein weiteres Problem. Es ist vielleicht das beste, einfach zu machen eine andere Frage.

    InformationsquelleAutor user1810449
Schreibe einen Kommentar