ObjectNamen vergleichen

Forumthread: ObjectNamen vergleichen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: ObjectNamen vergleichen

25.09.2003 15:46:29

Eugen F.

Hallo,

ich beschreibe mal schnell mein Vorhaben.
Ich will das die Caption der Labels in die Value der TextFelder reingeschrieben wird.
Es gibt ein Label Namens "lblDatum", "lblAuskunft"
und ein TexFeld namens "txtDatum", "txtAuskunft"
Dann gibt es noch Labels mit einer 1 hinter dem Namen ("lblDatum1"), diese sollen dann nicht beachtet werden. Ist sowas mit der Mid oder einer anderen Funktion möglich?
Zur Info: die Namen sind unterschiedlich lang

Gruß Eugen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ObjectNamen vergleichen

25.09.2003 16:13:33

xXx
AW: ObjectNamen vergleichen

25.09.2003 16:33:22

Eugen F.
AW: ObjectNamen vergleichen

25.09.2003 17:34:08

Eugen F.

AW: ObjectNamen vergleichen

25.09.2003 16:13:33

xXx

Hallo,
das sollte klappen:


Private Sub UserForm_Activate()
For Each c1 In UserForm1.Controls
If c1.Name Like "lbl*" Then
If Right(c1.Name, 1) <> "1" Then
c1_name = Right(c1.Name, Len(c1.Name) - 3)
For Each c2 In UserForm1.Controls
If c1.Name <> c2.Name Then
c2_name = Right(c2.Name, Len(c2.Name) - 3)
If c2_name = c1_name Then
c2.Value = c1.Caption
Exit For
End If
End If
Next c2
End If
End If
Next c1
End Sub

Gruß aus'm Pott
Udo

AW: ObjectNamen vergleichen

25.09.2003 16:33:22

Eugen F.

Hallo Udo,

danke dir für die Hilfe. leider funktioniert das ganze nicht. Die erste If-Anweisung gibt kein True zurück. Also springt er ans Ende der Sub-Anweisung.

Überleg mal bitte, ob da vieleicht ein Fehler ist

Danke im Vorraus
Gruß Eugen

AW: ObjectNamen vergleichen

25.09.2003 17:34:08

Eugen F.

Hallo Udo,

komischer weise funktioniert der Code, nach einem Excel-Neustart.

Danke
Gruß Eugen

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