Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Fehlermeldung bei Arbeitsblattwechel

Forumthread: Makro Fehlermeldung bei Arbeitsblattwechel

Makro Fehlermeldung bei Arbeitsblattwechel
13.01.2006 10:24:28
Marco
Hallo,
1. Wie kann ich ein Makro, das nur für ein Arbeitsblatt gelten soll beim Blattwechsel beenden lassen und bei Wechsel in das Arbeitsblatt mit Makro wieder starten? Ansonsten kommt immer eine Fehlermeldung.
2. Das Makro läuft derzeit ständig und macht das Excel Modell sehr langsam. Was muss ich eingeben, wenn das Makro nur ein paar Sekunden bei Aktivierung des Arbeitsblattes laufen soll.
Ich danke Euch sehr für Eure Unterstützung.
Marco
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Fehlermeldung bei Arbeitsblattwechel
13.01.2006 10:30:27
Josef
Hallo Marco!
Zeig mal den Code, sonst wird das nur ein Ratespiel!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Makro Fehlermeldung bei Arbeitsblattwechel
13.01.2006 10:38:08
Marco
Hallo Sepp,
Wie Du siehst handelt es sich um einen Pfeil der animiert wurde.
Der Code lautet:
Private Declare 

Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Sub Pfeilblink1()
Do
With ActiveSheet
.Shapes("AutoForm 148").Line.ForeColor.SchemeColor = 23
Sleep 900
DoEvents
.Shapes("AutoForm 148").Line.ForeColor.SchemeColor = 10
Sleep 900
DoEvents
End With
Loop
End Sub



Vielen Dank für Deine Hilfe.

Marco
Anzeige
AW: Makro Fehlermeldung bei Arbeitsblattwechel
13.01.2006 11:10:46
Josef
Hallo Marco!
Setze das ganze in das Modul der Tabelle!
' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Worksheet_Activate()
Dim dblT As Double
dblT = Timer
Do
  Shapes("AutoForm 148").Line.ForeColor.SchemeColor = 23
  Sleep 900
  DoEvents
  Shapes("AutoForm 148").Line.ForeColor.SchemeColor = 10
  Sleep 900
  DoEvents
Loop While dblT + 10 > Timer
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
Danke: Makro Fehlermeldung bei Arbeitsblattwechel
13.01.2006 12:28:27
Marco
Vielen Dank. Klappt super.
Grüße,
Marco
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige