Wert vergleichen und übertragen
28.11.2003 13:59:04
Peter
möchte Werte aus der Spalte G Zellen 2-18 mit der Zelle A1 vergleichen. Dies klappt soweit. Es wird der Wert Wahr oder Falsch geliefert(in die Spalte E Zellen 11-27). Im zweiten Schritt soll dann falls der Wert übereinstimmt(Wahr) ein wert aus der Spalte h der gleichen Zeile rechts neben dem Wahr erscheinen.
Beispiel:
Zelle A1=1
Zelle G2=1
Zelle H2=100
Zelle E11=WAHR
Zelle F11=100
Funktioniert aber leider nicht.
Kann mir einer helfen? Hierfür besten Dank. Unten anbei der Quellcode...
Private Sub CommandButton1_Click()
Dim iCol As Integer
Dim rngFirst As Range, rngSecond As Range
For i = 2 To 18
Set rngFirst = Cells(i, 7)
Set rngSecond = Cells(1, 1)
Cells(i + 9, 5) = bereichvergleich(rngFirst, rngSecond)
Next i
End Sub
Private Function bereichvergleich(rngEins As Range, rngZwei As Range) As Boolean
Dim rng As Range
Dim iCount As Integer
Dim schalter As Boolean
Dim wert As Double
For j = 2 To 18
wert = Cells(j, 8)
For Each rng In rngEins.Cells
iCount = iCount + 1
If rng <> rngZwei.Cells(iCount) Then
schalter = True
Exit For
End If
Next rng
If schalter = False Then bereichvergleich = True
Cells(iCount + 10, 6) = wert
Next j
End Function
Anzeige