Office: Probleme mit MsgBox "Abbrechen"

Hallo Wolf,

Verstehe ich das richtig ?
- Du betätigst den Button im Tabellenblatt 'Team_Test'
- danach möchtest Du eine Möglichkeit haben, den Prozess zu stoppen, die Eingabedaten zu ergänzen bzw zu ändern und dann mit der Verarbeitung neu aufzusetzen.

Da sehe ich mit einer MsgBox-Anweisung keine Möglichkeit.
Abgesehen davon würde sich mE der Einbau einer solchen Möglichkeit nur bei längeren Laufzeiten lohnen. Hast Du mal gestoppt, wie lange Dein Programm ohne die gewünschte Unterbrechungs-Möglichkeit läuft ?

Gruß
Aloys

 

Hi,

du lässt ja den Fehler immer ausführen..., das hatte ich übersehen.

If MsgBox("OEE_Team Wolfram jetzt Ãœbertragen & speichern?", vbQuestion + vbOKCancel, _
"Jetzt Übertragen & speichern & löschen Werte Team Wolfram") = vbCancel Then Exit Sub

 

Hi Chris,

die Werte werden aber immer noch übertragen !

Code:

Gruss
Wolfram

 

Hi,

OK, ich werde senil

nicht Exit Sub

END

If MsgBox("OEE_Team Wolfram jetzt Ãœbertragen & speichern?", vbQuestion + vbOKCancel, _
"Jetzt Übertragen & speichern & löschen Werte Team Wolfram") = vbCancel Then End

das killt alles.

 

Ok, dann werde ich das morgen mal probieren *Smilie

Hast du mir noch einen Tipp, wie ich das machen könnte, das nicht kopiert wird wenn nichts im Bereich Code:

steht. (Die ganze Zeile) Das wäre noch toll wenn du eine Idee dafür hättest.

Danke und Gruss
Wolf

 

Hallo Aloys,

ja du hast recht mit deiner Annahme, dass die MsgBox nur für das dient, wenn jemand noch was ändern möchte.

Gruss
Wolf

 

Hi,

Das geht ja nur bis Test_9 ?
sollte da auch ein Test_10 kommen?

Code:

das ersetzt mal deine xxxx Zeilen

 

Danke mal für deinen Code Vorschlag den werde ich mal versuchen einzubauen und die Namen ist der Tabellen ist nicht Team 1 bis 9 sondern die Namen sind anders und es können auch noch welche Tabellen dazu kommen, wenn die Berechnung in PP__01 erweitert wird.

Mal vielen Dank für die erste Hilfe in meinem Projekt.

Gruss
Wolf

 

Hallo Chris,

Hab deinen Code jetzt probiert und mir ist folgendes aufgefallen :

Die Werte werden in die falschen Spalten eingetragen und
die Werte werden immer 5 mal übertragen.

Ansonsten, kann Wolf sich xxxx Zeilen sparen !

Gruß
Wolf

 

HI,

wegen der falschen Spalte
Code:

nur warum das jetzt 5 mal sein sollte keine Ahnung! In dem Code steht das nicht!

hier mal ein wenig kommentiert

Code:

 

Hallo Chris,

danke mal für die Verbesserung im Code und die Kommentare.

Nun noch eine Frage, meine Tabellenblätter haben lauter unterschiedliche Namen und daher funktioniert das mit dem "Test_" nicht.

Es können auch irgendwann mal 20 Tabellenblätter werden.

Und was bedeutet & i - 5 ???

PHP:

         Set wksStore = Worksheets("Test_" & i - 5) definiere in welches Blatt (Test_1 bis Test 9)


 

Hallo Wolf,

ich verstehe einfach nicht warum das so gemacht werden sollte, was ist der Sinn dahinter?

http://www.ms-office-forum.net/forum...d.php?t=289577

siehe Beitrag #8 da splitte ich auch auf, egal ab ein Blatt oder 100
ist das sowas in der Art?

und i-5
ziehe von der Variablen i fünf ab
Wenn i =6
dann ergibt i-5
1

 

hallo Chris,

der Sinn dahinter ist, dass ich die Tabelle PP_01 erweitern muss und dann gibt es mehr Tabellenblätter, die immer einen anderen Namen haben werden, weil das Arbeitsplätze von Maschinen sind.

Daher würde ich benötigen, das er auch die Tabellenblätter durchläuft auch wenn nicht die Blatt Namen die selben sind.

Darum die Anforderung.

Gruss
Wolf

Ps. ansonsten funktioniert alles bestens.