Hallo!
Ich habe im Netz einen VBA-Code für eine Excel-Stoppuhr gefunden und würde diesen gerne nutzen. Den Code findet man unter http://www.online-excel.de/excel/singsel_vba.php?f=96 .
Leider bin ich in VBA nicht wirklich fit bzw. noch ganz am Anfang. Ich habe mehrmals versucht den Code einzubinden, aber leider passiert da garnichts.
Ich habs so gemacht, dass ich den ersten Teil in das Klassenmodul „DieseArbeitsmappe“ und die beiden anderen Codes in zwei neue Module mit den jeweiligen Namen eingefügt habe. Aber wie gesagt, es passiert nichts.
Vielleicht kann mir ja jemand dabei helfen!
Schönen Dank im Voraus.
Gruß,
Martin
Ich habe im Netz einen VBA-Code für eine Excel-Stoppuhr
gefunden und würde diesen gerne nutzen. Den Code findet man
unter http://www.online-excel.de/excel/singsel_vba.php?f=96 .
Ich habs so gemacht, dass ich den ersten Teil in das
Klassenmodul „DieseArbeitsmappe“ und die beiden anderen Codes
in zwei neue Module mit den jeweiligen Namen eingefügt habe.
Aber wie gesagt, es passiert nichts.
Hi Martin,
der Code funktioniert schon, zumindest unter XL2000, aber nur wenn er auch gestartet wird.
Hättest du eine zweite Mappe aufgemacht und dann wieder in die erste Mappe gewechselt hättest du die Stoppuhr-Symbolleiste gesehen.
das liegt an
Private Sub Workbook_Activate()
Das wird nicht ausgelöst wenn du die mappe öffnest sondern erst wenn du von einer anderen Mappe aus in diese Mappe wechselst.
mache es so, ändere das in „Diese Arbeitsmappe“ ab in
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call prc_DeleteCommandBar
End Sub
’
Private Sub Workbook_Open()
Call prc_CreateCommandBar
End Sub
speichere die Mappe und öffne sie neu…
Gruß
Reinhard
Hallo!
Ich habs so gemacht, dass ich den ersten Teil in das
Klassenmodul „DieseArbeitsmappe“ und die beiden anderen Codes
in zwei neue Module mit den jeweiligen Namen eingefügt habe.
Aber wie gesagt, es passiert nichts.
Vielleicht kann mir ja jemand dabei helfen!
Hallo Martin
Ich hab’s auch gemacht wie Du - ohne Reinhards Aenderungsvorschläge. Die Module hab ich ohne Namensänderung als Modul1 und Modul2 stehen lassen.
Ich hab dann die Datei gespeichert und geschlossen und dann wieder geöffnet. Beim öffnen war dann die neue Symbolleiste auf dem Arbeitsblatt vorhanden.
Grüsse Niclaus
Grüzie Niclaus,
Ich hab’s auch gemacht wie Du - ohne Reinhards
Aenderungsvorschläge. Die Module hab ich ohne Namensänderung
als Modul1 und Modul2 stehen lassen.
ich habe auch nicht die Module umbenannt, aber ich habe auch den Code überflogen und wußte daher ich brauche das nicht.
Wenn man sowas nicht klar erkennen kann ist es sicherer den Anweisungen zu folgen.
Ich hab dann die Datei gespeichert und geschlossen und dann
wieder geöffnet. Beim öffnen war dann die neue Symbolleiste
auf dem Arbeitsblatt vorhanden.
Okay, dann habe ich Mist erzählt 
Das kommt daher daß ich Active in der Öffnungsphase einer Mappe kritisch sehe.
Angenommem, du hast in DieseArbeitsmappe das da:
Private Sub Workbook_Open()
Worksheets(1).Activate
End Sub
und im Klassenmodul von Tabelle1:
Private Sub Worksheet_Activate()
MsgBox „Huhu“
End Sub
so wird das nicht ausgeführt!
Abhilfe ist z.B. so:
Private Sub Workbook_Open()
Worksheets(2).Activate
Worksheets(1).Activate
End Sub
Letzlich kann ja Code nur ausgeführt werden wenn er auch gestartet wird. Der Anfrager hat nicht gestartet, du und ich ja, wichtig dabei ist nur daß der Anfrager jetzt wissen kann wie er startet, der Weg ist wurscht.
Gruß
Reinhard
Morgen zusammen!
Also ich habs nochmal versucht, aber die Bedienleiste der Stoppuhr öffnet sich nicht, egal ob ich die Module benenne oder nicht.
Wäre vielleicht einer von euch beiden so nett, mir die Datei zu schicken? Dann kann ich mal sehn ob es an Excel 2007 liegt oder vielleicht doch an mir
Gruß,
Martin
Hallo Martin
Ich habe die Datei hochgeladen:
http://www.hostarea.de/server-11/November-a80d1d1185…
Ich habe vergessen zu sagen, dass ich mit Excel 2003 arbeite.
Grüsse und schönes WE
Niclaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Vielen Dank dafür!
Ich hab jetzt auch endlich das Problem gefunden! Es lag nicht am Code oder sonst etwas, Excel 2007 zeigt die Bedienleiste der Stoppuhr direkt in der neuen Robbin-Leiste an und das hab ich nur zufällig entdeckt, weil ich damit nicht gerechnet habe!
Aber jetzt weiß ich es und es funktioniert!
Danke nochmal!
Gruß,
Martin