|
Hallo Werner,
danke für deine Antwort! Ich habe jetzt ein wenig herumgetestet. Folgendes, zu 1 hast Du recht, da hatte ich was unterschlagen bzw. bin ich nicht ganz so geübt. Hier wäre der Code nochmal:
Set rngTA = Worksheets("Master Data").UsedRange.Rows.Find(what:="Transition Approach", LookIn:=xlValues, lookat:=xlWhole)
If rngTA.Offset(0, 1) = "FRA" Then
ThisWorkbook.Worksheets("Upload Portfolio Definition").Cells(lngRowCounter,18).formula = "=IF(" & rngTA.Offset(0, 1) & "="&""FRA""&";1;2)"
End If
' If rngTA.Offset(0, 1) = "FRA" Then
' ThisWorkbook.Worksheets("Upload Portfolio Definition").Cells(lngRowCounter, 18) = 1
' ElseIf rngTA.Offset(0, 1) = "MRA" Then
' ThisWorkbook.Worksheets("Upload Portfolio Definition").Cells(lngRowCounter, 18) = 2
' ElseIf rngTA.Offset(0, 1) = "FVA" Then
' ThisWorkbook.Worksheets("Upload Portfolio Definition").Cells(lngRowCounter, 18) = 3
' End If
'Paste and format cells
With ThisWorkbook.Worksheets("Upload Portfolio Definition")
'Paste as cell reference
.Cells(lngRowCounter, 8).Formula = "=" & rngCSMPDID.Offset(0, 1).Address(external:=True)
.Cells(lngRowCounter, 9).Formula = "=" & rngLE.Offset(0, 1).Address(external:=True)
.Cells(lngRowCounter, 11).Formula = "=" & rngKD.Offset(0, 1).Address(external:=True)
zu 1, lngrowcounter ist ein Zählervariable. Da habe ich leider die Spalte (18) vergessen.
zu 3, ich würde gerne einen Zellenbezug haben, da ich gerne möchte, dass die Kollegen sehen, woher ich die Werte nehme. Weißt Du wie das funktionieren würde?
Danke & Beste Grüße,
Saied
|