Teste schon Tagelang warum mir die Spalte AO nicht gefiltert wird.
Habe eine UserForm wo der untere Code eingefügt ist.
'UserForm Trainer
Private Sub UserForm_Activate()
Dim intErsteSpalte As Integer, intErsteZeile As Integer
'Jetzt wird der temporäre Bereich gelöscht und die gefilterte Liste dorthin kopiert :
intErsteSpalte = 40 'Spalte AN
intErsteZeile = 10000 ' Ab Zeile 10000
Range(Cells(intErsteZeile, intErsteSpalte), Cells(Rows.Count, Columns.Count)).ClearContents
[A1].CurrentRegion.Copy Cells(intErsteZeile, intErsteSpalte)
With ListBox1
.ColumnCount = True
.ColumnWidths = "1,1 cm;2,7 cm;1,3 cm;6,2 cm;5 cm;5 cm;2,3 cm;0,4 cm"
.Font.Size = 11
.RowSource = Cells(intErsteZeile, intErsteSpalte).CurrentRegion.Address
End With
'MsgBox ListBox1.RowSource 'Nur zur Kontrolle
' Textbox Anzahl Spiele zählen
TextBox_Trainer = ListBox1.ListCount - 1 & " Spiele als LASK_Trainer"
' Zuseher zusammenzählen
With WorksheetFunction
TextBox_Zuseher = Sheets("Alle_Daten").Range("X1")
TextBox_Zuseher = Format(UserForm_Trainer.TextBox_Zuseher, "#,##0")
End With
' Anzahl der Spiele
TextBox_AnzahlSpiele = Sheets("Alle_Daten").Range("P1")
' Punkteschnitt
TextBox_Punkteschnitt = Sheets("Alle_Daten").Range("R1")
TextBox_Punkteschnitt = Format("0" & TextBox_Punkteschnitt, "#0.00")
'Siege gegen Ausgewählte Mannschaft
TextBox_Siege = Sheets("Alle_Daten").Range("S1")
'Unentschieden gegen Ausgewählte Mannschaft
TextBox_Unentschieden = Sheets("Alle_Daten").Range("T1")
'Niederlagen gegen Ausgewählte Mannschaft
TextBox_Niederlagen = Sheets("Alle_Daten").Range("U1")
' Punkte gegen Ausgewählte Mannschaft
TextBox_Punkte = Sheets("Alle_Daten").Range("Q1")
TextBox_Zuseher = Sheets("Alle_Daten").Range("X1")
TextBox_Zuseher = Format("0" & TextBox_Zuseher, "#,###0")
TextBox_Zuseherschnitt = Sheets("Alle_Daten").Range("Y1")
TextBox_Zuseherschnitt = Format("0" & TextBox_Zuseherschnitt, "#,###0")
' Geschossene Tore
TextBox_geschossene = Sheets("Alle_Daten").Range("AO1")
' Punkte_Schnitt gegen Ausgewählte Mannschaft
With WorksheetFunction
TextBox_Punkteschnitt = Sheets("Alle_Daten").Range("R1")
TextBox_Punkteschnitt = Format("0" & TextBox_Punkteschnitt, "#,###0")
End With
End Sub
In Spalte AO1 steht die Formel
Dort steht auch die die Summe 50 was auch stimmt.
Alle Werte sind als Zahlen formatiert.
In der TextBox_geschossene steht immer O drinnen.
Weis jemand warum das hier nicht gefiltert wird`?
Danke, SG
Heinz