Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro wird nicht ausgeführt, nur mit F8

Makro wird nicht ausgeführt, nur mit F8
18.12.2017 08:50:59
Anka
Hallo lieber Helfer,
ich brauche unbedingt Eure Hilfe: Für meine Masterarbeit habe ich jetzt ein Makro im Editor geschrieben, bei dem werden mit "Select Case" sehr viele Abfragen durchgeführt, wobei das Ergebnis dann immer ein Autofilter ist, der je nach Antwort der Abfrage unterschiedlich filtert.
Das Problem ist, dass das Makro nicht ausgeführt wird. VBA wird zwar durchgerechnet, aber danach passiert nichts. Wenn ich mit F8 durchklicke funktioniert das Makro aber....
Daher meine Frage: Woran kann das liegen und was kann ich machen?
Ich kann das Marko auch hier nicht posten, weil es viel zu groß ist, denn wenn ich das Makro in verschiedene Module aufteile, dann funktionieren diese auch. Da meine Prozedur aufgrund der Markogröße zu groß ist, habe ich im Skript mit "Call" alle Module miteinander verknüpft. Kann es vielleicht daran liegen?
Kann ich Euch vielleicht mein Makro per Mail schicken?
Ich erstelle das Tool für meine Masterarbeit und bin ich echt am verzweifeln, daher wäre ich wirklich sehr sehr dankbar, wenn Ihr mir helfen könntet!!!
Liebe Grüße,
Anka

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro wird nicht ausgeführt, nur mit F8
18.12.2017 09:55:46
yummi
Hallo Anka,
mal so als Versuch. Du sagst, wenn du mit F8 arbeitest funktioniert alles wie gewünscht. Dann weißt Du ja auch welcher Code angesprochen werden muss. Plaziere mal ein paar debug.print Zeilen in deinem Code. lass es normal laufen und stelle die selbe Anfrage wie vorher mit F8, dann siehst Du ob es ein unterschiedliches Verhalten gibt, bzw wo es ist. Vlt ist es ein Timing Problem oder du musst einfach nur den screen neu zeichnen. Versuch mal in Normalgeschwindigkeit herauszufinden, ob alle Codestellen so wie du es dir vorstellst ausgeführt werden.
Gruß
yummi
AW: Makro wird nicht ausgeführt, nur mit F8
18.12.2017 11:36:37
Anka
Hallo Yummi,
danke für Deine Antwort. Das was du meintest habe ich schon gemacht. Ich habe festgestellt, dass das Makro bis zu "Call ..." ausgeführt wird. Wahrscheinlich liegt es dann an der "Call"-Funktion.
Aber wie soll ich denn sonst mehrere Module miteinander verbinden? Meine Prozedur ist zu lang und daher habe ich in das Skript insgesamt 12 x "Call ...." reingeschrieben, da ich möchte, dass das Makro in einem Durchlauf bzw. mit einem Button ausgeführt wird. Leider tut es das nicht. Nicht einmal, wenn ich im Editor auf "Makro ausführen" klicke.
Kennst Du oder jemand eine andere Möglichkeit, wie ich viele Prozeduren in ein Makro schreiben kann?
Liebe Grüße,
Anka
Anzeige
AW: Makro wird nicht ausgeführt, nur mit F8
18.12.2017 12:17:02
yummi
Hallo Anka,
hast du denn in deiner Sub, die du mit call aufrufst auch debug anweisungen plaziert?
Es spricht nichts dagegen, prozedural zu programmieren, im Gegenteil.
Gruß
yummi
AW: Makro wird nicht ausgeführt, nur mit F8
18.12.2017 13:26:37
Anka
Hallo yummi,
Ich glaube, dass das "Nichtausführen" an der "Call"-Funktion liegt. Ich habe im Endeffekt in die erste große Prozedur "Grobfilter_1" mit "Call Grobfilter_2" die nächste Prozedur aufgerufen. Danach in "Grobfilter_2" wieder die nächste Prozedur mit "Call Grobfilter_3" und das insgesamt 12 mal. Zu Beginn jeder Prozedur habe ich dann die Variablen nochmal eingefügt, damit ich diese weiter verwenden kann. Alle 12 Prozeduren stecken in "Grobfilter_1" drin. Ist das falsch?
Ich möchte am Ende einen Button haben, wo ich auf "Starten" klicke und dann das gesamte Makro in einem ausgeführt wird. Denn das macht es im Moment nicht.
Ich poste Dir mal einen Ausschnitt, denn alle Prozeduren sind immer gleich aufgebaut:
'5.3.2.3 Gas + Größe
'5.3.2.3.1 WG + Gas + Größe + Umbau + PV
Select Case str_filtern_Wohngebäude
Case "Ja"
Select Case str_filtern_Nichtwohngebäude
Case "Nein"
Select Case str_filtern_Energieträger
Case "Ja"
Select Case str_filtern_FW
Case "Nein"
Select Case str_filtern_Gas
Case "Ja"
Select Case str_filtern_ÖlKohle
Case "Nein"
Select Case str_filtern_Strom
Case "Nein"
Select Case str_filtern_Wärmebedarf
Case "Nein"
Select Case str_filtern_Gebäudenutzung
Case "Nein"
Select Case str_filtern_Gebäudegröße
Case "Ja"
'*Gebäudegröße >
If lng_Gebäudegröße_größer  "" Then
Select Case str_filtern_Gebäudeumbau
Case "Ja"
'* Gebäudeumbau >
If lng_Gebäudeumbau_größer  "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:=">=" & lng_Gebäudegrö _
ße_größer, Operator:=xlAnd
rng_Tabellenbereich.AutoFilter , Field:=9, Criteria1:=">=" & lng_Gebä _
udeumbau_größer, Operator:=xlAnd
rng_Tabellenbereich.Copy
ActiveSheet.Paste Destination:=wsZiel.Range("A1")
End Select
End If
'* Gebäudeumbau  "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:=">=" & lng_Gebäudegrö _
ße_größer, Operator:=xlAnd
rng_Tabellenbereich.AutoFilter , Field:=9, Criteria1:=" "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:=">=" & lng_Gebäudegrö _
ße_größer, Operator:=xlAnd
rng_Tabellenbereich.AutoFilter , Field:=9, Criteria1:=lng_Gebä _
udeumbau_gleich, Operator:=xlAnd
rng_Tabellenbereich.Copy
ActiveSheet.Paste Destination:=wsZiel.Range("A1")
End Select
End If
End Select
End If
'*Gebäudegröße  "" Then
Select Case str_filtern_Gebäudeumbau
Case "Ja"
'* Gebäudeumbau >
If lng_Gebäudeumbau_größer  "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:="=" & lng_Gebä _
udeumbau_größer, Operator:=xlAnd
rng_Tabellenbereich.Copy
ActiveSheet.Paste Destination:=wsZiel.Range("A1")
End Select
End If
'* Gebäudeumbau  "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:=" "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:=" "" Then
Select Case str_filtern_Gebäudeumbau
Case "Ja"
'* Gebäudeumbau >
If lng_Gebäudeumbau_größer  "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:=lng_Gebäudegröß _
e_gleich, Operator:=xlAnd
rng_Tabellenbereich.AutoFilter , Field:=9, Criteria1:=">=" & lng_Gebä _
udeumbau_größer, Operator:=xlAnd
rng_Tabellenbereich.Copy
ActiveSheet.Paste Destination:=wsZiel.Range("A1")
End Select
End If
'* Gebäudeumbau  "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:=lng_Gebäudegröß _
e_gleich, Operator:=xlAnd
rng_Tabellenbereich.AutoFilter , Field:=9, Criteria1:=" "" Then
Select Case str_filtern_PV
Case "Ja"
rng_Tabellenbereich.AutoFilter , Field:=7, Criteria1:=Array( _
"Wochenendhaus", "Wohnhaus", "Wohnheim"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=16, Criteria1:=Array("GAS_ND", " _
GAS_MD", "GAS_HD"), Operator:=xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=17, Criteria1:="", Operator:= _
xlFilterValues
rng_Tabellenbereich.AutoFilter , Field:=23, Criteria1:=lng_Gebäudegröß _
e_gleich, Operator:=xlAnd
rng_Tabellenbereich.AutoFilter , Field:=9, Criteria1:=lng_Gebä _
udeumbau_gleich, Operator:=xlAnd
rng_Tabellenbereich.Copy
ActiveSheet.Paste Destination:=wsZiel.Range("A1")
End Select
End If
End Select
End If
End Select
End Select
End Select
End Select
End Select
End Select
End Select
End Select
End Select
End Select
Call Grobabfrage_8
End Sub
Sub Grobabfrage_8()
' Gesamte Filterabfrage
Application.ScreenUpdating = False              'Rechenschritte werden nicht angezeigt
'----------------------------------------------------------------------------------------------- _
' Definition der Quell-, Zieldatei und des Tabellenbereichs:

Das ist jetzt nur ein Ausschnitt aus meiner Filtern, die ich mit dem AutoFilter mache.
Ist die Cal-Funktion falsch so? Oder was könnte das Problem sein.
Liebe Grüße,
Anka
Anzeige
AW: Makro wird nicht ausgeführt, nur mit F8
18.12.2017 14:48:21
yummi
Hallo Anka,
ohne tiefer in deinen code einsteigen zu wollen, sieht deien Strucktur gro so aus:?
Filter1
irgendetwas
Filter2
ende
Filter2
irgendetwas
Filter3
ende
usw.
Das gleiche erreichst du so:
StarteFilter
Function StarteFilter
Filter1
Filter2
Filter3
End Function


Function Filter1
irgendwas
End Function

aber nichts desto trotz, kommentier mal den 2. Filteraufruf aus deiem Grobfilter1 raus und schau, ob es bis dahin geht. dann nimmst du den 2. Filteraufruf wieder rein und kommentierst den 3. Filteraufruf in Filter 2 aus und schaust was passiert.
aber ich glaube wen ndu die mappe hier postest, das sich dann bestimmt jemand fidnet, der da einen unkomplizierteren aufbau findet.
Gruß
yummi
Anzeige
AW: Makro wird nicht ausgeführt, nur mit F8
18.12.2017 15:18:15
Anka
Hallo yummi,
danke für Deine schnelle Antwort. Wie kann ich eine so große Datei hierein posten?
Gruß, Anka
AW: Makro wird nicht ausgeführt, nur mit F8
18.12.2017 16:21:49
yummi
Hallo Anka,
du musst sie annonymisieren, also es muss nicht 100000 zeilen pro Sheet haben, nur so dass man erkennen kann was du vorhast.
Gruß
yummi

318 Forumthreads zu ähnlichen Themen

Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Formel in Makro umwandeln?
Josef_T

Guten Abend zusammen.
Habe mal wieder ein Problem, dass ich alleine nicht gelöst bekomme.
Es geht darum, einen Ausdruck zu machen wobei nur Zeilen gedruckt werden sollen, die in C einen Wert haben, der grösser Null ist.
Habe mal ein Muster hochgeladen, weil meine Fragen und Erklärun...
29.11.2008 19:08:00
Thread-ID: 1028896
6 Beiträge
Formel einfügen wenn in A:A Werte stehen
Micha

Hallo zusammen,
ich bastle mal wieder an meinen Münzdateien und komme nicht so richtig weiter.
Mein Problem:
In Spalte A stehen Werte (z.B. 5 Pf), diese möchte ich nun trennen [in B2 soll per VBA die Funktion =Links(A2;1) / FormulaR1C1 = "=LEFT(RC[-53],1) ].
Diese Formel sollte...
14.01.2009 21:28:00
Thread-ID: 1039822
13 Beiträge
Formel wird nicht ausgeführt
Andy

Hallo Leute,
Guten Abend. Ich habe ein ganz großes Problem.
Ich habe eine Exceldatei mit vielen Datensätzen (ca. 8000). In Spalte C habe ich eine Formel, die auf Spalte A und B Bezug nimmt und aus einer Matrix den entsprechenden Wert sucht. Das ganze hat bis jetzt super funktioniert. W...
19.02.2009 16:47:00
Thread-ID: 1052226
8 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Kann Formel nicht in Makro umwandeln. mit bsp xls
Julia


Gestern habe ich hier tolle Hilfe zu einer Berechnung bekommen. Dank der Tipps hab ich die Formeln bekommen
Jetzt hat sich die Ausgangstabelle geändert. Ich hab zwar die Formeln bekomme das aber nicht als Makro hin.
Habe eine Bsp.xls hochgeladen:
https://www.herber.de/bbs/user/...
13.03.2009 11:11:25
Thread-ID: 1059789
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
8
12
2
5
12
7
14
3
3
2
15
5
4
2
2
2
10
4
6
1
4
1
17