---

Hallo Leute!

ich hab eine Frage zu nem Excel-Makro das ich erstellt habe:
Kurz zum Ablauf:
Die Excel-Datei wird aus EPLAN generiert und dann durch das Makro bearbeitet. Das Makro soll automatisch starten, sobald eine Excel-Datei aus EPLAN erzeugt wird (wird über Dateiname erkannt). Das passt alles auch soweit. Den code zum Autostart habe ich in "Diese Arbeitsmappe" geschrieben:

Code
_________________________________________________________________
Private Sub Workbook_Open()

Call text_zusammenbauen
End If

End Sub
_________________________________________________________________

Ich dachte, man kann den automatischen Start durch drücken der Umschalt-Taste aufhalten, geht aber hier nicht. Das Makro läuft also beim Start los, und wenn ich mir die Datei davor z.B. anschauen will geht das nicht  Die anderen Möglichkeiten wie Esc drücken oder Strg + Pause kenn ich auch, aber hätte gerne ne Möglichkeit, wo das Excel-Blatt einfach offen bleibt(keine fehlermeldung oder Sprung in Entwicklungsumgebung).
Kann mir dabei jemand helfen? Hab im Netz irgendwie nichts brauchbares gefunden.
Danke!!
Grüße Georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Georg,

dann mach doch eine Abfrage.

Code:

---

Code:
Option Explicit

Private Sub Workbook_Open()

   if ShiftKeyPressed = false then
      Call text_zusammenbauen
   else
      msgbox "Die Shift-Taste wurde gedrückt. Die Makroverarbeitung wird nicht ausgeführt!"
   endif
   
End Sub

Private Declare Function GetAsyncKeyState Lib _
    "user32" (ByVal vKey As Long) As Integer

Public Function ShiftKeyPressed() as Boolean
   If GetAsyncKeyState(&H10) then
      return True
   else
      return False
   endif
End Function

---

Geht natürlich auch einfacher... ;)

Code:

---

Code:
Option Explicit

Private Sub Workbook_Open()

  If GetAsyncKeyState(&H10) then
      msgbox "Die Shift-Taste wurde gedrückt. Die Makroverarbeitung wird nicht ausgeführt!"
  else
      Call text_zusammenbauen
  endif
   
End Sub

Private Declare Function GetAsyncKeyState Lib _
    "user32" (ByVal vKey As Long) As Integer

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

[Diese Nachricht wurde von RSchulz am 15. Aug. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke funktioniert super!
Allerdings hab ich herausgefunden, dass das Sub ganz zum Schluss stehen muss, sonst meckert er.

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von kikiriki:
Danke funktioniert super!
Allerdings hab ich herausgefunden, dass das Sub ganz zum Schluss stehen muss, sonst meckert er.

Grüße

---

Jop stimmt die Deklaration muss oben stehen. Sry hab es nur eben getippt ohne zu prüfen und hatte selber kein Beispiel direkt zur Hand.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP