Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

...(ByVal Cancel As MSForms.ReturnBoolean)

...(ByVal Cancel As MSForms.ReturnBoolean)
02.02.2007 08:36:17
Peter
Hallo und guten Morgen,
ich habe eine Excel-Anwendung, bei der in einer Userform nachstehender Code verwendet wird. Auf vielen PCs läuft das problemlos. Auf manchen PCs jedoch kommt beim Start der Anwendung die Meldung:
Datei nicht gefunden? Was kann ich da machen? Ich denke die MS-Forms sind auf jedem PC drauf? Wer weiss da Abhilfe.

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim xLen As Integer
xLen = Len(TextBox1.Text)
If xLen > 0 And xLen < 10 Then
Cancel = True
End If
End Sub

Vielen Dank für Euere Hilfe
Peter

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

Betreff
Datum
Anwender
Anzeige
AW: ...(ByVal Cancel As MSForms.ReturnBoolean)
02.02.2007 09:44:36
Ramses
Hallo
Die MSForms-Object Library vielleicht schon, aber der Verweis darauf u.U. nicht.
Schau mal ob im VB-Editor der Verweis auf
C:\Windows\System32\FM20.DLL
gesetzt ist, wenn nicht mal aktivieren und deine Datei neu öffnen.
Gruss Rainer
Hallo Rainer
02.02.2007 11:05:45
Peter
Hallo Rainer,
nachdem die Datei von meinem Rechner kommt und bei mir der Verweis gesetzt ist, müsste es doch auf den anderen Rechnern auch sein, da sich ja gesetzte Verweise mit der Datei mitkopieren.
Da es sich bei dieser Textbox um eine Eingabebox für Datum handelt, kann es sein, daß noch eine andere DLL mitangesprochen wird?
Danke
Peter S
Anzeige
AW: Hallo Rainer
02.02.2007 11:16:36
Ramses
Hallo
Die gesetzten Verweise gelten grundsätzlich immer nur auf deinem Rechner !!
Vielleicht hat EXCEL auch ein problem die Datei zu finden, oder sie wurde nicht korrekt installiert.
Der Verweis auf die FM20.DLL wird normalerweise automatisch von EXCEL gesetzt, sobald der User eine USERFORM im VB-Editor erzeugt/anlegt.
Sonst nicht.
Schreib in das Workbook_Open Ereignis an die erste Stelle

Private Sub Workbook_open()
SetReference_to_FM20DLL
End Sub

und kopiere diesen Code in ein Modul deiner Mappe
Sub SetReference_to_FM20DLL()
On Error GoTo err_message
With Application.VBE.ActiveVBProject.References
.AddFromFile "C:\Windows\system32\fm20.dll"
End With
Exit Sub
err_message:
Select Case Err.Number
Case 32813
'Der Verweis existiert bereits
Case Else
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Fehler"
Exit Sub
End Select
End Sub
Dann wird der Verweis beim öffnen der Mappe automatisch gesetzt.
Gruss Rainer
Anzeige

61 Forumthreads zu ähnlichen Themen

Workbook_BeforePrint(Cancel As Boolean)
DirkR

Guten Morgen Excelgemeinde,
Ich habe folgendes Problem und bitte um Mithilfe.
In der folgenden Datei möchte ich gerne überprüfen, ob ein "tatsächlicher" Drucker als Standard definiert ist. Wenn "Nein" dann soll der PrinterSetup Dialog aufgerufen werden. Das funzt auch ganz gut, solange...
17.07.2011 09:13:27
Thread-ID: 1222437
12 Beiträge
Anzeige
Private Sub Workbook_BeforeClose
Heinz

Hallo Leute
Könnte man den unteren Code etwas eleganter schreiben?
Denn wenn ich die Arbeitsmappe schließe, Flackert der Bildschirm so lange bis alle Sheets geschlossen sind.
Also etwa im Hintergrund schließen.
Danke & gruß Heinz Private Sub Workbook_BeforeClose(Cancel As B...
18.08.2015 21:00:19
Thread-ID: 1443017
3 Beiträge
teil vba löschen before close
giuppy

Hallo,
ich habe ein VBA geschrieben, wird an einem bestimmten Datum ein Modul gelöscht. Ich möchte aber auch, dass zeitgleich der Code in der DieseArbeitsmappe gelöscht wird.
Kann mir jemand einen Tipp / Rat geben?
hier den Code (VBAProjekt (test) - Microsoft Excel Objekte - DieseA...
10.03.2018 13:56:27
Thread-ID: 1613474
2 Beiträge
Anzeige
Private Sub Workbook_BeforeClose(Cancel As Boolean
FPH

Hallo Forum,
wende mich heute mal wieder an Euch mit folgendem Problem:
Warum kann ich das schließen der Datei mit dem Code nicht verhindern, habe ich einen fehler im Code ? Danke für Eure hilfe.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("d36") = 0 Then If Range(...
16.12.2004 14:43:18
Thread-ID: 534257
2 Beiträge
Workbook_BeforePrint(Cancel As Boolean)
Thorssten

Hallo liebes Forum,
ich möchte gerne meine Exceltabelle drucken, aber ohne den CommandButton darin. Kann mir jemand helfen. Habe einen Lösungsvorschlag, er druckt den Button aber immer noch mit aus.
Private Sub Workbook_BeforePrint(Cancel As Boolean) ActiveSheet.Unprotect Worksheets("N...
05.12.2005 14:13:50
Thread-ID: 704694
3 Beiträge
Private Sub Workbook_BeforeClose(Cancel As Boolean
Gunter

Hallo,
ich habe eine Datei mit mehreren Arbeitsblättern. Vor dem schliessen soll auf allen Arbeitsblättern ein vorher markierter Teil zurück gesetzt werden.
Mit dieesem Makro wird nur das aktuelle Arbeitsblatt zurück gesetzt.
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim...
22.12.2005 18:22:58
Thread-ID: 712118
3 Beiträge
VBA - Speichern BeforeClose schlägt fehl
Marcel

Mahlzeit,
ich habe folgendes Problem. WEnn der User Excel mittels Schließen schließt, dann wird dies bei Änderung standardmäßig abgefangen und gefragt ob gespeichert werden soll. Da bei mir aber nur bestimmte Dateitypen zugelassen werden/sollen habe ich dieses "Abfangen" durch meinen Code e...
23.04.2020 11:51:54
Thread-ID: 1754464
6 Beiträge
Bei Cancel = True wird BeforeUpdate 2x ausgeführt
JogyB

Hallo zusammen.
Hatte heute ein seltsames Problem mit BeforeUpdate bei einer TextBox. Ich mache dort eine Eingabeüberprüfung nach einer laufenden Nummer, z.B. 0456/08. Wenn das Format nicht stimmt, dann kommt eine MsgBox und Cancel wird auf True gesetzt, damit der Fokus auf der TextBox blei...
24.11.2008 23:34:00
Thread-ID: 1027528
5 Beiträge

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
10
2
1
1
1
2
2
5
4
12
10
11
2
1
4
7
3
1
2
2
2
3
4
12