Programmfehler bei einer Vergleichsfunktion!
15.04.2005 09:36:10
Jan
Ich habe ein kleines Problem mit einer VBA Programmierung, jedoch weiß ich leider nicht, wie ich dieses beheben kann. Kann mir vielleicht jemand aus dem Forum dabei helfen?
Es geht um folgendes:
Spalten C - G aus "Tabelle1" sollen mit Spalten A - E aus "Tabelle2" verglichen werden. Anschließend soll die höchste Zahl vom Tabellenkopf aus "Tabelle2" (Zeile 1) in "Tabelle1" Spalte H ausgegeben werden. Mit der bisherigen VBA-Funktion ist dies nicht möglich. Ich kann bisher nur alphabetisch nacheinander sortierte Buchstaben übertrag.
Was muß ich in der VBA Anwendung ändern, um die Beispiele aus "Tabelle2" möglich zu machen?
https://www.herber.de/bbs/user/21177.xls
VBA-Programm:
Sub Jan3()
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
Vielen Dank für die Hilfe!
Gruß Jan