Hallo , ich habe es hingekriegt
jetzt habe ich noch ein neues aufgetauchtes Problem. Wie kann ich im Listenfeld ( oder anderes ) in der Userform nur die ausgewählten Zeichnungen anzeigen. Jetzt zeigt er alle an . Also auch die ausgeblendeten.
Schönen Tag noch
Hallo Heiner ,
durch eine Anweisung in der Initialisierung des Userforms. z.B. etwa so
Private Sub UserForm\_Initialize()
Dim wks As Worksheet, Zeichnungen As Range, Zelle As Range
Set wks = ThisWorkbook.Sheets("Tabelle1") 'Tabelle mit den Zeichnungsnummern
Set Zeichnungen = wks.Range("A3:A7") 'Bereich mit den Zeichnungsnummern
With ListBox1
'Löschen der Alteinträge
For I = ListCount To 1 Step -1
.RemoveItem (I)
Next
'Eintragen aller sichtbaren Einträge im Bereich
For Each Zelle In Zeichnungen.Rows
If Zelle.Hidden = False Then
.AddItem (Zelle.Value)
End If
Next
End With
End Sub
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]