Code beim öffnen der Arbeitsmappe ausführen

Private Sub Worksheet_Change(ByVal Target As Range) Dim bSuccess As Boolean Dim zeile As Long Worksheets("Berechnung").Unprotect Password:="sperl" If Not Intersect(Target, Range("ANFANG", "ENDE")) Is Nothing Then zeile = Target.Row On Error Resume Next bSuccess = Range("Q" & zeile).GoalSeek(0, Range("R" & zeile)) On Error GoTo 0 End If Worksheets("Berechnung").Protect Password:="sperl" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
sry ich wusste nicht wie die Gepflogenheiten hier sind. Bin neu hier.
Tut mir leid.
Dein Code funktioniert super.
Habe keine Probleme damit.
Jedoch wäre ein Button der das Skript ausführt noch besser.
Grund: In der Bestandsdatei ist ein code drin, der irgendwie einen Datensatz einfügt, aber das ergibt Probleme mit deinem code, weil deiner dann nicht mehr funktioniert.
Erst wenn ich die Datei speichere und dann wieder öffne und eine Zelle der betreffenden eingefügten Zeile ändern aktualisiert wer wieder alles ganz normal wie vorher.
Vor dem Speichern geht halt die neu eingefügte Zeile nicht.
Dazu anbei mal Datei zum besseren Verständnis.
https://www.herber.de/bbs/user/101998.xlsm
Button: Zeile einfügen betätigen. Danach Werte in die betreffende Zeile eingeben. Berechnung funktioniert nicht. Wenn nun die Datei gespeichert und wieder geöffnet wird, geht die Berechnung wenn man einen Wert der Zeile aktualisiert.
Hast du hierzu eine Lösung?
Das Auslösen des Skriptes mit dem Button war nur von mir eine Idee.
Es könnte auch über die Änderung der Zelle ausgeführt werden, dazu müsste man aber irgendwas anpassen.
Ich weis leider aber nicht was und wie

Schönen guten Morgen, Katja,
sry ich wusste nicht wie die Gepflogenheiten hier sind.
Ein bißchen Höflichkeit ist nicht nur hier angebracht.
Zur Sache:
Bitte setz Dich hin, trink nen Kaffee und überleg Dir mal, wie Du die Benutzerführung genau möchtest.
[im Moment vermute ich, daß das ein wildes und wahrscheinlich unnötiges Herumgespringe zwischen Eingabe, Berechnung und Anzeige des Ergebnisses ist]
[Deine Tabelle sieht mir danach aus, daß (ausnahmsweise) eine "Tabelle" im Tabellenblatt einiges vereinfachen würde, nämlich u.a. die ANFANG- und ENDE-Kennzeichnung.]
Dann lädst Du uns bitte eine Datei mit ein paar Spieldaten hoch ...
[Warum? Weil eine Tabelle voller #BEZUG! und #WERT! einfach nicht nachvollziehbar ist]
...und markierst bitte genau (z.B. farblich), was wer wo eingeben kann und was damit passieren soll.
Und bitte in welchen Schritten damit gearbeitet werden soll, also etwa:
1. Eingabe von Daten im Tabelle/Bereich von.. bis
2. Drücken des Buttons "Bla" usw.
Ich bin kein Hellseher ...
Nicht vergessen: ich hatte Dich darauf hingewiesen, daß die Formel aus sellis Link einen Tippfehler hat: in Datensatz!Q5 muß es heißen 3,71, nicht 3,7 - ist noch nicht ausgebessert.
Happy Exceling,
Michael

Private Sub CommandButton3_Click() Dim bSuccess As Boolean Dim zeile As Long Worksheets("Berechnung").Unprotect Password:="sperl" For zeile = Range("ANFANG").Row + 1 To Range("ENDE").Row On Error Resume Next bSuccess = Range("Q" & zeile).GoalSeek(0, Range("R" & zeile)) On Error GoTo 0 Next Worksheets("Berechnung").Protect Password:="sperl" End Sub

Beliebteste Forumthreads (12 Monate)

Code beim öffnen der Arbeitsmappe ausführen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code beim öffnen der Arbeitsmappe ausführen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread