Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code mit Makro in UserFormen kopieren

Forumthread: Code mit Makro in UserFormen kopieren

Code mit Makro in UserFormen kopieren
25.07.2006 09:08:17
achim
Hallo Excel Freunde
Ich möchte diesen Code in meine 70 UserFormen der Datei mit ein Makro hineinkopieren.
Wer hat ein solches Makro?

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "So nicht !"
Cancel = True
End If
End Sub

gruß
achim h.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code mit Makro in UserFormen kopieren
25.07.2006 10:45:31
Hoffi
Hallo Achim,
füge diesen Code in ein Modul:
Sub Kopieren()
Dim uf As VBComponent
For Each uf In ActiveWorkbook.VBProject.VBComponents
If uf.Type = vbext_ct_MSForm Then
With ActiveWorkbook.VBProject.VBComponents(uf.CodeModule).CodeModule
.InsertLines 3, " 

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)"
.InsertLines 4, "If CloseMode = vbFormControlMenu Then"
.InsertLines 5, "MsgBox ""So nicht !"""
.InsertLines 6, "Cancel = True"
.InsertLines 7, "End If"
.InsertLines 8, "End Sub
"
End With
End If
Next
End Sub
Du musst vorher unter Extras-Verweise den Verweis auf Microsoft Visual Basic for Applications Extensibility 5.3 setzen, sonst geht es nicht.
Grüße
Hoffi
P.S. Rückmeldung wäre nett...
Anzeige
AW: Code mit Makro in UserFormen kopieren
25.07.2006 10:47:47
Heiko
Hallo Achim,
z.B. so:

Sub TextInUF()
Dim objUf As Object
For Each objUf In ActiveWorkbook.VBProject.VBComponents
If objUf.Type = 3 Then
With ActiveWorkbook.VBProject.VBComponents(objUf.Name).CodeModule
.AddFromString vbCr
.AddFromString "Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)" & vbCr & _
"   If CloseMode = vbFormControlMenu Then" & vbCr & _
"      MsgBox ""So nicht !""" & vbCr & _
"      Cancel = True" & vbCr & _
"   End If" & vbCr & _
"End Sub" & vbCr & _
End With
End If
Next objUf
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
Danke an beiden Helfern! klappt super
25.07.2006 11:43:17
achim
Danke!
AW: Code mit Makro in UserFormen kopieren
25.07.2006 12:04:36
Hoffi
Hallo Heiko,
da hab ich wieder was dazugelernt, Danke :-)
hatte es auch erst mit As Object versucht, hatte nur irgendwie nicht hin gehauen, naja klappt ja nu.
Grüße
Hoffi
;

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