Tabelleneinträge nur mit eigener ID anzeigen lassen
10.02.2024 23:13:38
Basic_II
ich habe ein Problem und komme nicht weiter, weshalb ich mich nun einem Forum angeschlossen habe, wo ich schon vieles durch nachschlagen konnte.
Folgendes Problem:
Ich Möchte eine Tabelle ausgeben lassen, die nur die Zeilen ausgibt, die mit der ID aus einer TextBox mit der aus der Tabelle übereinstimmen.
Mein derzeitiger Basis-Code sieht so aus:
Private Sub listboxbefuellen()
'Zellbereich einlesen
Dim rng As Range
Set rng = ShShootHistorie.Range("A1").CurrentRegion
Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1)
'ListBox befüllen
With ListBoxShootHistorie
.RowSource = rng.Address(external:=True)
.ColumnCount = rng.Columns.Count ' Spaltenanzahl festlegen
.columnWidths = "50;110;30;35;30;35;30;35;30;35;100;100" ' Spaltenbreite festlegen
.ColumnHeads = True 'Überschriften anzeigen (True = ja, False = nein)
.ListIndex = 0
End With
End Sub
Die Tabelle wird (ohne ID Filter) super dargestellt.
Jedesmal wenn ich andere Codes verwende, kann ich die Spalten nicht mehr einstellen oder die Überschrift ist anklickbar.
Ich versuche es schon seit mehreren Tagen. Langsam sehe ich den Wald vor lauter Bäume nicht mehr und versuche mich immer wieder an den Basis-Code.
Könnte mir jemand n Tipp oder einen kleinen Code geben?
Viel Dank
Anzeige