Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1216to1220
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
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro abbrechen, wenn ....

Makro abbrechen, wenn ....
WalterK
Hallo,
Ich möchten in meinen Code einen Abbruch einbauen, wenn neben der aktiven noch andere Excel-Dateien offen sind.
Es soll dann der Hinweis kommen, dass "Der Code abgebrochen wird und zuerst die anderen Excel-Dateien beendet werden sollen!".
Danke für Eure Hilfe und
Servus, Walter

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro abbrechen, wenn ....
05.06.2011 17:58:16
Hajo_Zi
Hallo Walter,
Option Explicit
Sub Test()
If Workbooks.Count > 1 Then
MsgBox "Makro Ende"
End If
End Sub

AW: Makro abbrechen, wenn ....
05.06.2011 19:48:33
WalterK
Hallo Hajo,
habe Deinen Code jetzt in meinen Beispielcode eingebaut, es kommt auch eine MsgBox, nach dem Klick auf OK läuft der Code aber weiter.
Er sollte aber beendet werden, damit zuerst die anderen Dateien geschlossen werden können.
Danke und Servus, Walter
Und dieses Mal mit dem Code ...
05.06.2011 19:50:12
WalterK
Hallo Hajo,
habe Deinen Code jetzt in meinen Beispielcode eingebaut, es kommt auch eine MsgBox, nach dem Klick auf OK läuft der Code aber weiter.
Er sollte aber beendet werden, damit zuerst die anderen Dateien geschlossen werden können.
Hier das Beispiel: 
Sub Makro1()
If Workbooks.Count > 1 Then
MsgBox "Makro Ende"
End If
Range("C4").Select
ActiveCell.FormulaR1C1 = "1"
Range("E12").Select
ActiveCell.FormulaR1C1 = "i"
Range("C4:E12").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("A1").Select
End Sub
Danke und Servus, Walter
Anzeige
Exit Sub nach MsgBox owT
05.06.2011 19:52:27
Rudi
AW: Und dieses Mal mit dem Code ...
05.06.2011 19:53:12
Hajo_Zi
Hallo Walter,
vor End If ein Else und danach Deinen Code.
Auf Select usw. kann in VBA zu 99,9% verzichtet werden.
Gruß Hajo
Komische Sache ...
05.06.2011 20:12:41
WalterK
Hallo zusammen,
mein Code sieht jetzt so aus:
Sub Makro1()
If Workbooks.Count > 1 Then
MsgBox "Makro Ende"
Exit Sub
End If
Range("C4").Select
ActiveCell.FormulaR1C1 = "1"
Range("E12").Select
ActiveCell.FormulaR1C1 = "i"
Range("C4:E12").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("A1").Select
End Sub
Allerdings bricht er auch ab, wenn ich nur diese eine Datei offen habe.
Danke und Servus, Walter
Anzeige
AW: Komische Sache ...
05.06.2011 20:15:37
Hajo_Zi
Hallo Walter,
hast Du vielleicht noch eine persönliche Arbeitsmappe?
Gruß Hajo
AW: Komische Sache ...
05.06.2011 20:25:03
WalterK
Hallo Hajo,
ja, genau so ist es.
Ich dachte dann, durch die Änderung von > 1 auf > 2 wäre das Problem gelöst, aber jetzt können 5 Dateien offen sein und trotzdem bricht der Code nicht ab.
Danke und Servus, Walter
AW: Komische Sache ...
05.06.2011 20:34:52
Hajo_Zi
Hallo Walter,
das kann ich nicht nachvollziehen. 
Option Explicit
Sub Test()
If Workbooks.Count = 2 Then
MsgBox "nur eine Datei"
Else
MsgBox "Mehr als eine"
End If
End Sub
Gruß Hajo
Anzeige
AW: Komische Sache ...
05.06.2011 20:49:21
WalterK
Hallo Hajo,
obwohl 6 Arbeitsmappen offen sind kommt mit dem Makro Test der Hinweis, dass "nur eine Datei" offen ist.
Ich bedanke mich für die bisherige Hilfe, möchte die Sache aber hier beenden. Es sollte auch nur eine kleine Ergänzung zu einem auch so funktionierenden Projekt sein.
Danke und Servus, Walter

88 Forumthreads zu ähnlichen Themen

Makro abbrechen, wenn ... NEU
WalterK

Hallo,
ich hatte mein Vorhaben eigentlich schon aufgegeben (hier mein 1. Versuch https://www.herber.de/forum/archiv/1216to1220/t1217358.htm), habe dann aber doch weiter gegoogelt und habe die Lösung schon fast erreicht.
Ich möchte erreichen, dass der Beispielcode "Sortieren" mit einer M...
06.06.2011 22:55:44
Thread-ID: 1217478
5 Beiträge
Anzeige
VBA Makro abbrechen, Excel automatisch schließen
Jan

Hallo zusammen,
folgende Situation:
Der Benutzer gibt Daten in der Vorlage.xlsm ein und startet daraus ein Makro. Nun greift das Makro mit sverweis auf eine Quelldatei (Excel) zu (Datei wirdgeöffnet, Daten werden per sverweis zugeordnet, Formeln durch Werte ersetzt und die Datei wieder...
07.12.2013 01:23:18
Thread-ID: 1341648
3 Beiträge
Makro abbrechen wenn....
Spenski

huhu ich mal wieder
wie muss ich das schreiben das wenn Private Sub CommandButton1_Click() Select Case -1 * OptionButton1.Value & -1 * OptionButton2.Value & -1 * OptionButton9.Value Case "000" MsgBox "Bitte Schicht wählen" End Select zutrifft (also die meldung kommt) der rest des m...
31.03.2014 21:21:19
Thread-ID: 1355596
13 Beiträge
Anzeige
Zählenwenn direkt?,- Leitfaden Makrorekorder->VBA
urs

Guten Abend
ich habe heute versucht dieses Zählenwenn mit Direktadressierung zum Laufenzu bringen. Doch ohne Erfolg. Stelle mir vor, dass ein Freak den Fehler sofort erkennt.

Range("L2").Select
ActiveCell.FormulaR1C1 = "=IF(A2grösser0,COUNTIF($K$2:K2,K2),"""")"

Eine Fr...
05.10.2014 22:04:46
Thread-ID: 1384958
3 Beiträge
VBA Excel Makro WENN Funktion mit ChrW 10004
braun

Guten Abend,
und zwar habe ich eine Excel Mappe mit zwei verschiedenen Tabellenreitern.
In dem ersten Tabellenreiter ist ein Makro abgelegt, dass mir bei nacheinanderfolgendem Klicken einer Zelle (A3) einen Haken (ChrW Unicode), Kreuz (auch über Unicode) oder NA anzeigt.
Das klappt...
28.01.2015 19:04:39
Thread-ID: 1405856
14 Beiträge
VBA Makro (Mit Copy Befehl)
chris

Hallo Leute!
Ich habe folgendes Problem. Ich lasse via Makro/VBA eine txt Datei formatiert einlesen und möchte jetzt gerne die Eingabe so umformatieren das die Anordnung sich verändert und ggf. Dinge wegfallen. Das ist ja erstmal nicht schwer via Makro. Mein Problem ist, dass ich nicht weiß...
13.02.2015 10:56:22
Thread-ID: 1409264
4 Beiträge
Makro abbrechen, wenn Dateiname...
Xico
Hallo Forumsteilnehmer,

lautet der Dateiname "Vorlage Testabteilung.xls", so soll mein Makro dann abgebrochen werden, wenn das Wort "Vorlage" noch als Dateiname besteht (d.h. wenn die Datei "Testabteilung JUN03.xls" heisst, soll Makro ausgeführt werden).

Folgendes funktioniert nich...
11.12.2003 14:58:07
Thread-ID: 350816
3 Beiträge
vba code mit IF geht aber führt befehl nicht aus
dirk

hallo excelperten
könntet ihr mal schauen warum
bei eingaben von wörtern in mein Textfeld die Zelle in die der Text übertragen
wird nicht zum Wert (0) wird?

der code steht in der datei!

https://www.herber.de/bbs/user/2536.xls

danke eucht
heute schwitze ich s...
18.12.2003 22:11:04
Thread-ID: 354199
12 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
4
4
2
12
5
2
13
3
2
11
2
5
2
20
4
12
4
2
12
5
2
13
3
2
11