Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Fucus?? bei Button
zurück: Txt einlesen in Excel in bestehendes Worksheet, String! weiter: For - Schleife mit vLookUp Schleife Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
GZ
VBA (Excel) Anfänger


Verfasst am:
21. Mai 2007, 13:22
Rufname:
Wohnort: Oberösterreich

Fucus?? bei Button - Fucus?? bei Button

Nach oben
       Version: Office 2003

Hallo

Wenn der Anwender bei meinen Makros auf den Button drückt, bleibt die Schaltfläche gedrückt, während der Programmcode abgearbeitet wird.
Wenn ich unter Eigenschaften des Buttons den TakeFocusOnClick auf False setze nützt das nichts. Wenn ich in den VBA Code schreibe: cmdProgrammStarten.TakeFocusOnClick = False - nützt das auch nichts.
Wie kann ich das Hängenbleiben verhindern?

Liebe Grüße
Gottfried
Nepumuk
VB / VBA Programmierer


Verfasst am:
21. Mai 2007, 13:50
Rufname: Max
Wohnort: Dusseldoof


AW: Fucus?? bei Button - AW: Fucus?? bei Button

Nach oben
       Version: Office 2003

Hallo Gottfried,

na wenn du keine anderen Probleme hast, dann z.B. so:

Im Klassenmodul einer Tabelle:

Code:
Private Sub CommandButton1_Click()
    DoEvents
    Application.OnTime Time + TimeSerial(0, 0, 1), "DoIt"
End Sub


In einem Standardmodul:

Code:
Private Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)
   
Public Sub DoIt()
    Dim intIndex As Integer
    For intIndex = 1 To 200
        Sleep 10
    Next
    Beep
End Sub

Wie geschrieben, nur ein Beispiel ohne irgendwelchen Sinn.

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
GZ
VBA (Excel) Anfänger


Verfasst am:
21. Mai 2007, 14:26
Rufname:
Wohnort: Oberösterreich

AW: Fucus?? bei Button - AW: Fucus?? bei Button

Nach oben
       Version: Office 2003

Hallo Nepumuk,

danke für Deine Hilfe!

wenn Du keine anderen Probleme hast ... finde ich lieb Smile
Doch ich habe andere Probleme!!!
Ich kann - so wie es aussieht - Deinen Code nicht einmal richtig unterbringen.

In das Userform (=Startmenü) habe ich diesen Code:
Sub cmdProgrammStarten_Click()
DoEvents
Application.OnTime Time + TimeSerial(0, 0, 1), "DoIt"
Call ProgrammXY
End Sub

In ein eigenes Modul (=Modul2) habe ich nun diesen Code:

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)

Public Sub DoIt()
Dim intIndex As Integer
For intIndex = 1 To 200
Sleep 10
Next
Beep
End Sub


Fazit: Es funktioniert nicht. Was mache ich da falsch?


Liebe Grüße
Gottfried
Nepumuk
VB / VBA Programmierer


Verfasst am:
21. Mai 2007, 15:35
Rufname: Max
Wohnort: Dusseldoof

AW: Fucus?? bei Button - AW: Fucus?? bei Button

Nach oben
       Version: Office 2003

Hallo Gottfried,

ich habe in meinem Programm die Routine "DoIt" aufgerufen, weil mir nichts besseres einfiel. Du musst darin natürlich deine Routine "ProgrammXY" aufrufen. Das DoEvents vor dem Aufgruf kannst du übrigens weg lassen, das bringt nichts. Deine Routine "ProgrammXY" muss sich natürlich auch in einem Standardmodul befinden!

Ich habs jetzt extra für dich nochmal mit einem Userform getestet. Funktioniert einwandfrei.

Sei mir bitte nicht böse, aber meiner Meinung nach ist das völlig Hirnrissg, extra eine Sekunde Verzögerung einzubauen, nur damit ein Button wieder zurückschnappt.

Bad Grin Bad Grin Bad Grin Aber so sind's halt, unsere südlichen Nachbarn. Bad Grin Bad Grin Bad Grin

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
GZ
VBA (Excel) Anfänger


Verfasst am:
21. Mai 2007, 16:01
Rufname:
Wohnort: Oberösterreich

AW: Fucus?? bei Button - AW: Fucus?? bei Button

Nach oben
       Version: Office 2003

Danke!

Eigentlich genügt dann dazu 1 Zeile Code um das zu erreichen was ich will, nämlich

Application.OnTime Time + TimeSerial(0, 0, 1), "Programmname"
Alles andere brauche ich dann eigentlich nicht.

Es drängt sich dann für mich die Frage auf, wie man eine Verzögerung von < 1 Sekunde einbauen könnte. Müsste doch auch irgendwie gehen?

Liebe Grüße
Gottfried
c0bRa
Excel-Moderator


Verfasst am:
21. Mai 2007, 16:07
Rufname: c0bRa
Wohnort: BY

AW: Fucus?? bei Button - AW: Fucus?? bei Button

Nach oben
       Version: Office 2003

Hm.

Du erwartest nun sicherlich eine Antwort. Nun gut. Nein es geht nicht. Zumindest solange der Timer drin ist. Allerdings funktionierts sofort, wenn man den Timer rauslässt, aber dadurch bleibt der Button gedrückt. Nun liegts an dir, das kleinere Übel zu wählen.

(Ich musste mir bei dem Beitrag echt auf die "Zunge" beißen) Very Happy

_________________
Ich hoffe, dass ich dir helfen konnte...
Vergiss das Feedback nicht
c0bRa            
"A programmer is just a tool which converts caffeine into code..." CA152F09AC16D043695AC070477488C9A8C9C24D20706
GZ
VBA (Excel) Anfänger


Verfasst am:
21. Mai 2007, 16:18
Rufname:
Wohnort: Oberösterreich


AW: Fucus?? bei Button - AW: Fucus?? bei Button

Nach oben
       Version: Office 2003

Danke für die Antworten und für Eure Geduld.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Per Button in eine andere Excel Datei zählen 1 Gast 101 14. Okt 2012, 15:58
Lothar_Flieger Per Button in eine andere Excel Datei zählen
Keine neuen Beiträge Excel Formeln: Button zum Drucken 7 nichtalex 583 19. Jul 2012, 23:33
nichtalex Button zum Drucken
Keine neuen Beiträge Excel Formeln: Per Button Summenbildung + Übertragung von Zellinhalten! 2 hallosurf 183 13. Okt 2011, 19:28
hallosurf Per Button Summenbildung + Übertragung von Zellinhalten!
Keine neuen Beiträge Excel Formeln: Leere Zeilen per Button ausblenden 9 Capro 876 10. Jul 2011, 14:07
Gast Leere Zeilen per Button ausblenden
Keine neuen Beiträge Excel Formeln: Button Klick anzeigen in Zelle 17 hummelMicha 809 17. Jun 2011, 11:32
kurochan Button Klick anzeigen in Zelle
Keine neuen Beiträge Excel Formeln: Button um definierte Zellen zu "bereinigen" 11 Phossi 684 10. Mai 2011, 16:18
Gast Button um definierte Zellen zu "bereinigen"
Keine neuen Beiträge Excel Formeln: mischen mit einem Button 5 REGA1985 470 23. März 2011, 09:42
Zero mischen mit einem Button
Keine neuen Beiträge Excel Formeln: Button zum Starten einer Eingabemaske 2 Der Klappspaten 2202 08. März 2010, 22:46
Der Klappspaten Button zum Starten einer Eingabemaske
Keine neuen Beiträge Excel Formeln: Nur einen bestimmten Wert um 1 erhöhen (Mit Button) 2 Tom d' Long 1713 17. Sep 2009, 15:38
Tom d' Long Nur einen bestimmten Wert um 1 erhöhen (Mit Button)
Keine neuen Beiträge Excel Formeln: Bestimmte Spalten mit Button ein und ausblenden 0 syncmaster950p 409 09. Jul 2009, 11:19
syncmaster950p Bestimmte Spalten mit Button ein und ausblenden
Keine neuen Beiträge Excel Formeln: Mehrfachselektion über Drop Down Button 2 Tobias87 2114 18. Aug 2008, 15:43
Tobias87 Mehrfachselektion über Drop Down Button
Keine neuen Beiträge Excel Formeln: Daten aus einem Listenfeld per Button anzeigen 3 Alex1 784 13. Aug 2008, 11:53
Alex1 Daten aus einem Listenfeld per Button anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln