Excel VBA, Exit Sub?

Hallo, wenn ich eine Prozedur (Sub Beispiel()) in excel verlasse, bzw. wenn diese beendet wird, würde ich gerne dieses Signal abfangen und die Datei per Application.Quit beenden. Wie realisiere ich das?

1 Antwort

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

24.08.2023, 15:00

"Exit Sub" verursacht KEIN eigenes Event.

Du musst also ein "UserEvent" erstellen, dass immer dann ausgelöst wird wenn eine Sub zu Ende ist.
In diesem UserEvent, welches dann läuft, alles programmieren, was gewünscht ist.
===
Wenn ich "den Grund" wüsste warum die Datei (Nur das aktuelle Workbook? oder Excel komplett ) geschlossen werden soll, gäbe es sicher bessere Lösungen.

TygaX

Fragesteller

24.08.2023, 20:01

Habe einen Benutzermodus und Entwicklermodus entwickelt, Problem ist, dass man mit ESC den Benutzermodus beenden kann. Und ich will nicht, dass jemand auf die anderen Tabellenblätter kommt und den Entwicklermodus aufrufen kann.

IchMalWiederXY

28.08.2023, 12:10

@TygaX

"mit ESC den Benutzermodus beenden"
Jeder Tastendruck, der ein Event auslöst, mit ESC ggf schließen der UserForm, kann "abgefangen" werden und entsprechend gegen gesteuert werden.

Ähnliche Fragen

Excel VBA Druckvorschau?

Hallo, wie kann ich eine benutzerdefinierte Seite (Tabellenblatt) über einen Button in der Userform in der Druckvorschau anzeigen lassen?

Einen Weg habe ich bereits gefunden, Problem ist nur, dass die Userform selbst auf der Druckvorschau erscheint und ich die Maske (Userform) nicht beenden kann.

Der weg ist folgender:

Private Sub btndruckvorschau_Click()

Worksheets("Beispiel").PrintPreview

End sub

...zur Frage

Wie erstelle ich Excel Dropdown-Liste, wo ich mehrere Felder auswählen kann?

Hi, ich möchte eine Dropdown-Liste in Excel erstellen, wo man aus einer Auswahlliste mehrere Möglichkeiten auswählen kann.

Folgendes Beispielszenario:

Gegeben ist eine Liste zur Verwaltung von Mitarbeitern an verschiedenen Projekten.

In einer Spalte der Excel Tabelle sind die Projekte aufgezählt. In der zweiten Spalte möchte ich die Dropdown-Liste haben, wo man alle Mitarbeiter, die an diesem Projekt arbeiten, auswählen kann.

Es gibt eine zweite Liste in einem extra Blatt in dem Dokument mit allen einzelnen Mitarbeiternamen.

Anforderung: Da die Datei mit allen Mitarbeitern in einer Cloud geteilt wird, damit sie von allen bearbeitet werden kann, darf die Excel keine Macros / VBA Code enthalten. Es wird die neuste Excel Version verwendet.

Kann mir jemand erklären, wie das funktioniert? Leider finde ich online nur Tutorials wie man eine Dropdown-Liste mit diesen Anforderungen mit VBA / Macros erstellt oder wie man eine Dropdown-Liste erstellt, wo man nur einen Mitarbeiter auswählen kann.

Vielen Dank im Voraus!

...zur Frage

VBA - Zwischenstände untereinander kopieren?

Liebe Community,

vielleicht kann mir hier jemand weiterhelfen. Ich habe eine Planungs-Excel Datei, in welcher ich einen bestimmten Bereich (BB86:BH93) so hinterlegt habe, dass mir bestimmte Ergebnisse angezeigt werden.
Nun würde ich gerne diesen Bereich automatisch mittels Button in einen anderen Reiter kopieren. Jedoch liegt meine Schwierigkeit darin, dass Excel jedes Mal, wenn ich denn Button betätige, den Ausschnitt untereinander kopieren soll in dem gleichen Reiter. Er soll die alte Tabelle also nicht überschreiben, da ich die einzelnen Zwischenstände sehen möchte.
Weiß jemand hierfür einen geeigneten VBA Code?

Vielen Dank im Voraus und viele Grüße

...zur Frage

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zur Frage

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zur Frage

Excel VBA Einträge als Liste untereinander kopieren?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

...zur Frage

Excel vba formel falsch,Was?

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

...zur Frage

Excel Datei nicht speicherbar machen Vba?

ich habe ein Programm wie ein Taschenrechner erstellt.
In den Feldern kann man zahlen eingeben und danach kommt das ergebnis.

diese soll aber als Vorlage dienen und wenn man die Anwendung schließen möchte dann soll die Frage „ Möchten Sie es speichern?“ nicht erscheinen.

Gibt es einen VBA Code welches ich schreiben kann damit die Datei nicht speicherbar ist.

also ich klicke auf das rote X und es schließt sich auch weder zu fragen noch zu speichern.

Danke

mfg

...zur Frage

Wie kann ich die Farbe einer Excel Zelle per Knopfdruck und VBA ändern?

Moin, ich hab mal wieder ne Frage zu Excel VBA. Wir haben heute die Aufgabe bekommen in Excel VBA mithilfe einer Sub- Prozedur Farben von Zellen zu ändern.
Es gibt ein Feld "Farb- Nr.", in dem eine Zahl steht, die dann im Sub genutzt wird um eine Farbe zu machen. (s. Screenshot). Bei Druck des Buttons sollen sich die 3 Farbstreifen ändern. Ich habe den Sub bereits dem Button zugewiesen, jedoch kommt beim klicken die Fehlermeldung "Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht". Ich wäre demjenigen, der mir helfen kann sehr verbunden. Falls noch etwas unklar sein sollte, fragt bitte einfach nach.

PS: Das ist mein bisheriger VBA Code:

Und so sieht das ganze Tabellenblatt aus:

...zur Frage

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zur Frage

Excel VBA automatisch nächste freie Spalte nehmen?

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zur Frage

Excel Vba, Bilder löschen?

Hallo, gibt es eine Möglichkeit in excel vba alle Bilder auf dem Tabellenblatt mit einer Ausnahme zu löschen? Also alle Bilder bis auf ein definiertes sollen gelöscht werden.

...zur Frage

Excel VBA, Combobox ergänzen?

Hallo, ich würde gerne Excel VBA über ein Textfeld eine Combobox erweitern. Also das was ich in ein Textfeld eingebe soll in der Combobox übernommen werden. Wie realisiere ich das?

...zur Frage

MS Excel Problem?

Ich soll in der Arbeit eine Datenanalyse mit MS Excel durchführen. Ei dafür notwendiger Zwischenschritt ist es, die "Ist-Ankunftszeit" von Bussen von der "Soll-Ankunftszeit" eben dieser Züge zu subtrahieren (um die Verspätungen auszuwerten). Die Zellen, in denen diese Daten stehen, sind als "Standard" formatiert und sehen so aus:

2024-02-09T13:34

Teils steht auch noch die Sekundenzahl bei der Uhrzeit dabei, aber auch nicht immer (teils steht sie sogar bei der Sollzeit dabei und bei der Istzeit nicht, was auch noch so ein Aspekt ist). Ich will eben die Differenz von zwei solchen (oben in schwarz dargestellten) Daten bilden, um die Verspätung zu erhalten. Natürlich klappt das so erstmal nicht, es kommt die Fehlermeldung "Wert". Ich hab dann versucht, die entsprechenden Zellen als Zahl, Datum oder auch benutzerdefiniert zu formatieren, dennoch erhalte ich bei der Subtraktion immer den obigen Fehler. Excel erkennt halt nicht, was es tun soll. Auch die Funktion Datevalue hat mir nicht geholfen. Meines Erachtens sind die Daten bei uns da einfach schlecht aufbereitet^^

Hat jemand eine schlaue Idee, wie ich das Problem lösen kann?

Händisch einzeln ändern geht übrigens nicht, meine Exceltabelle hat 200.000 Zeilen, es geht hier um große Datenmengen.

Schönes Wochenende euch :)

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen