irgendwie übersehe ich etwas, ich hoffe eine oder ein Fachexperte sieh das.
Ich habe in der UF gefiltert, es werden aber immer mehr Daten angezeigt obwohl
nur ein Datensatz vorhanden ist.
Ich habe die Makros aus dem Netz zusammengesucht, teste schon seit 2h.
Es sind 14 Spalten und ab Zeile 3 sind die Daten vorhanden also Zeile 2
sind die Überschriften.
Private Sub UserForm_Activate()
Dim lLetzte As Long
Dim hwndForm As Long
Dim hwndMenu As Long
Dim intY As Integer
Dim intLast As Integer
Dim intNext As Integer
Dim UserForm
Call Array_fuellen
With ListBox1 ' betrifft die ListBox1
' .Height = 62 ' die Höhe festlegen
' .Left = 20 ' den linken Randabstand festlegen
' .Top = 12 ' den oberen Randabstand festlegen
' .Width = 460 ' die Breite festlegen
.Font.Size = 9 ' die Schriftgröße festlegen
.ForeColor = RGB(0, 0, 255) ' Schriftfarbe immer mit RGB
.ColumnCount = 14 ' die Anzahl der Spalten festlegen
' die Breite der Spalten festlegen
.ColumnWidths = _
("0,7 cm;1,5 cm;2 cm;4 cm;3,5 cm;2,5 cm;1 cm;1,5 cm;1,3 cm;1,5 cm;1,2 cm;3,5 cm;3 cm;1cm") _
.Clear ' die ListBox leeren mzpqm nkp plz ort str nr.
.Column = aTmp
End With
Label111.Caption = Label111.Caption
TextBox7.Value = Format(TextBox7.Value, "0.0")
TextBox8.Value = Format(TextBox8.Value, "#,##0.00")
TextBox9.Value = Format(TextBox9.Value, "0.00")
Label110.Caption = Format(Label110.Caption, "0.00")
TextBox10.Value = Format(TextBox10.Value, "#,##0.00")
With ActiveSheet
lLetzte = IIf(.Range("A65536") "", 65536, .Range("A65536").End(xlUp).Row)
If lLetzte
Public Sub Array_fuellen()
Dim lLetzte As Long ' letzte belegte Zeile in Spalte A
Dim lZeile As Long ' For/Next Zeilen-Zähler
Dim lIndex As Long ' der Zeilen-Index im Array
Dim iSpalte As Integer ' der Spalten-Index im Array
With ActiveSheet
lLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
For lZeile = 3 To lLetzte 'war 2
'If Not IsEmpty(Cells(lZeile, 8)) Then ' Spalte H nicht leer?
lIndex = lIndex + 1
ReDim Preserve aTmp(1 To 15, 1 To lIndex) 'war 8
For iSpalte = 1 To 14 'war 7
aTmp(iSpalte, lIndex) = Cells(lZeile, iSpalte).Text
aTmp(15, lIndex) = lZeile 'war 8
Next iSpalte
'End If
Next lZeile
End With
End Sub
Public Sub CommandButton16_Click()
'- erst alles wieder einblenden------
' ActiveSheet.Range("A2:n65000").EntireRow.Hidden = False
' ActiveSheet.Range("A2:N2").Select
' Selection.AutoFilter
ActiveSheet.Range("B2").Select
ActiveSheet.Range("$A$2:$N$65000").AutoFilter Field:=2, Criteria1:="Ac2"
Call UserForm_ActivateEnd Sub
mfgwalter ph