ich möchte aus einer Tabelle, welche via Autofilter gefiltert wurde, nur die sichtbaren Zeilen an eine Listbox übergeben.
Bislang wird lediglich die komplette Tabelle übergeben.
Ich habe immer wieder Verschiedenes ausprobiert, verstehe aber die Systematik dahinter noch nicht, wie ich die Übergabe der sichtbaren Zeilen an eine Listbox ausführen kann.
Meine Kenntnisse in VBA beschränken sich darauf, daß ich mir aus dem Netz Codeschnipsel raussuche und diese mehr oder weniger nach dem trial an error Prinzip an meine Vorstellungen anpasse.
Ich hoffe Ihr könnt mir hier ein stückweit unter die Arme greifen.
Vielen Dank schon einmal.
Grüße
Peter
Hier ist der Code:
Option Explicit
Sub CryptoTG_()
'Variablen für die Größe der Tabelle bestimmen
Dim Tabelle As Range
Dim lastRow As Integer
Dim lastColumn As Integer
Application.Workbooks("1aktuelle Preise.xlsm").Activate
Application.Worksheets("CryptoUF1").Activate
'Ermittlung letzte Zeile und letzte Spalte
lastRow = Worksheets("CryptoUF1").Range("a300").End(xlUp).Row
lastColumn = Worksheets("CryptoUF1").Range("z1").End(xlToLeft).Column
Set Tabelle = Worksheets("CryptoUF1").Range("A1" & ":g" & lastRow)
With ETF_Start.ListBox3
.ColumnHeads = False
.ColumnCount = Tabelle.Columns.Count
.RowSource = Tabelle.Address
.Height = .ListCount * .Font.Size * 1.22
.ColumnWidths = "55 Pt;55 Pt;65 Pt;65 Pt;70 Pt;65 Pt;65 Pt"
.Font.Size = 12
.Font.Bold = True
End With
End Sub