Das Archiv des Excel-Forums

ObjectNamen vergleichen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label UserForm
Bild

Betrifft: ObjectNamen vergleichen
von: Eugen F.

Geschrieben am: 25.09.2003 13:46:29

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
Bild


Betrifft: AW: ObjectNamen vergleichen
von: xXx
Geschrieben am: 25.09.2003 14:13:33

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


Bild


Betrifft: AW: ObjectNamen vergleichen
von: Eugen F.
Geschrieben am: 25.09.2003 14:33:22

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


Bild


Betrifft: AW: ObjectNamen vergleichen
von: Eugen F.
Geschrieben am: 25.09.2003 15:34:08

Hallo Udo,

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

Danke
Gruß Eugen


 Bild

Excel-Beispiele zum Thema " ObjectNamen vergleichen"

Zellen vergleichen und markieren download Tabellen vergleichen download
Spalten A und B vergleichen und Doppel in C listen download Werte vergleichen download
Bereiche auf Übereinstimmung vergleichen download Daten in jeweils einer Spalte zweier Tabellen vergleichen download
Werte vergleichen und Ergebnis in Tabelle eintragen download Tabellen vergleichen und Zeilen ersetzen download
Tabellen vergleichen und bei Nichtübereinstimmung markieren download Textdateien vergleichen und Unterschiede dokumentieren download
Spalte A mit B vergleichen und Doppel in C eintragen download Telefonnumern mit Liste vergleichen und durch Namen ersetzen download
Werte vergleichen und übertragen download Teilstrings vergleichen und markieren download
Textmuster vergleichen download