Thema Datum  Von Nutzer Rating
Antwort
10.07.2020 12:48:24 Saied Ashraf
NotSolved
10.07.2020 14:09:48 Gast69307
NotSolved
10.07.2020 14:15:51 Werner
NotSolved
Blau Zellbezug inkl. Variable einfügen
 10.07.2020 14:32:07 Gast45706
NotSolved
10.07.2020 14:27:58 Werner
Solved
10.07.2020 14:53:56 Gast67751
Solved
10.07.2020 14:59:18 Gast3333
Solved

Ansicht des Beitrags:
Von:
Gast45706		 Datum:
10.07.2020 14:32:07		 Views:
1061		 Rating:
     
Antwort:
  Ja
Thema:
Zellbezug inkl. Variable einfügen

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set rngTA = Worksheets("Master Data").UsedRange.Rows.Find(what:="Transition Approach", LookIn:=xlValues, lookat:=xlWhole)
     
    <strong>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</strong>
       
'    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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.07.2020 12:48:24 Saied Ashraf
NotSolved
10.07.2020 14:09:48 Gast69307
NotSolved
10.07.2020 14:15:51 Werner
NotSolved
Blau Zellbezug inkl. Variable einfügen
 10.07.2020 14:32:07 Gast45706
NotSolved
10.07.2020 14:27:58 Werner
Solved
10.07.2020 14:53:56 Gast67751
Solved
10.07.2020 14:59:18 Gast3333
Solved