Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
820to824
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
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auf Existenz einer Userform prüfen per VBA

Auf Existenz einer Userform prüfen per VBA
24.11.2006 12:48:00
eres
Hallo Excel-Freunde,
kann mir jemand sagen, wie ich von Mappe1.xls aus per VBA prüfen kann, ob in Mappe2.xls die Userform »UF1« existiert ?
Vielen Dank für Eure Hilfe im voraus.
Gruss
erwin

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Prüfen, ob anderen Mappe ein bestimmtes UF enthält
24.11.2006 13:08:29
NoNet
Hallo Erwin,
hier mein vorschlag :


Sub UF_Suchen()
    '24.11.2006, NoNet - www.excelei.de (z.Zt. DOWN !)
    Dim Mappe, uf
    Dim vbc, gefunden
    Mappe = "Mappe2" 'die zu durchsuchende Mappe
    uf = "UserForm1" 'der Name des zu suchenden UserForms
    gefunden = False
    With Workbooks(Mappe).VBProject
        For Each vbc In .vbcomponents
            If vbc.Type = 3 Then 'Userform
                If UCase(vbc.Name) = UCase(uf) Then
                    gefunden = True
                    Exit For
                End If
            End If
        Next
    End With
    MsgBox "Das UserForm '" & uf & "' wurde in " & Mappe & _
        IIf(gefunden, "", " nicht") & " gefunden !"
End Sub
Anzeige
AW: Auf Existenz einer Userform prüfen per VBA
24.11.2006 13:11:32
ramses
Hallo
Geht schon, einfach als Funktion einsetzen
Option Explicit

Function CheckUfExist(tarWkb As Workbook, ufName As String) As Boolean
Dim n As Long
With tarWkb
For n = .VBProject.VBComponents.Count To 1 Step -1
With .VBProject.VBComponents(n)
'Achtung .Name ist CaseSensitiv
If .Type = 3 And .Name = ufName Then
CheckUfExist = True
Exit Function
End If
End With
Next
End With
CheckUfExist = False
End Function



Sub Test()
MsgBox CheckUfExist(Workbooks("Book2.xls"), "UserForm1")
End Sub

ACHTUNG: Auf Gross- und KleinSchreibung achten beim Userform-Name oder mit UCASE entsprechend umstellen wenn es unabhängig sein soll.
Gruss Rainer
Anzeige
Klappt prima. Vielen Dank an Rainer + NoNet o.T.
24.11.2006 13:34:08
eres
.
Nachfrage:
24.11.2006 13:55:57
eres0107
Gibt es so etwas ähnliches auch für die Prüfung aus Mappe1.xls per VBA, ob in einem der Arbeitsblätter der Mappe2.xls die »Sub Program1« existiert ?
Vielen Dank im voraus für jede Hilfe.
Gruss
erwin
AW: Nachfrage:
24.11.2006 14:02:54
ramses
Hallo
was meinst du damit:
"..ob in einem der Arbeitsblätter der Mappe2.xls die »Sub Program1«..."
Ist die Sub in einem Klassenmodul der Tabelle oder in einem eigenen Modul der Mappe ?
Gruss Rainer
AW: Nachfrage:
24.11.2006 14:05:56
eres
Rainer, sorry für die Ungenauigkeit.
Die Sub suche ich im Klassenmodul der Tabelle.
Gruss
erwin
*fg* - Ausgerechnet die Klassenmodule...
24.11.2006 15:02:15
NoNet
...hatte ich nicht berücksichtigt ;-)
Hier der ergänzte Code :


Function VBA_Suchen(Mappe, objName, Optional objTyp As Variant = 3)
    'Sucht, ob in einer anderen Mappe ein bestimmtes VBA-Element existiert
    'Mappe : die zu durchsuchende Mappe
    'objName : der Name des zu suchenden UserForms/SUBs/Function
    'objTyp : Der Typ des zu suchendne VBA-Elements : 1=SUB, 2=Function, 3=UF
    'Aufruf : msgBox VBA_Suchen("mappe2","MeinMakro",1)
    'Oder : msgBox VBA_Suchen("mappe2","MeineUDF",2)
    'Oder : msgBox VBA_Suchen("mappe2","UserForm1")
    Dim vbc, gefunden, vbZeile
    gefunden = False
    For Each vbc In Workbooks(Mappe).VBProject.vbcomponents
        If vbc.Type = 3 And objTyp = 3 Then 'Userform
            If UCase(vbc.Name) = UCase(objName) Then
                gefunden = True
                Exit For
            End If
        ElseIf (vbc.Type = 1 Or vbc.Type = 100) And (objTyp = 1 Or objTyp = 2) Then
            For vbZeile = 1 To vbc.codemodule.countoflines
                If UCase(LTrim(vbc.codemodule.Lines(vbZeile, 1))) Like _
                    UCase(IIf(objTyp = 1, "SUB ", "FUNCTION ") & _
                    objName & "(*") Then
                    gefunden = True
                    Exit For
                End If
            Next
        End If
    Next
    If gefunden Then
        VBA_Suchen = True
    Else
        VBA_Suchen = False
    End If
End Function

Anzeige
AW: *fg* - Ausgerechnet die Klassenmodule...
24.11.2006 15:05:50
eres
wollte mich gerade melden ...
Toll, wenn die Lösung kommt, bevor man das Problem beschrieben hat.
Herzlichen Dank nochmals und Gruss aus Köln
erwin
UDF (Function) zum Prüfen von VBA-Elementen
24.11.2006 14:41:37
VBA-Elementen
Hallo Erwin,
ich habe das Makro nun um die Prüfmöglichkeit für SUBs, UDFs und USerForms erweitert :


Sub VBAPruefen()
    MsgBox VBA_Suchen("mappe2", "MeinMakro", 1)
    MsgBox VBA_Suchen("mappe2", "MeineUDF", 2)
    MsgBox VBA_Suchen("mappe2", "UserForm1")
End Sub
Function VBA_Suchen(Mappe, objName, Optional objTyp As Variant = 3)
    'Sucht, ob in einer anderen Mappe ein bestimmtes VBA-Element existiert
    'Mappe : die zu durchsuchende Mappe
    'objName : der Name des zu suchenden UserForms/SUBs/Function
    'objTyp : Der Typ des zu suchendne VBA-Elements : 1=SUB, 2=Function, 3=UF
    'Aufruf : msgBox VBA_Suchen("mappe2","MeinMakro",1)
    'Oder : msgBox VBA_Suchen("mappe2","MeineUDF",2)
    'Oder : msgBox VBA_Suchen("mappe2","UserForm1")
    Dim vbc, gefunden, vbZeile
    gefunden = False
    For Each vbc In Workbooks(Mappe).VBProject.vbcomponents
        If vbc.Type = 3 And objTyp = 3 Then 'Userform
            If UCase(vbc.Name) = UCase(objName) Then
                gefunden = True
                Exit For
            End If
        ElseIf vbc.Type = 1 And (objTyp = 1 Or objTyp = 2) Then
            For vbZeile = 1 To vbc.codemodule.countoflines
                If UCase(LTrim(vbc.codemodule.Lines(vbZeile, 1))) Like _
                    UCase(IIf(objTyp = 1, "SUB ", "FUNCTION ") & _
                    objName & "(*") Then
                    gefunden = True
                    Exit For
                End If
            Next
        End If
    Next
    If gefunden Then
        VBA_Suchen = True
    Else
        VBA_Suchen = False
    End If
End Function

Anzeige
Herzlichen Dank NoNet (o.T.) & have a nice weekend
24.11.2006 14:50:07
eres
.
kleine Optimierung
24.11.2006 20:08:21
Daniel
Hallo,
kleine Optimierung zur Funktion, es bringt zwar nicht viel,aber Schleifen und IF-Abfragen sollten möglichst vermieden werden. Die Funktion lässt sich so auf eine Zeile reduzieren:

Function CheckUfExist(tarWkb As Workbook, ufName As String) As Boolean
CheckUfExist = tarWkb.VBProject.VBComponents(ufName).Type = 3
End Function

Gruß, Daniel
AW: kleine Optimierung
27.11.2006 07:43:54
eres
Vielen Dank Daniel,
werde ich gerne berücksichtigen.
Gruss
erwin

301 Forumthreads zu ähnlichen Themen

Ab aktiver Datei speichern und VBA-Code löschen?
Selma

Hallo zusammen,
ich möchte nur das Arbeitsblatt "Vorlage" über das Dialog "Speichern unter" speichern. Als Dateiname soll Name der aktive Datei_ + Weitergabe.xls vorgeschlagen werden.
Beispiel für Dateiname: Berechnungsblatt_2008_Weitergabe.xls
In der gespeicherte Datei sollen erstm...
25.10.2008 11:15:00
Thread-ID: 1019168
5 Beiträge
Anzeige
Date&Timer Picker bei Vista
Biker7

Hi Ihr Leser,
Zu Hause benutze ich XP und habe eine Datei mit denm Date&Timer Picker
weitergegeben, da wird Vista benutzt. Ich bekomme nicht mal die MSCOMCT2.OCX
in das System32 kopiert obwohl ich Adminrechte habe, damit kann ich sie ja auch
nicht regiestrieren.
Gibt es...
18.03.2009 20:15:33
Thread-ID: 1061604
5 Beiträge
Zus.fassen Datenblättern; inkl. Formeln+VBA-Code
Fred

Hallo liebe Wissende,
...ich reibe mich seit mehrern Tagen an einem Problem in Exel. Ich werde etwas mehr dazu schreiben müssen, da schwer in 2 Sätzen darstellbar.
Ausgangspunkt: mehrere Exeldateien mit vielen Tabellenblättern (...die ich nicht erstellt habe...).
Ziel: aus allen Dat...
18.06.2009 12:51:27
Thread-ID: 1082547
4 Beiträge
Anzeige
Application.OnTime läuft auch bei anderen Dateien
Roland

Hallo,
Durch eine Steuerelement angestupst wird meine Datei alle 15 Minuten gespeichert.
Das Modul sieht so aus:
Sub Makro1() On Error Resume Next Application.OnTime EarliestTime:=datA, Procedure:="Makro2", Schedule:=False datA = Now + CDate("0:15:00") ' Hi...
06.11.2009 02:22:33
Thread-ID: 1114851
4 Beiträge
VBA-Code von Userform anpassen (DTPicker)
Userform

Hallo Excel-Forum Community,
Leider stoße ich bei der Anpassung des VBA-Codes einer „UserForm“ gerade an meine Grenzen. Vielleicht findet ihr ein paar Minuten um euch die Beispieldatei des nachfolgenden Links anzusehen?
https://www.herber.de/bbs/user/69747.xls
Ich habe einen sehr...
26.05.2010 21:15:00
Thread-ID: 1158924
8 Beiträge
Datei ohne VBA Code speichern
Holger,

Liebes Forum,
schon wieder ein Problem. Heute hängt es an lauter Kleinigkeiten.
Ich kopiere ein Tabellenblatt und speichere dieses als neue Arbeitsmappe ab.
Soweit, so gut klappt das.
Leider ist in dieser Arbeitsmappe der ganze VBA Code auch drin.
Wie kann ich das vermeiden,...
14.01.2011 11:31:34
Thread-ID: 1195629
5 Beiträge
Datetime Picker in Excel 2010 Makro
MollocH

Hi zusammen,
ich bin in der Situation ein paar Makros bzw Userforms anpassen zu müssen.
Leider gibt es ja den Datetime Picker mit Office 2010 nicht mehr.
Jeder versuch das ganze durch registrieren der entsprechenden OCX usw sind fehlgeschlagen. Das ding will einfach nicht mehr aufta...
24.01.2011 14:00:07
Thread-ID: 1197037
5 Beiträge
Date and Time Picker beim erneuten Datei öffnen de
Ronald

Hallo Profis,
ich habe ein großes Problem. Ich nutze in einer Exceldatei den Date and Time Picker (MSCOMCTL2.ocx). Kann auch ein solches Steuerelement neu einfügen und es funktioniert wie gewünscht. Wenn ich die Datei dann schließe und erneut öffne, ist das Element nicht mehr funktionstüch...
09.02.2011 09:41:57
Thread-ID: 1199760
4 Beiträge
Anzeige

Links zu Excel-Dialogen

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
4
18
4
3
3
3
7
4
4
3
3
6
14
30
4
1
1
2
11
5
5
1
4
4
2