AW: Laufzeitfehler Userform
19.10.2022 21:05:16
GerdL
Moin
Stelle im VBA-Editor bei -Extras-Optionen-Allgemein
Unterbrechen bei Fehlern auf "In Klassemodul"
Eine Tabelle "datenbank" war nicht in der Beispieldatei. Ich habe deshalb die Codezeile beim Combobox1_Change abgeändert.
Option Explicit
Private Sub ComboBox1_Change()
Dim X As Long, bln As Boolean
ThisWorkbook.Names("sortierenalias").RefersTo = ComboBox1.Value
With Sheets("Tabelle1").Range("A1").CurrentRegion
With .Offset(1, 0).Resize(.Rows.Count - 1)
.Sort Key1:=.Cells(1, 13), Order1:=xlAscending, Header:=xlNo
X = WorksheetFunction.Sum(.Columns(13))
If X = 0 Then X = .Rows.Count
ListBox1.RowSource = Sheets("Tabelle1").Cells(2, 1).Resize(X, 5).Address(external:=True)
End With
End With
End Sub
Private Sub UserForm_Initialize()
Dim LetzteZeile As Long, Zelle As Range, i As Long
With Me.ListBox1
.ColumnCount = 12
.ColumnWidths = "60;30;40;30;35;75;90;60;60;60;45;60"
.ColumnHeads = True
.Font.Size = 10
End With
With Worksheets("Tabelle1")
LetzteZeile = .Range("A" & .Rows.Count).End(xlUp).Row
Me.ListBox1.RowSource = .Name & "!A2:L" & LetzteZeile
End With
With ComboBox1
For Each Zelle In Sheets("Tabelle1").Columns(5).Cells(1).Resize( _
WorksheetFunction.CountA(Sheets("Tabelle1").Columns(5), 1))
For i = 0 To .ListCount - 1
If Zelle.Text .List(i) Then
.AddItem Zelle.Text, i
End If
Next
End With
End Sub
Gruß Gerd