Ich habe eine Liste mit Namen. Ich wähle mehrere
Namen und möchte aber die Namen als Kürzel in die Zelle übernehmen.
Beispiel:Auswahl:M.Schmidt , F.Mueller
Zelleneintrag: MSC , FMU
Wie kann ich das realisieren?
A | B | |
1 | M.Schmidt | MSC |
2 | F.Mueller | FMU |
Formeln der Tabelle | ||||||
|
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column 3 Then Exit Sub
Cancel = True
UserForm1.Show
End Sub
Private Sub Namensliste_Click()
End Sub
Private Sub Übertragen_Click()
myVar = ""
For x = 0 To Me.Namensliste.ListCount - 1
If Me.Namensliste.Selected(x) Then
If myVar = "" Then
myVar = Me.Namensliste.List(x, 0)
Else
myVar = myVar & ", " & Me.Namensliste.List(x, 0)
End If
End If
Next x
ActiveCell = myVar
End Sub
Private Sub UserForm_Click()
Me.Hide
End Sub
Wo soll ich Deine Anweisung eintragen?Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen