Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Label als Objekt an Funktion übergeben

Forumthread: Label als Objekt an Funktion übergeben

Label als Objekt an Funktion übergeben
10.07.2007 21:04:09
Silk
Hallo,
ich habe ein Form mit sehr vielen Labels. Nun habe ich eine Funktion, die diese Labels formatieren soll. Allerdings weiss ich nicht, wie ich ein Label als Objekt(!) an die Funktion übergebe:
Call FormatLabel(Label37_1) ' Meldet Typen unverträglich

Private Sub FormatLabel(lb As Label)
' irgendwas
End Sub


Vielen Dank
Karsten

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Label als Objekt an Funktion übergeben
10.07.2007 21:20:15
Ramses
Hallo
hier mal ein Beispiel wie man den Font eines Labels umstgellt
Option Explicit

Private Sub CommandButton1_Click()
    'Bei Tastendruck den Font umschalten
    Format_Label UserForm1, Label1, Not Label1.Font.Italic
End Sub

'oder fix

Private Sub CommandButton1_Click()
    'Kursiv
    Format_Label UserForm1, Label1, True
End Sub

Private Sub CommandButton1_Click()
    'Nicht Kursiv
    Format_Label UserForm1, Label1, False
End Sub


und das z.B., als Function in ein Modul
Option Explicit

Function Format_Label(myUf As UserForm, myObj As Control, myAction As Boolean)
    With myUf
        With myObj
            .Font.Italic = myAction
        End With
    End With
End Function

Du musst der Funktion sowohl die Userform und auch das Label als Object übergeben
Gruss Rainer

Anzeige
AW: Label als Objekt an Funktion übergeben
10.07.2007 21:39:00
Silk
Hallo,
vielen Dank! Die Übergabe als Control war der entscheidende Hinweis. Die Formatierung klappt auch. Allerdings komme ich nicht mehr an den Textinhalt des Labels ran. Also ".Text" existiert nicht. Weißt du Rat?
Gruß
Karsten

AW: Label als Objekt an Funktion übergeben
10.07.2007 21:54:00
Original
Hi,
Label kennt keinen Text aber dafür Caption.
mfg Kurt

Anzeige
AW: Label als Objekt an Funktion übergeben
10.07.2007 22:20:00
Silk
Hallo,
ups, hab ich verwechselt. Jetzt läufts.
Vielen Dank!
;

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