Code aus "DieseArbeitsmappe" nicht ausführen
09.12.2025 18:44:49
Heike
In Mappe1, im Objekt „DieseArbeitsmappe“, befindet sich ein Code, der überprüft, ob Mappe2 geöffnet ist, wenn nicht, wird sie geöffnet, damit Daten automatisch in Mappe2 übertragen werden. Das passt super.
Ist die Übertragung abgeschlossen, benötige ich Mappe2 nicht mehr zur Bearbeitung, ich schließe sie, damit ein anderer damit weiter arbeiten kann.
Jetzt kommt mein Problem:
In Mappe1 habe ich in einem Modul ein „LöschButton“ erstellt, welcher mir aus dieser Mappe (Mappe1) die Daten löscht. Das funktioniert zwar, aber Excel will jetzt natürlich immer die Mappe2 öffnen.
Kann mir bitte jemand sagen, wie ich das in diesem Lösch-Button unterbinden kann? Das der Code aus „Diese Arbeitsmappe“ nicht ausgeführt wird?
Hier ein Auszug aus dem Lösch-Button:
Sub prcLoeschenDatenWochentag(strWochentag As String)
'Löscht im aktiven Tabellenblatt die Eingabedaten des Wochentags
'Variablen für Eingabe-Tabellenblatt
Dim wks_E As Worksheet 'Eingabe-Tabellenblatt
Dim Zeile_E1 As Long '1. Zeile des Wochentags
Dim Zeile_EL As Long 'Letzte Eingabezeile des Wochentags
Dim Zeile_E As Long 'laufender Zeilen-Zähler
Dim rngZeile_E1 As Range 'Variable zur Suche der 1. Zeile des Monats
On Error GoTo Beenden
Set wks_E = ActiveSheet
If MsgBox("Eingabedaten für """ & strWochentag & """ auf Blatt """ & wks_E.Name & """ löschen?", _
vbOKCancel + vbQuestion, _
"Test - Löschen - E I N G A B E N L Ö S C H E N") = vbCancel Then GoTo Beenden
Ich hoffe, ich habe mich verständlich ausgedrückt. Freue mich natürlich über jede Unterstützung und sage schon einmal DANKE.
VG Heike
Anzeige