Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.06.2025 13:53:13
23.06.2025 10:14:14
22.06.2025 14:45:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ereignis "BeforeSave" - ".Find" geht nicht?

Ereignis "BeforeSave" - ".Find" geht nicht?
13.11.2007 09:56:01
Oliver
Guten Morgen zusammen,
Ich lasse über das Ereignis "BeforeSave" mit folgendem Code abfragen, ob der Benutzer zu einer gewissen Gruppe gehört. Bei bestimmten Gruppen wird das speichern nämlich verhindert!

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
dim Gru as string
Gruppen Gru
End Sub


>>
Sub Gruppen(Gru as string)
dim ws_akt as object: ws_akt = activesheet
dim cf1 as range: Set cf1 = ws_akt.range("A:A").find("Gruppe",LookIn:=xlValues,LookAt:=xlwhole)
Gru = ws_akt.cells(cf1.row,2)
End Sub


>>
Wenn ich die Variable Gru aus dem Modul Gruppe an einer anderen Stelle füllen lasse, dann klappt es. Nur nicht, wenn ich über das Ereignis "BeforeSave" komme.
Hat hier jemand eine Idee, wie man das lösen könnte? Ich möchte mich nicht festlegen auf "cells(3,2)".
Gruß,
Oliver.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ereignis "BeforeSave" - ".Find" geht nicht?
13.11.2007 10:07:35
Andi
Hi,
Du weist der Variable Gru im BeforeSave-Ereignis überhauptkeinen Wert zu, sondern deklarierst sie nur.
Schönen Gruß,
Andi

AW: Ereignis "BeforeSave" - ".Find" geht nicht?
13.11.2007 10:44:00
Oliver
Hallo Andi,
das ist soweit erstmal richtig. Die Variable Gru wird dann über das Modul Gruppe gefüllt. Und im weiteren Verlauf von "BeforeSave" wird Gru dann verwendet. VBA bringt als Fehlermeldung bei "Set cf1=..." Laufzeitfehler 91 "Objektvariable oder With-Blockvariable nicht festgelegt.

Anzeige
AW: Ereignis "BeforeSave" - ".Find" geht nicht?
13.11.2007 14:46:00
Horst
Hi,
falsch: dim ws_akt as object: ws_akt = activesheet
richtig: dim ws_akt as Worksheet: Set ws_akt = activesheet
mfg Horst

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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