|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.09.2024 13:19:18 |
Frank |
|
|
|
25.09.2024 13:31:15 |
Gast70378 |
|
|
|
25.09.2024 16:52:47 |
Gast70378 |
|
|
|
25.09.2024 17:10:12 |
Gast59280 |
|
|
 Hinweis |
25.09.2024 17:06:00 |
Gast70378 |
|
|
|
15.10.2024 22:09:05 |
Gast95385 |
|
|
|
16.10.2024 11:53:23 |
Gast70378 |
|
|
Von:
Gast70378 |
Datum:
25.09.2024 17:06:00 |
Views:
78 |
Rating:
|
Antwort:
|
Thema:
Hinweis |
|
Im VBA Editor unter DieseArbeitsmappe kann man auf alle möglichen Ereignisse reagieren.
Für deinen Fall wäre das vermutlich sogar übersichtlicher
Beispiel:
'unter: DieseArbeitsmappe (ThisWorkbook)
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Not TypeOf Sh Is Excel.Worksheet Then
Exit Sub
End If
If Sh.Name = "Blanko" Then
Call Blanko_Activated(Sh)
Else
Call Month_Activated(Sh)
End If
End Sub
Private Sub Blanko_Activated(ByVal Worksheet As Excel.Worksheet)
Call Application.Goto(Worksheet.Range("A19"), True)
End Sub
Private Sub Month_Activated(ByVal Worksheet As Excel.Worksheet)
Dim rng As Range
Set rng = Worksheet.Range("A:A").Find(What:=Date - 5, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
Call Application.Goto(rng, True)
End If
End Sub
Mehr brauchst du nicht; mit diesem Code kannst du den anderen entfernen.
Grüße
|
- 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
|
|
25.09.2024 13:19:18 |
Frank |
|
|
|
25.09.2024 13:31:15 |
Gast70378 |
|
|
|
25.09.2024 16:52:47 |
Gast70378 |
|
|
|
25.09.2024 17:10:12 |
Gast59280 |
|
|
Hinweis |
25.09.2024 17:06:00 |
Gast70378 |
|
|
|
15.10.2024 22:09:05 |
Gast95385 |
|
|
|
16.10.2024 11:53:23 |
Gast70378 |
|
|