Thema Datum  Von Nutzer Rating
Antwort
10.07.2020 12:48:24 Saied Ashraf
NotSolved
10.07.2020 14:09:48 Gast69307
NotSolved
Rot Zellbezug inkl. Variable einfügen
 10.07.2020 14:15:51 Werner
NotSolved
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:
Werner		 Datum:
10.07.2020 14:15:51		 Views:
1144		 Rating:
     
Antwort:
  Ja
Thema:
Zellbezug inkl. Variable einfügen

Hallo,

das von meinem Vorredner war es aber noch nicht, weil dein Code ziemlicher Mist ist.

?
1
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:

?
1
 

Dann versuchst du ja wohl eine Formel in die Zielzelle zu schreiben. Das solltest du dann Excel aber auch mitteilen.

?
1
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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

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
Rot Zellbezug inkl. Variable einfügen
 10.07.2020 14:15:51 Werner
NotSolved
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