Office: Userform

vukadonis · 6. März 2020

Tabelle1 ist meine Quelle, es handelt sich hierbei um einen Maschinen Werkzeugmagazin mit 110 Werkzeugen.
Tabelle2-Tabelle500 meine Zieldatei.
zb. ich erstelle Tabelle 3 (ist ein Einstellplan), dieser hat dann 50 Werkzeuge in Verwendung.
also muß ich aus der Tabelle3 zur Tabelle1 wechseln, mehrmals Filtern bis ich das richtige Werkzeug habe, Zeile kopieren wechseln zur Tab3 und einfügen, das dann 50 mal.
ist es nicht einfacher aus der Tab3 per UF Aufruf die Daten der Tab1 packen, filtern und per Knopfdruck übertragen?
oder mache ich da einen Denkfehler?

Klaus-Dieter · 6. März 2020

Hallo,

gut, das ist dann eine ganz andere Dimension. Stehen auf Blatt 1 alle Werkzeuge, die zur Verfügung stehen? Oder sieht das so aus, wie im Beispiel?

vukadonis · 6. März 2020

Nein es stehen nicht alle, es sind 110, wobei manche Werkzeuge auch mehrmals angelegt werden können. Deswegen dachte ich ab Zeile 3 bis letzte belegte Zeile.

Klaus-Dieter · 6. März 2020

Hallo,

die Frage bezog sich auf deine Originaldatei, nicht auf das Beispiel im Forum.

vukadonis · 7. März 2020

Die Originaldatei wird ab Zeile 3 mindestens 110 Zeilen haben, 9-Spalten.
Wie gesagt der Filter reicht mir nach 3 Spalten, wenn es einfacher ist kann auch nach allen 9 gefiltert werden,.

erpe · 7. März 2020

Hallo,

vielleicht wirst du hier fündig: Formation Excel VBA JB

Unter F: Formulaire(ListBox multi-colonnes)
Da gibt es mehrere Möglichkeiten.
Allerdings in französisch, VBA in englisch.
Es gibt ja Google-Übersetzer

Gruß
Rainer

vukadonis · 7. März 2020

Hallo erpe,
vielen dank für denn Tipp, habe einiges gefunden was für mich in frage kommen würde. Vielleicht sogar zu viel *Smilie
Danke an alle

hubert17 · 8. März 2020

Hallo,

konnte das Problem mit den unterschiedlichen Formatierungen lösen.

Code:

Sub UF1_Standard(xUF As UserForm, xOK As Boolean)
Dim lZeile As Long
Dim arr_Filter
Dim i, j, x, n As Long
Dim arr_Liste() As Variant, objSortList As Object, objArrayList As Object
'arr_Filter = Array("Werkzeug", "Durchmesser", "Bearbeitung", "T-Code,Radius") 'Ein Array mit den Filter Optionen

With xUF
If xOK Then
.ListBox1.ColumnCount = 9
.ListBox1.ColumnWidths = "5cm; 1cm; 3cm; 2cm; 1cm; 1cm; 1cm; 1cm; 1cm"
End If

'In dieser Routine laden wir alle vorhandenen
'Einträge in die ListBox1
.ListBox1.Clear 'Zuerst einmal die Liste leeren
arr_Liste = Tabelle1.ListObjects("meineListe").DataBodyRange.Value
.ListBox1.List = arr_Liste

If xOK Then

For n = 1 To 3
On Error Resume Next ' kann auskommentiert werden wenn Problem Spalte B gelöst

'die beide nachfolgenden Objekte stellt das Betriebssystem seit Win-XP SP3 bereit
'sortiertes ListArray (aus dem Dot.Net-Framework)
'Vorteil: alle übernommenen Einträge werden automatisch sortiert
'Sonstiges: keine doppelten Werte möglich / für die Combobox ein Vorteil
Set objSortList = CreateObject("System.Collections.SortedList")
'normale Arrayliste (aus dem Dot.Net-Framework)
'erforderlich, da die Listbox mit 'objSortList' nichst anfangen kann
Set objArrayList = CreateObject(Class:="System.Collections.ArrayList")

objSortList("") = objSortList("")
'alle Familiennamen in Array 'arr_Liste' durchlaufe
With objSortList
For i = 1 To UBound(arr_Liste, 1) '& UBound(arr_Liste2, 2)
'es werden keine Fam-namen übernommen, die schon vorhanden sind
'und gleichzeitig werden die vorhandenen Namen sortiert!
'objSortList(arr_Liste(i, n)) = objSortList(arr_Liste(i, n))
If Not .contains(CStr(arr_Liste(i, n))) Then .Add CStr(arr_Liste(i, n)), 0

Next i
End With
'Daten aus dem sortierten Array in eine Arrayliste schreiben
objArrayList.AddRange objSortList.Keys
'Combobox füllen
Select Case n
Case 1
.ComboBox1.List = objArrayList.ToArray
Case 2
.ComboBox2.List = objArrayList.ToArray
Case 3
.ComboBox3.List = objArrayList.ToArray
End Select
Set objArrayList = Nothing
Set objSortList = Nothing
Next n
End If
End With

Erase arr_Liste

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bezüglich der Filteranfrage. Soll es so sein, das sich nicht nur die Elenmente in der Userform reduzieren, sondern auch die Elemente im Filter?

Office: Userform

Userform

Userform

Userform

Userform

Userform - Similar Threads - Userform

einfache suche via userform wie im browser

Monats Kalender über Userform

Userform unterdrücken - wenn Datei von andere Datei geöffnet wird

UserForm in Office 2019 für MacOS fehlt

Userform Login Benutzername in Zelle schreiben

Datum in Userform formatieren

UserForm zum bearbeiten von Tabellen und speichern