Vergleich von Werten

Hallo!
Ich habe ein Problem und zwar möchte ich aus mehreren Zeilen Werte mit einer anderen Tabelle vergleichen. Generell geht das ja mit Excel, aber da ich sehr viele Werte mit einander vergleichen muß, wird die Datenmenge mit Excelschritten zu groß.
Ich weiß, dass dies mit einer VBA-Funktion ebenfalls möglich ist, um die Datenmengen in der Exceldatei gering zu halten. Meine VBA Kenntnisse sind jeoch zu gering um so etwas zu programmieren.
Kann mir vielleicht jemand bei derProgrammierung behilflich sein?
Beispiel dazu, wenn ein Wert (Bereich C3:G3) aus Zeile 3 gleich einem Wert der Spalte E aus Tabelle2 ist, soll "E" in Feld H3 ausgegeben werden. Es sollen Spalte A:E überprüft werden, ob die Werte dort vorhanden sind. Die letzte Spalte (E) hat die höchste Priorität, dann die Spalte (D) usw. bis zur Spalte (A).
Dazu noch ne Beispieltabelle:
https://www.herber.de/bbs/user/18939.xls
Danke für die Mühe!
Jan

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Jan() Dim z, s, c As Integer With Sheets("Tabelle1") lz = .Cells(Rows.Count, 3).End(xlUp).Row For z = 4 To lz 'Zeile 4 - letzte Zeile in Tabelle1 For s = 7 To 3 Step -1 'Spalte 7 - 3 in Tabelle1 If Not .Cells(z, s) = "" Then Wert = .Cells(z, s) For c = 5 To 1 Step -1 'Spalte 5 - 1 in Tabelle2 Set w = Sheets("Tabelle2").Columns(c).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole) If Not w Is Nothing Then .Cells(z, 8) = Chr(c + 64) Exit For End If Next c If Not w Is Nothing Then Exit For End If Next s Next z End With End Sub

Sub Jan() Dim z, s, c As Integer With Sheets("Tabelle1") lz = .Cells(Rows.Count, 3).End(xlUp).Row For z = 4 To lz 'Zeile 4 - letzte Zeile in Tabelle1 For s = 7 To 3 Step -1 'Spalte 7 - 3 in Tabelle1 If Not .Cells(z, s) = "" Then Wert = .Cells(z, s) For c = 5 To 1 Step -1 'Spalte 5 - 1 in Tabelle2 Set w = Sheets("Tabelle2").Columns(c).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole) If Not w Is Nothing Then If .Cells(z, 8) < Chr(c + 64) Then .Cells(z, 8) = Chr(c + 64) Exit For End If Next c End If Next s Next z End With End Sub

Sub Jan() Dim z, s, c As Integer With Sheets("Tabelle1") lz = .Cells(Rows.Count, 3).End(xlUp).Row For z = 4 To lz 'Zeile 4 - letzte Zeile in Tabelle1 For s = 7 To 3 Step -1 'Spalte 7 - 3 in Tabelle1 If Not .Cells(z, s) = "" Then Wert = .Cells(z, s) For c = 5 To 1 Step -1 'Spalte 5 - 1 in Tabelle2 Set w = Sheets("Tabelle2").Columns(c).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole) If Not w Is Nothing Then If .Cells(z, 8) < Chr(c + 64) Then .Cells(z, 8) = Sheets("Tabelle2").Cells(1, c) Exit For End If Next c End If Next s Next z End With End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread