Vergleich von Spalten

Sub Vergleich_starten() 'Spalte A wird nach Werten aus Spalte C durchsucht. 'Wenn vorhanden, wird die Zeilennummer neben den C-Wert in Spalte E geschrieben. Application.ScreenUpdating = False On Error Resume Next Z1 = Range("c1").End(xlDown).Row For S = 1 To Z1 Zeile = 0 Suchwert = Cells(S, 3).Value Zeile = Columns("A:A").Find(What:=Suchwert, lookat:=xlWhole).Row If Zeile 0 Then Cells(S, 5) = "in alter Liste (Spalte A) in Zeile " & Zeile & " _ vorhanden" Next S Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Argumente

18.08.2017 08:17:05

Fennek

AW: Argumente

18.08.2017 08:46:23

Erwin

AW: Argumente

18.08.2017 23:41:16

Christian

AW: Argumente

19.08.2017 20:16:23

Erwin

AW: Argumente

19.08.2017 20:45:14

Christian

AW: Argumente

19.08.2017 21:03:53

Erwin

AW: Argumente

19.08.2017 21:24:13

Christian

AW: Argumente

19.08.2017 22:14:10

Christian

AW: Argumente

19.08.2017 23:03:14

Erwin

Hi Erwin,
hier eine Variante, die dir alle Trefferadressen in Spalte E
schreibt. Lässt sich bestimmt noch effizienter (schneller) gestalten...
VG, Christian

Sub ReportAddressToColumnE()
Dim dict As Dictionary
Set dict = New Scripting.Dictionary
Dim e As Variant
Dim i As Long
' Einlesen auf Tabellenblatt3 >> Anzupassen
With ThisWorkbook.Worksheets("Tabelle3")
Dim oRow As Variant
' Es wird angenommen, dass A - E eine zusammenhängender Datebereich mit Überschrift
' und ohne Leerzeilen/-spalten ist
' Dictionary mit Adressen und Werten der Spalte A laden
For Each oRow In .Cells(1, 1).CurrentRegion.Rows
dict.Add oRow.Cells(1, 1).Address, oRow.Cells(1, 1).Value
Next oRow
Dim arrList As Object
Set arrList = CreateObject("System.Collections.ArrayList")
' Schleife über Spalte C (Suchwerte die in Spalte A gefunden werden sollen)
For Each oRow In .Cells(1, 1).CurrentRegion.Rows
Dim SeachValue As String
SearchValue = oRow.Cells(1, 3).Value
i = 0
' SearchValue in der Items-Collection suchen um Index zu ermitteln
For Each e In dict.Items
' Wenn Treffer, dann mit dem Item-Index den entsprechenden Schlüssel
' aus der Keys-Collection via Funktion auslesen. Ergebnisse in einem
' ArrayList-Objekt speichern.
If SearchValue = e Then
arrList.Add "Wert " & e & " steht in der alten Liste in Zelle " & _
getKey(dict.keys, i) & " vorhanden."
End If
i = i + 1
Next e
Next oRow
' Werte der ArrayList im Block in Spalte E schreiben. Ab Zeile 2
.Range(.Cells(1, 5).Offset(1), .Cells(arrList.Count, 5).Offset(1)) _
= Application.Transpose(arrList.toarray)
End With
End Sub
Private Function getKey(x As Variant, lngIndex As Long) As String
getKey = x(lngIndex)
End Function

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread