Thema Datum  Von Nutzer Rating
Antwort
Rot VBA in bestimmtem Sheet nicht ausführen
25.09.2024 13:19:18 Frank
NotSolved
25.09.2024 13:31:15 Gast70378
NotSolved
25.09.2024 16:52:47 Gast70378
NotSolved
25.09.2024 17:10:12 Gast59280
NotSolved
25.09.2024 17:06:00 Gast70378
NotSolved

Ansicht des Beitrags:
Von:
Frank
Datum:
25.09.2024 13:19:18
Views:
118
Rating: Antwort:
  Ja
Thema:
VBA in bestimmtem Sheet nicht ausführen

Servus,

ich habe ein Blanko-Vorlagensheet, das einen Code enthält, der in den aus der Vorlage abgeleiteten Sheets ausgeführt werden soll, jedoch nicht in der Vorlage selbst.

 

Das Blatt heißt "Blanko", die Namen der anderen Sheets besteht aus Monat und Jahr, also 03-24, 04-24, usw.

Der VBA-Code sieht so aus:

Private Sub Worksheet_Activate()
Dim rng As Range
Set rng = ActiveSheet.Range("A:A").Find(What:=Date - 5, LookIn:=xlValues, _
LookAt:=xlWhole)
If Not rng Is Nothing Then Application.Goto rng, True
End Sub

 

Damit springt er jedes Mal, wenn ich eines der Monatsblätter anklicke, auf das aktuelle Datum (bzw. 5 Zeilen darüber).

Der Code ist deshalb im Blanko-Sheet drin, damit jedes Mal beim Anlegen eines Monats-Sheets der Code mit kopiert wird, das ist denke ich klar. Aber genau im Blanko-Sheet soll er nicht ins aktuelle Datum springen, da soll er bitte mit dem Cursor im Feld A19 (da steht immer der Monatserste) bleiben.

 

Gibt es dafür eine einfache Lösung?


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
Rot VBA in bestimmtem Sheet nicht ausführen
25.09.2024 13:19:18 Frank
NotSolved
25.09.2024 13:31:15 Gast70378
NotSolved
25.09.2024 16:52:47 Gast70378
NotSolved
25.09.2024 17:10:12 Gast59280
NotSolved
25.09.2024 17:06:00 Gast70378
NotSolved