Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Makro funktioniert nur beim 2 ausführen

Forumthread: VBA Makro funktioniert nur beim 2 ausführen

VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 10:05:23
Dennis
Hallo,
Mein Makro funktioniert nun nach langer Zeit fast einwandfrei.
Jedoch erst wenn ich das Makro zweimal hintereinander ausführe.
Beim ersten versuch Funktionieren alle Rechnungen bis auf 1.
Bei dieser Rechnung in Spalte "K" kommt dann " #DIV/0! "
Die Formel Dafür ist 

=WENN(G5= "";"";(((J5-I5)*100)/J5))

Nahe liegend ist das J5 null ist. Jedoch ist dies eigentlich nicht der Fall.
J5 wird durch diese Formel berechnet und gibt den richtigen Wert beim ersten Ausführen zurück. 
=WENN(G5= "";"";SUMMEWENN(E:I;E5;I:I)/ZÄHLENWENN(E:I;E5))

Dabei sind die Werte in Spalte E & I konstanten die nicht berechnet wurden.
Ich habe auch überlegt ob es an meinen Initial Settings liegt. Diese hab ich jedoch aus dem Internet kopiert und weiß nicht ob das die Ursache sein kann. 
screenUpdateState = Application.ScreenUpdating
statusBarState = Application.DisplayStatusBar
'calcState = Application.Calculation
eventsState = Application.EnableEvents
displayPageBreakState = ActiveSheet.DisplayPageBreaks
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
'Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
Dabei habe ich die die für Rechnungen rauskommentiert da ich dort den Fehler vermutete, jedoch ohne Wirkung.
Ich hoffe jemand kann mir weiterhelfen.
Das ist mein erstes etwas größeres Makro und daher hab ich nur Grundkenntnisse von kleineren.
Mit freundlichen Grüßen
Dennis
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 12:58:48
Rudi
Hallo,
SUMMEWENN(E:I;E5;I:I) ist doch Quatsch. Dabei wird nur E auf E5 geprüft.
Gruß
Rudi
AW: VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 13:05:14
Dennis
Ja natürlich.
In den darunter stehenden Reihen ist natürlich E6;E7 und soweiter.
Sinnmäßig funktionieren die Formeln schon so wie sie sollen.
Nur halt beim Zweiten Ausführen erst.
Dazu zu sagen ist eventuell noch;
Wenn ich mein Programm 1 mal ausgeführt habe und in die Zellen gehe wo "#DIV/0!" gehe und die Formel da drin bestätige, das es dann den Richtigen Wert ausgibt.
Grüße
Dennis
Muss ich da irgendwelche zusätzlichen Sachen aktivieren oder deaktivieren damit es das gleich macht.
Anzeige
AW: VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 13:05:15
Dennis
Ja natürlich.
In den darunter stehenden Reihen ist natürlich E6;E7 und soweiter.
Sinnmäßig funktionieren die Formeln schon so wie sie sollen.
Nur halt beim Zweiten Ausführen erst.
Dazu zu sagen ist eventuell noch;
Wenn ich mein Programm 1 mal ausgeführt habe und in die Zellen gehe wo "#DIV/0!" gehe und die Formel da drin bestätige, das es dann den Richtigen Wert ausgibt.
Grüße
Dennis
Muss ich da irgendwelche zusätzlichen Sachen aktivieren oder deaktivieren damit es das gleich macht.
Anzeige
AW: VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 13:08:17
Rudi
Hallo,
und die Formel da drin bestätige
Dann ist dein Code falsch. Das muss so funktionieren.
Gruß
Rudi
AW: VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 13:26:07
Dennis
Hallo,
Mein Code ist folgender:

With Sheets("hiddenTbl2")
.Range("I5:I10000").FormulaR1C1 = "=IF(RC[-2]= """","""",RC[-2]/RC[-3])"
.Range("J5:J10000").FormulaR1C1 = "=IF(RC[-3]= """","""",SUMIF(C[-5]:C[-1],RC[-5],C[-1]) _
/COUNTIF(C[-5]:C[-1],RC[-5]))"
.Range("K5:K10000").FormulaR1C1 = "=IF(RC[-4]= """","""",(((RC[-1]-RC[-2])*100)/RC[-1])) _
End With
Der Code wird jedenfalls nicht als "errormeldung" gemeldet.
Mit freundlichen Grüßen
Dennis
Anzeige
AW: VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 13:47:42
Rudi
evtl. hilft 
With Sheets("hiddenTbl2")
.Range("I5:K10000").NumberFormat = "General"
.Range("I5:I10000").FormulaR1C1 = "=IF(RC[-2]= """","""",RC[-2]/RC[-3])"
.Range("J5:J10000").FormulaR1C1 = "=IF(RC[-3]= """","""",SUMIF(C[-5]:C[-1],RC[-5],C[-1])/ _
COUNTIF(C[-5]:C[-1],RC[-5]))"
.Range("K5:K10000").FormulaR1C1 = "=IF(RC[-4]= """","""",(((RC[-1]-RC[-2])*100)/RC[-1]))"
End With

Anzeige
AW: VBA Makro funktioniert nur beim 2 ausführen
24.07.2018 14:05:34
Dennis
Tausend Dank.
Eigentlich so einfach aber manchmal sieht man wohl den Baum vor lauter Wald nicht.
Es hat jetzt funktioniert.
ergebensten Dank
Dennis Mattutat
;

Forumthreads zu verwandten Themen

VBA 2 Din A 5 auf Din A 4 Drucken ?
Peter

Hallo
Habe auf ein Tab 2 Din A 5 Bereiche erstellt.
Wie kann man per Vba oder Formel die Beiden Bereiche auf Din A 4 Drucken?
Mfg. Peter
01.12.2008 17:56:42
Thread-ID: 1029327
3 Beiträge
VBA 2003 Skript mit Excel2007 öffnen und ausführen
Axel

Hallo,
ich versuche gerade ein mit Excel 2003 erstelltes Makro in Excel 2007 zu öffnen. Das öffnen funktioniert aber es existiert angeblich kein Skript. Ich habe sämtliche Sicherheitseinstellungen in Excel auf ein Minimum verringert aber trotzdem komme ich nicht an das eigentliche Skript he...
16.01.2009 08:00:00
Thread-ID: 1040394
5 Beiträge
VBA 2 Zellen nach rechts
klausk

Guten Tag,
und zwei Fragen:
1. wie lautet die VBA Anweisung, um im Ablauf eines Makros um zwei Zellen nach rechts zu gehen ?
2. wie ist die exakte Schreibweise für sendkeys return ?
Leider zeichnet der Makrorekorder beide Vorgänge nicht auf.
Vielen Dank
Klaus
10.04.2009 13:09:28
Thread-ID: 1068186
3 Beiträge
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
VBA 2007 nach 2003
ing.grohn

Hallo Forum,
bei der Konvertierung von VBA 2007 nach 2003 gibts doch etliche Probleme!
Ich hab jetzt versucht, den Code aus 2007 zu exportieren und dann in eine neue 2003 Tabelle zu importieren. Problem dabei: Code der in der Tabelle hinterlegt ist, wird beim Import in das Klassen-Modul...
28.04.2010 18:28:38
Thread-ID: 1154376
11 Beiträge
VBA 2007 aus 2003
Pierre

Hallo zusammen,
ich hatte mir mal irgendwann mühselig im Excel 2003 ein Makro erarbeitet, der mir verschiedene ausgewählte Zellen aus ganz vielen Dateien, die in einem Ordner liegen, in eine Datei zusammenführt. Leider funktioniert das gleiche Makro nicht in 2007. Ich bekomme immer den Fehl...
11.07.2011 13:33:49
Thread-ID: 1221670
10 Beiträge
VBA 2003 vs. VBA 2010 Portierungsproblem
Bernd

Hallo,
berufsbedingt muß ich auf Office 2010 x64 umsteigen und fange nun an meine bisherigen in 2003 geschriebenen Projekte nach 2010 rüber zu holen. Gleich beim 1. Projekt gibt es Probleme. 2010 ist für mich absolutes Neuland. Scheinbar funktioniert hier VBA anders als in 2003.
Problem...
16.02.2012 11:13:37
Thread-ID: 1250933
3 Beiträge
VBA 2 Zeilen vor jeder Zahlenreihenänderung einfüg
WalterK

Hallo,
ich suche eine VBA-Lösung für folgendes Problem:
In Spalte C ist eine Zahlenreihe. Vor jeder Änderung in der Zahlenreihenfolge sollen 2 Zeilen eingefügt werden. Anfangen soll das Einfügen der beiden Zeilen vor der ersten Zahl. Als Beispiel habe ich in Spalte F angeführt wie es da...
25.03.2013 22:17:54
Thread-ID: 1305983
4 Beiträge
Probleme mit PasteSpecial in VBA 2010 -VBA 2003 ok
Florian

Hallo liebe Excelfreunde,
habe ein Problem mit Pastespecial in Excel 2010. Wenn die gleiche Makro in Excel 2003 aufgerufen wird läuft alles ohne Probleme durch, in 2010 kommt die Fehlermeldung "PasteSpecial Method of Range class failed" - Error type 1004.
Bei der Makro handelt es sich d...
22.05.2013 10:55:26
Thread-ID: 1314251
6 Beiträge
Anzeige
Diagramm Formatieren miot VBA 2
Sebastian

Hallo Zusammen...
ICh möchte das in dem Bild angegebene Diagramm auf der Rechten seite (Blau) genau in die Höhe der die X-Achse Betreffenden Zeilen einpassen können. Bisher habe ich das Diagramm automatisch erstellt und dann von Hand die Ausdehnung bestimmt.
Was ich erreichen möchte sin...
09.10.2013 12:20:35
Thread-ID: 1333699
5 Beiträge
Zeiten berechnen in VBA 24:00 - 00:00 = 00:00
Mathias

Hallo
ich habe ein Problem mit der Zeiten Berechnung.
Ich will Zeiten berechnen lassen die dann in Abhängigkeit der dauer uns 3 weiterer Angaben einen wert ausgeben.
Nun stellt sich das Excel etwas stur mit der Zeitberechnung wenn ich
24:00 - 00:00 rechnen will kommt da 00:00...
12.02.2015 12:41:18
Thread-ID: 1409019
5 Beiträge
Anzeige
VBA 2 einfache "?" Fragen
Ralf

Hallo und guten morgen,
ich suche auf die schnelle eine Lösung für mein kleines Excel/ VBA Problem. Ich habe festgestellt, dass ich schon mal etwas fitter mit VBA war und komme nun nicht weiter.
Aufgabenstellung:
1. Ordner im Netzlaufwerk, der jeweils wieder Unterordner enthält (1-2...
23.04.2015 11:16:45
Thread-ID: 1422674
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Makro: Lösungen für das Problem mit "#DIV/0!" und Zweitausführung

Schritt-für-Schritt-Anleitung

Wenn dein VBA Makro nicht beim ersten Ausführen funktioniert und du stattdessen beim zweiten Mal den gewünschten Wert erhältst, gehe wie folgt vor:

  1. Überprüfe die Formeln: Stelle sicher, dass die Berechnungen in den Zellen korrekt sind. In deinem Fall könnte die Formel in Spalte K, die #DIV/0! zurückgibt, ein Problem darstellen. Achte darauf, dass J5 nicht null ist.

    Die Formel könnte so aussehen:

    =WENN(G5= "";"";(((J5-I5)*100)/J5))

  2. Formeln in den Zellen bestätigen: Manchmal hilft es, die Formeln in den Zellen manuell zu bestätigen, wie Dennis festgestellt hat. Dies kann dazu führen, dass Excel die Berechnungen aktualisiert.

  3. Formate setzen: Setze das Zahlenformat für die betroffenen Bereiche:

    With Sheets("hiddenTbl2")
   .Range("I5:K10000").NumberFormat = "General"
End With

  4. Makro anpassen: Überprüfe, ob dein Makro korrekt initialisiert wird. Achte darauf, dass du die Berechnungen nicht manuell ausschaltest, wenn dies nicht notwendig ist.

Häufige Fehler und Lösungen

  • Fehler: #DIV/0! bei der ersten Ausführung
    Lösung: Überprüfe die Quelle der Berechnung in J5. Wenn diese Formel nicht den erwarteten Wert liefert, kann die Berechnung nicht durchgeführt werden.

  • Fehler: Werte werden nicht aktualisiert
    Lösung: Stelle sicher, dass du die Bildschirmaktualisierung und andere Einstellungen korrekt verwaltest. Deaktiviere Application.EnableEvents nur, wenn es nötig ist.

Alternative Methoden

Wenn du weiterhin Probleme hast, kannst du alternative Methoden in Betracht ziehen:

  • Verwendung von Excel-Funktionen: Anstatt VBA zu verwenden, kannst du die Formeln direkt in die Zellen einfügen und auf die Ergebnisse warten, bevor du das Makro ausführst.

  • Ereignisgesteuerte Prozeduren: Du könntest das Makro so anpassen, dass es bei bestimmten Ereignissen (z.B. beim Ändern von Zellen) automatisch ausgeführt wird.

Praktische Beispiele

Hier ist ein einfaches Beispiel, um den Fehler zu vermeiden:

With Sheets("hiddenTbl2")
    .Range("I5:I10000").FormulaR1C1 = "=IF(RC[-2]= """","""",RC[-2]/RC[-3])"
    .Range("J5:J10000").FormulaR1C1 = "=IF(RC[-3]= """","""",SUMIF(C[-5]:C[-1],RC[-5],C[-1])/COUNTIF(C[-5]:C[-1],RC[-5]))"
    .Range("K5:K10000").FormulaR1C1 = "=IF(RC[-4]= """","""",(((RC[-1]-RC[-2])*100)/RC[-1]))"
    .Range("I5:K10000").NumberFormat = "General" ' Setze das Zahlenformat
End With

Dieses Beispiel zeigt, wie man den Code optimieren kann, um sicherzustellen, dass die Berechnungen korrekt durchgeführt werden.

Tipps für Profis

  • Debugging: Verwende die Debugging-Funktionen in VBA, um herauszufinden, wo das Problem liegt. Setze Breakpoints und beobachte die Werte in Echtzeit.

  • Dokumentation: Halte deine Makros gut dokumentiert. Kommentiere jeden Schritt, um später leichter Fehler finden zu können.

  • Testen: Teste dein Makro in einer sicheren Umgebung, bevor du es in wichtigen Dokumenten verwendest.

FAQ: Häufige Fragen

1. Warum funktioniert mein Makro nur beim zweiten Ausführen?
Das Problem könnte daran liegen, dass Excel die Berechnungen nicht sofort aktualisiert. Überprüfe die Formeln und stelle sicher, dass alle Zellen die richtigen Werte zurückgeben.

2. Wie kann ich das #DIV/0!-Problem in Excel vermeiden?
Verwende die WENN-Funktion, um sicherzustellen, dass du nicht durch null teilst. Achte darauf, dass alle abhängigen Zellen die erwarteten Werte haben, bevor du Berechnungen durchführst.

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