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

Beitragsersteller

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 Beiträge

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

...zum Beitrag

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!

...zum Beitrag

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

...zum Beitrag

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

...zum Beitrag

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

...zum Beitrag

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

...zum Beitrag

VBA-Code für Excel erweitern?

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

If bolOn Then

Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~", "NaechsteZeileEinblenden" 'EINGABETASTE

Else

Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~" 'EINGABETASTE

End If

End Sub

Private Sub NaechsteZeileEinblenden()

With ActiveCell.Offset(1).EntireRow

.Hidden = False

.Cells(1).Activate

End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target.Cells(1)

EnterOnOff .Column = 10 And .Row > 9

End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

...zum Beitrag

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

...zum Beitrag

warum gibt es access wenn es doch excel gibt für datenbanken?

...zum Beitrag

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

...zum Beitrag

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.

...zum Beitrag

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

...zum Beitrag

Excel-Zeilen nach Inhalt über Button und VBA ausblenden?

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

...zum Beitrag

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:

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen