Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro stoppen wenn wert in Zelle F4 =< -1000

Forumthread: Makro stoppen wenn wert in Zelle F4 =< -1000

Makro stoppen wenn wert in Zelle F4 =< -1000
Nibio
Hallo Profis,
ich habe ein Makro aufgenommen (bin leider kein Profi wie euch) welche 100 mal
ein Zahl in eine bestimmte celle einfügt und berechnet, funktioniert auch gut.
Ich möchte aber, das der Makro STOPT sobald in celle F4 ein wert von -1000 oder weniger erreicht wird. Bei -999 soll er nicht stoppen bei -1000 oder -1010 oder weniger muss das Makro stoppen.
Wäre das möglich?
Gruß
Nibio
Anzeige
AW: Makro stoppen wenn wert in Zelle F4 =< -1000
16.06.2011 10:55:44
pastinake
... dann muss in die Schleife noch eine Abfrage rein
Sub DeinMakro()
For ......
If Sheets("TabellenName").Range("F4").Value 
Gruß
Bernd
AW: Makro stoppen wenn wert in Zelle F4 =< -1000
16.06.2011 14:32:33
Nibio
Hallo Bernd,
herzlichen Dank, muss ich das vor "end Sub" einfügen? Was is mit "Next", was bedeutet Next?
Gruß
Nibio
Anzeige
AW: Makro stoppen wenn wert in Zelle F4 =< -1000
16.06.2011 16:00:27
Nibio
Ok vielen Dank an allen, die Lösung von Bernd funktioniert spitze.
Gruß
Nibio
AW: Makro stoppen wenn wert in Zelle F4 =< -1000
16.06.2011 10:57:54
Matthias
Hallo
Vielleicht mal zum Verständnis so:
Dim X&
For X = 1 To -20000 Step -50
If X 
Wenn Du den Code zeigen würdest, kann man das auch an der entsprechenden Stelle einplegen.
Userbild
Anzeige
kl. Korrektur: wg. -999 (If X <= -1001 Then ... )
16.06.2011 11:43:55
Matthias
Hallo
Dim X&
For X = 1 To -20000 Step -1
If X 

Userbild
AW: kl. Korrektur: wg. -999 (If X <= -1001 Then ... )
16.06.2011 14:42:06
Nibio
Hallo Matthias,
danke, aber ich weiss nicht wie ich das einbauen soll, den Code (Makro) habe ich gepostet.
Gruss
Nibio
Anzeige
AW: kl. Korrektur: wg. -999 (If X <= -1001 Then ... )
16.06.2011 16:01:36
Nibio
Ok vielen Dank, hat sich erledigt, die Lösung von Bernd funktioniert ohne Probleme.
Danke an euch allen.
Gruß
Nibio
AW: Makro stoppen wenn wert in Zelle F4 =< -1000
16.06.2011 14:39:37
Nibio
Hallo Matthias,
danke sehr. Hier ist das Makro (wie gesagt, aufgenommen):
Sub Macro2()
' Macro2 Macro
Range("AA9").Select
Selection.End(xlDown).Select
Selection.Copy
Range("AA4:AA5").Select
ActiveSheet.Paste
Range("AA9").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Run "'" & ActiveWorkbook.Name & "'!InserisciNumeroManuale"
Range("AA9").Select
Selection.End(xlDown).Select
Selection.Copy
Range("AA4:AA5").Select
ActiveSheet.Paste
Range("AA9").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.ClearContents
Application.Run "'" & ActiveWorkbook.Name & "'!InserisciNumeroManuale"
.... usw.. 100 mal
End Sub

Gruß
Nibio
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Makro in Excel stoppen, wenn Wert in Zelle F4 <= -1000


Schritt-für-Schritt-Anleitung

Um ein Excel VBA Makro so zu programmieren, dass es stoppt, wenn der Wert in Zelle F4 kleiner oder gleich -1000 ist, kannst du folgende Schritte befolgen:

  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel, indem du ALT + F11 drückst.
  2. Füge ein neues Modul hinzu, indem du im Menü auf Einfügen und dann auf Modul klickst.
  3. Kopiere den folgenden Beispielcode in das Modul:
Sub DeinMakro()
    Dim i As Integer
    For i = 1 To 100
        ' Hier deine Berechnung oder Aktion einfügen
        ' Beispiel: Range("A1").Value = i

        ' Überprüfe den Wert in Zelle F4
        If Sheets("DeinTabellenName").Range("F4").Value <= -1000 Then
            MsgBox "Makro wird gestoppt, da F4 <= -1000"
            Exit Sub
        End If
    Next i
End Sub
  1. Ersetze "DeinTabellenName" durch den Namen des Arbeitsblatts, das du verwendest.
  2. Schließe den VBA-Editor und führe das Makro aus.

Häufige Fehler und Lösungen

  • Fehler: F4 in Excel funktioniert nicht
    Stelle sicher, dass du den richtigen Zellbezug verwendest. Überprüfe auch, ob die Zelle F4 wirklich Werte enthält, die die Bedingung auslösen könnten.

  • Fehler: Das Makro stoppt nicht wie gewünscht
    Überprüfe die Logik in deiner Schleife. Achte darauf, dass die Bedingung korrekt formuliert ist, z.B. <= -1000.


Alternative Methoden

Falls du keine VBA-Kenntnisse hast oder eine einfachere Lösung suchst, kannst du auch die WENN-Funktion in Excel verwenden:

  1. Verwende in einer anderen Zelle folgende Formel:
    =WENN(F4 <= -1000; "Stop"; "Continue")
  2. Diese Formel zeigt "Stop" an, wenn der Wert in F4 kleiner oder gleich -1000 ist. Du kannst dies als Bedingung für deine Berechnungen nutzen.

Praktische Beispiele

Hier ist ein einfaches Beispiel, um das Verständnis zu fördern:

Sub BeispielMakro()
    Dim i As Integer
    For i = 1 To 100
        Range("A1").Value = i
        If Sheets("Tabelle1").Range("F4").Value <= -1000 Then
            Exit Sub
        End If
    Next i
End Sub

In diesem Beispiel wird der Wert von A1 von 1 bis 100 erhöht, bis der Wert in F4 -1000 oder weniger erreicht.


Tipps für Profis

  • Nutze die DoEvents-Funktion, um die Benutzeroberfläche während der Ausführung des Makros reaktionsfähig zu halten.
  • Überprüfe regelmäßig, ob du mit den aktuellen Excel-Versionen arbeitest, da sich Funktionen und Befehle ändern können.

FAQ: Häufige Fragen

1. Warum funktioniert mein Makro nicht, wenn ich es mit F4 in Excel teste?
Überprüfe deinen Code und stelle sicher, dass die Bedingungen korrekt festgelegt sind. Achte auch auf die korrekten Zellreferenzen.

2. Wie kann ich das Makro abbrechen, wenn eine andere Bedingung erfüllt ist?
Füge einfach eine weitere If-Anweisung in deinem Makro hinzu, um diese Bedingung zu überprüfen.

Beliebteste Forumthreads (12 Monate)

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