AW: nach 2 oder 3 Begriffen suchen
25.05.2013 16:07:50
Uwe
Hallo Helmut,
das ließe sich zwar auch über eine Formel lösen, aber wenn Du es über VBA lösen willst/ musst, dann sollte das - Deine Vorlage ergänzend - so klappen:
Sub BedingteBerechnung()
Dim Zeile As Long
Dim ZeileMax As Long
Dim Treffer As Range 'Objektvariable vom Typ Zelle
With Daten
ZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
For Zeile = 2 To ZeileMax
Set Treffer = .Range("H:H").Find(what:=.Cells(Zeile, 1).Value, lookat:=xlWhole)
If Treffer Is Nothing Then
'kein ergebnis, Kunde nicht gefunden
.Cells(Zeile, 4).Value = .Cells(Zeile, 3).Value * 0.19
Else
'Kunde gefunden
Debug.Print Treffer.Value & " " & .Cells(Zeile, 2).Value
If Treffer.Offset(0, 1).Value .Cells(Zeile, 2).Value Then _
.Cells(Zeile, 4).Value = .Cells(Zeile, 3).Value * 0.19
End If
Next Zeile
End With
End Sub
Oder?
[Das entsprechende Debug.Print müsstest Du, falls gewollt, noch selber einbauen.]
Gruß
Uwe
(:o)