Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
"an- und ausschalten" dieses Codeschnipsels
zurück: Leere Zellen ermitteln weiter: Vergleich zweier Tabellen einer Exceldatei Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
nobody123
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Aug 2012, 14:57
Rufname:

"an- und ausschalten" dieses Codeschnipsels - "an- und ausschalten" dieses Codeschnipsels

Nach oben
       Version: Office 2003

Hallo Forum,

mir wurde hier in der Vergangenheit bereits sehr geholfen. Jetzt bräuchte ich noch einmal eure Hilfe.

Und zwar habe ich eine Liste mit Einträgen mit einem Autofilter versehen. Dieser filtert nach "1" und versteckt mir alle Einträge welche die "0" besitzen. Das ganze macht er automatisch (aktualisiert sich selbst).
Dies macht er hiermit:

Code:
Private Sub Worksheet_Calculate()
  On Error GoTo Ende
  Application.EnableEvents = False
  Me.Cells.AutoFilter Field:=1, Criteria1:="1"
Ende:
  Application.EnableEvents = True
End Sub


Mein Problem ist jetzt allerdings, dass ich in die Liste hin und wieder neue Zeilen einfügen muss. Wenn ich meinem Autofilter allerdings "show all" angebe, tut er dies natürlich nicht. Deswegen suche ich nach einer Möglichkeit (z.B. per Klick auf einen Button) diesen "Automatismus" an- bzw. auszuschalten ohne jedes Mal das Codeschnipsel im VBA Editor zu löschen und wieder neu einzutragen.

Könnt ihr mir dabei helfen? Smile

Mit Grüßen
bst
Programmierer


Verfasst am:
28. Aug 2012, 15:32
Rufname: Bernd
Wohnort: Ilsfeld


AW: "an- und ausschalten" dieses Codeschnipsels - AW: "an- und ausschalten" dieses Codeschnipsels

Nach oben
       Version: Office 2003

Hi,

nimm eine globale Boolean-Variable.

Code:
If bolTuHierNix Then Exit Sub


oder, anders herum:

Code:
If Not bolTuHierWas Then Exit Sub


cu, Bernd
plm
wir haben Kekse


Verfasst am:
28. Aug 2012, 15:39
Rufname: plm

AW: "an- und ausschalten" dieses Codeschnipsels - AW: "an- und ausschalten" dieses Codeschnipsels

Nach oben
       Version: Office 2003

Hi,

Das Makro löst immer beim berechnen aus also schalt doch einfach für diesen speziellen Fall die Berechnung ab. (Extras - Eigenschaften - Berechnung - und hier dann manuelle Berechnung auswählen)

Alternativ via Makro kannst du dir eine Globale Variable als Boolean anlegen, die über 2 Makros an und ausgeschaltet wird und das dann in dein Makro verarbeiten:

Ins Modul:
Code:
Option Explicit

Global Anhalten As Boolean

Sub Anhalten()
    Anhalten = True
End Sub

Sub Fortfahren()
    Anhalten = False
End Sub


und in dein Code eine Zeile dazu (If Anhalten Then Exit Sub)
Code:
Private Sub Worksheet_Calculate()
  If Anhalten Then Exit Sub
  On Error GoTo Ende
  Application.EnableEvents = False
  Me.Cells.AutoFilter Field:=1, Criteria1:="1"
Ende:
  Application.EnableEvents = True
End Sub


Aber wie gesagt das ist mit Tauben auf Spatzen schießen (oder so ähnlich) Wink

mfg plm

_________________
Komm auf die dunkle Seite der Macht, wir haben Kekse...
nobody123
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Aug 2012, 15:41
Rufname:

AW: "an- und ausschalten" dieses Codeschnipsels - AW: "an- und ausschalten" dieses Codeschnipsels

Nach oben
       Version: Office 2003

Hallo bst,
danke für deine Antwort. Ich muss mich leider als VBA Frischling outen. Daher weis ich nicht wo und wie ich deine Code Zeile einbauen muss.
Ich hab sie einfach ans Ende des von mir geposteten Codeschnipsels gehängt - damit tut sich allerdings nichts..

Gruß
bst
Programmierer


Verfasst am:
28. Aug 2012, 15:46
Rufname: Bernd
Wohnort: Ilsfeld

AW: "an- und ausschalten" dieses Codeschnipsels - AW: "an- und ausschalten" dieses Codeschnipsels

Nach oben
       Version: Office 2003

Hi,

die gehört ganz an den Anfang der Sub noch vor den On Error. Lies mal den Beitrag von plm?

cu, Bernd
slowboarder
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Aug 2012, 15:48
Rufname:

AW: "an- und ausschalten" dieses Codeschnipsels - AW: "an- und ausschalten" dieses Codeschnipsels

Nach oben
       Version: Office 2003

Hi
die einfachste Methode, derartige Event-Makros auszuschalten, ist in den Entwurfsmodus zu wechseln.

den Button hierfür findest du in Excel 2003 in den Symbolleisten "Visual Basic" und "Steuerelemente", es ist er Button mit Lineal, Dreieck und Stift.

nach erneutem Klick auf den Button laufen die Makros wieder.

ab Excel 2007 sitzt der Button fett und zentral im Menü "Entwicklertools"
Gruß Daniel
nobody123
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Aug 2012, 16:04
Rufname:

AW: "an- und ausschalten" dieses Codeschnipsels - AW: "an- und ausschalten" dieses Codeschnipsels

Nach oben
       Version: Office 2003

Danke an alle für eure Hilfe.
Für mein Vorhaben werde ich somit kein Makro verwenden - ich wusste schlicht nicht dass sowas "so einfach" machbar ist.
Danke Smile
plm
wir haben Kekse


Verfasst am:
28. Aug 2012, 16:36
Rufname: plm


AW: "an- und ausschalten" dieses Codeschnipsels - AW: "an- und ausschalten" dieses Codeschnipsels

Nach oben
       Version: Office 2003

mach dir nix daraus,
das mit den Entwurfsmodus war mir auch neu Wink

mfg plm

_________________
Komm auf die dunkle Seite der Macht, wir haben Kekse...
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 VBA (Makros): Screen Update ausschalten 4 mkoni 44758 16. Apr 2014, 12:57
RalphMeyer Screen Update ausschalten
Keine neuen Beiträge Excel Formate: Scrollen mit Pfeiltasten ausschalten 42 Baumi_II 106380 03. Apr 2014, 14:04
jaenmaen Scrollen mit Pfeiltasten ausschalten
Keine neuen Beiträge Excel Formate: Zeilenumbruch in der Spalte ausschalten - wie? 3 MBMBMB 88 10. Jul 2013, 10:43
shift-del Zeilenumbruch in der Spalte ausschalten - wie?
Keine neuen Beiträge Excel Formeln: Ausschalten alternative Formelberechnung in Exel 2007 1 angelika_wimmer 1821 22. Feb 2010, 13:08
neopa Ausschalten alternative Formelberechnung in Exel 2007
Keine neuen Beiträge Excel Formate: excel leisten ausschalten 1 vormi 610 09. Okt 2009, 16:58
< Peter > excel leisten ausschalten
Keine neuen Beiträge Excel VBA (Makros): Sub Funktion ausschalten 12 RKausG 1316 23. Apr 2009, 10:39
RKausG Sub Funktion ausschalten
Keine neuen Beiträge Excel Formate: 1900 Datumssystem ausschalten? 8 Talia 1124 14. Jan 2009, 14:40
Klaus-Dieter 1900 Datumssystem ausschalten?
Keine neuen Beiträge Excel Formate: Datum automatisch erkennen ausschalten??? 3 geLLi 6899 23. Okt 2008, 21:01
Eddy2 Datum automatisch erkennen ausschalten???
Keine neuen Beiträge Excel VBA (Makros): Fehler-Anzeige ausschalten 4 kyrann 2117 25. Aug 2008, 12:50
kyrann Fehler-Anzeige ausschalten
Keine neuen Beiträge Excel Formeln: Autoberechung ausschalten 3 messiah_net 311 25. Jul 2008, 14:29
< Peter > Autoberechung ausschalten
Keine neuen Beiträge Excel VBA (Makros): Makrofunktionalität ein/ausschalten...per Makro 2 Nina1976 291 10. Jun 2008, 15:46
Nina1976 Makrofunktionalität ein/ausschalten...per Makro
Keine neuen Beiträge Excel VBA (Makros): Aktualisierung während Makro ausschalten 2 ExcelTüftler 2013 24. Apr 2008, 10:40
ExcelTüftler Aktualisierung während Makro ausschalten
 

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