Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.02.2022 18:31:22 |
Tobi |
|
|
|
02.02.2022 18:38:05 |
xlKing |
|
|
|
02.02.2022 19:16:08 |
Tobi |
|
|
Tabellenbaltt aktivieren ohne springen |
02.02.2022 20:03:50 |
xlKing |
|
|
|
02.02.2022 20:22:01 |
Tobi |
|
|
Von:
xlKing |
Datum:
02.02.2022 20:03:50 |
Views:
382 |
Rating:
|
Antwort:
|
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.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
02.02.2022 18:38:05 |
xlKing |
|
|
|
02.02.2022 19:16:08 |
Tobi |
|
|
Tabellenbaltt aktivieren ohne springen |
02.02.2022 20:03:50 |
xlKing |
|
|
|
02.02.2022 20:22:01 |
Tobi |
|
|