Anzeige
Archiv - Navigation
1464to1468
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
Inhaltsverzeichnis

Deklarierung

Deklarierung
01.01.2016 11:18:24
Sigi
Hallo,
nachträglich noch einen guten Rutsch ins neue Jahr!
Meine Frage:
Ich habe mehrere Userformen der Aufbau ist immer der selbe.
Es sollen immer die Frame die nicht BorderColor 65535(gelb) sind ausgeblendet werden.
Jedoch funktioniert mein Code nicht.
Danke!
Gruß
Sigi
in Modul
Public UF as String
Public obj as Object
Private Sub Fra_Ausblenden()
With UF
For Each obj In .Controls
Select Case TypeName(obj)
Case "Frame"
If obj.BorderColor = 65535 Then: obj.Visible = True
If obj.BorderColor = 0 Then: obj.Visible = False
End Select
Next obj
End Sub
in UF
Private Sub UserForm_Initialize()
On Error Resume Next
UF = "UFKD"
With Application
.Run "Fra_Ausblenden" 'Alle Frame ausblenden nur Button-Frame offen lassen
End With
End Sub

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Deklarierung
01.01.2016 11:28:58
Hajo_Zi
ich baue nichts nach.
Ich würde vermuten
With Controls(UF)

AW: Deklarierung
01.01.2016 12:08:35
Hajo_Zi
Hallo Sigi,
Option Explicit
Public UF As Object
Public obj As Object
Private Sub Fra_Ausblenden()
MsgBox "Hier kommt Fehlermeldung, auskommentiert"
With UF
For Each obj In .Controls
Select Case TypeName(obj)
Case "Frame"
If obj.BorderColor = 65535 Then: obj.Visible = True
If obj.BorderColor = 0 Then: obj.Visible = False
End Select
Next obj
End With
End Sub
und in UserForm
Set UF = Me
Gruß Hajo

Anzeige
AW: Deklarierung
01.01.2016 12:11:58
Nepumuk
Hallo,
so:
Public UF As Object
Set UF = UF1
bzw.:
Set UF = UF2
und dann wie gehabt:
Private Sub Fra_Ausblenden()
    With UF
        For Each obj In .Controls
            Select Case TypeName(obj)
                Case "Frame"
                    If obj.BorderColor = 65535 Then: obj.Visible = True
                    If obj.BorderColor = 0 Then: obj.Visible = False
            End Select
        Next obj
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Deklarierung
01.01.2016 12:23:39
Sigi
Hallo Nepumuk,
vielen Dank!
Gruß
Sigi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige