Thema Datum  Von Nutzer Rating
Antwort
Rot Counter nach Schließen der Datei behalten
 08.07.2021 10:33:46 MarkoZer
NotSolved
08.07.2021 11:07:19 Gast73197
NotSolved

Ansicht des Beitrags:
Von:
MarkoZer		 Datum:
08.07.2021 10:33:46		 Views:
515		 Rating:
     
Antwort:
  Ja
Thema:
Counter nach Schließen der Datei behalten
Hallo zusammen, ich war bisher immer nur ein stiller Zuhöhrer aber heute bin ich auf ein Probem gstoßen, zudem ich leider nichts finde (oder ich bin zu blöd dazu). 

Und zwar habe ich ein Program geschrieben, dass mir beim Klicken in einen bestimmten Bereich den Counter erhöht, diesen in eine angegebene Zeile einträgt und anschließend, wenn wieder in den Bereich geklickt wird, in die nächse Zeile springt und den neuen Counter einträgt. Dieser Prozess soll immer wieder wiederholt werde bis der Nutzer die Datei schlussendlich schließt. Das klappt alles soweit sehr gut. 

Jetzt fängt das Problem an. Immer wenn ich meine Datei neu öffne starte der Counter von vorne, was nicht sein soll. Daher meine Frage: Kann mir jemand einen Tipp/ Code geben, der mit bei diesem Problem weiterhilft, sodass ich bspw. vor dem Schließen den Couter=5 hatte und bei neuöffnen den Counter wieder bei 5 habe.

Ich habe auch schion ein Verusch gestartet aber irgenwie klappt es einfach nicht. Dier Counterwert kann auf dem Arbeitsblatt stehen und soll beim schließen der Datei in die zeile übernommen werden. Nach öffnen der Datei wird der Wert aus der Zeile dem Counter hinzugerechnet und soll somit am alten counter ansetzen

 

Public Wert As Integer Public counter As Integer Public zeile As Integer Private Sub Workbook_BeforeClose(Cancel As Boolean) Wert = Application.max(Range("DB11:DB84")) Range("DF1").Value = Wert End Sub ' der maximale eingetragene Counter soll vor dem schließen übernommen werden und in die Zeile getragen werden Private Sub Workbook_Open() counter = Range("DF1").Value End Sub ' beim öffnen der Datei soll der Counter den Wert aus der Zeile annehmen Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A11:AA25")) Is Nothing Then Add_Shape_At_Cursor_Position 'kann glaube ignoriert werden - das Modul dient dazu, dass ein Kreis in diesem Bereich gesetzt wird counter = counter + 1 zeile = zeile + 1 Range("DB" & zeile).Value = counter End If End Sub

 

Ich hoffe ich konnte meint Problem verständlich schildern. Ich danke euch schonmal herzlich für eure Antworten und Tipps. Beste Grüße, Marko

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 Counter nach Schließen der Datei behalten
 08.07.2021 10:33:46 MarkoZer
NotSolved
08.07.2021 11:07:19 Gast73197
NotSolved