Thema Datum  Von Nutzer Rating
Antwort
02.02.2022 18:31:22 Tobi
Solved
02.02.2022 18:38:05 xlKing
NotSolved
02.02.2022 19:16:08 Tobi
NotSolved
Blau Tabellenbaltt aktivieren ohne springen
 02.02.2022 20:03:50 xlKing
NotSolved
02.02.2022 20:22:01 Tobi
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
02.02.2022 20:03:50		 Views:
371		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenbaltt aktivieren ohne springen

Hallo Tobi,

das sieht doch schon gut aus. Zumindest im oberen Teil hast du alles richtig gemacht. Du hast das Sheet definiert und beziehst dich auf dessen Cells indem du einen Punkt voranstellst. Genauso wirds gemacht.  Wenn du nun das End With nach unten nimmst und auch vor die öffnenden eckigen Klammern sowie vor Range einen Punkt setzt, greifst du auch hier auf die Zellen in Depotverlauf zu und kannst Sheet.Activate auskommentieren oder löschen.

Sub Depotverlauf()

Dim lRowIn&
 
'Sheets("Depotverlauf").Activate
 
With Worksheets("Depotverlauf")
    If .Cells(4, 8) <> "" Then
        .Cells(.Rows.Count, 8).End(xlUp).Offset(1) = Date
    Else
        .Cells(4, 8) = Date
    End If
    
   .[E1].FormulaLocal = "=AGGREGAT(14;4;(I3:I100<>"""")*ZEILE(I3:I100);1)+1"
   lRowIn = .[E1].Value
   .[E1].ClearContents
    
   .Range("I" & lRowIn).Value = .[Cell_Depotwert]
End With
 
End Sub

PS: Application.Worksheetfunction bietet dir jede Menge Formeln die du direkt in deine Variable auswerten kannst. Schau mal ob da auch die Aggregat-Funktion dabei ist. Dann kannst du aus deinem Dreizeiler einen Einzeiler machen. Ist aber nur nice to have.

Gruß Mr. K.

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:



  • 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
02.02.2022 18:31:22 Tobi
Solved
02.02.2022 18:38:05 xlKing
NotSolved
02.02.2022 19:16:08 Tobi
NotSolved
Blau Tabellenbaltt aktivieren ohne springen
 02.02.2022 20:03:50 xlKing
NotSolved
02.02.2022 20:22:01 Tobi
NotSolved