|
Hallo,
das von meinem Vorredner war es aber noch nicht, weil dein Code ziemlicher Mist ist.
ThisWorkbook.Worksheets("Upload Portfolio Definition").Cells(lngRowCounter)
Cells erforder die Angabe von Zeile und Spalte in der Klammer, getrennt durch Komma.
Du hast aber nur (vermutlich) die Zeile, die Spalte fehlt. Z.B. so:
Dann versuchst du ja wohl eine Formel in die Zielzelle zu schreiben. Das solltest du dann Excel aber auch mitteilen.
ThisWorkbook.Worksheets("Upload Portfolio Definition").Cells(lngRowCounter, "A").Formula = "....
Wobei sich mir die Frage stellt, weshalb du den Ergebniswert nicht direkt durch den Code in die Zelle schreibst.
Public Sub aaa()
Dim lngRowCounter As Long, rngTA As Range
With Worksheets("Master Data")
Set rngTA = .UsedRange.Find(what:="Transition Approach", LookIn:=xlValues, lookat:=xlWhole)
If Not rngTA Is Nothing Then
ThisWorkbook.Worksheets("Upload Portfolio").Cells(lngRowCounter, "A") = IIf(rngTA.Offset(, 1) = "FRA", 1, 2)
Else
MsgBox "Transition Approach wurde nicht gefunden."
End If
End With
Set rngTA = Nothing
End Sub
Gruß Werner
|