Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

before close funktioniert nicht

Forumthread: before close funktioniert nicht

before close funktioniert nicht
04.05.2002 20:00:13
Walter
ich habe ein Programm das tadelos läuft und den Anwender braf nach einem Passwort fragt, um danach bestimmte Spalten auszublenden und einen Blattschutz zu aktivieren. Doch die Anwendung startet nicht beim schließen der Datei obgleich ich before close anwende:

Private Sub BeforeClose()
' Makro am 18.04.2002 von Walter Küchenberg aufgezeichnet
If Sheets("050").Columns("D:E").Hidden = False Then
MsgBox ("Do you realy want to close without protect?")
End If
End Sub

Warum startet die Anwendung nicht wenn ich diese Mappe schließe?

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: before close funktioniert nicht
04.05.2002 20:20:05
WernerB.
Hallo Walter,

zum einen hat Dein Makro den falschen Namen, zum andern: das Makro muss in dem Klassenmodul von "DieseArbeitsmappe" (also nicht in einem normalen Standardmodul) stehen. Steht es dort?

Viel Erfolg wünscht
WernerB.

Re: before close funktioniert nicht
04.05.2002 20:45:59
Walter
Vielen Dank!
Ich habe in der Arbeitsmappe nun ein Klassenmodul erstellt und diesen Code da rein kopiert. Doch es funktioniert leider nicht
Anzeige
Re: before close funktioniert nicht
04.05.2002 20:57:08
WernerB.
Hallo Walter,

da scheinst Du etwas missverstanden zu haben. Das Klassenmodul von "DieseArbeitsmappe" ist bereits vorhanden; Du brauchst also keines erstellen.

Wenn Du im Makro-Editor bist (Alt + F11), den Du ja zu kennen scheinst, findest Du auf der linken Seite den VBA-Project-Explorer. Da steht auch 'VBAProject(Mappenname.xls)'. Darunter steht dann u.a. 'DieseArbeitsmappe'. Wenn Du darauf einen Doppelklick machst, wird dieser Text grau unterlegt. Die große weiße Fläche auf der rechten Seite ist das Klassenmodul von 'DieseArbeitsmappe'. Und genau da hinein muss das Makro geschrieben/kopiert werden.

MfG
WernerB.

Anzeige
Re: before close funktioniert nicht
04.05.2002 21:03:17
WernerB.
Hallo Walter,

bitte entschuldige: zum Testen habe ich Deinen Blattnamen verändert; hier nun die richtige Version:

MfG
WernerB.

Re: before close funktioniert !
04.05.2002 21:10:43
walter
Es funktioniert!
Sorry das ich Dich mit dilletanischen Fragen genervt habe - Ich lerne noch...

Gruß Walter

Re: before close funktioniert !
04.05.2002 21:16:29
WernerB.
Hallo Walter,

Du brauchst Dich nicht entschuldigen; als ich zum ersten mal mit dem Begriff 'Klassenmodul' konfrontiert wurde, erging es mir ähnlich wie Dir!

MfG
WernerB.

Anzeige
;

Forumthreads zu verwandten Themen

Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Anzeige
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Anzeige
Makro mit Tastenkombination aufrufen?
Micha

Hallo liebe Spezialisten,
wie kann ich ein bestehendes Makro mit einer Tastenkombination aufrufen (Strg.X)
Bei dem Makrorecorder kenne ich die Möglichkeit, aber wie kann ich das bei einem schon bestehenden Code ändern.
Gruß
Micha
15.09.2008 12:56:00
Thread-ID: 1009761
4 Beiträge
Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Anzeige
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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