Checkboxen in Userform

Kurt · 2007-07-29T18:27:08+00:00

Hey Fachleute, habe eine Userform1 mit 5 Checkboxen. Wenn ich eine Checkbox anklicke, wird in der Datenbank ein Filter gesetzt und nur das Kriterien ausgesucht, z.b. hier "Tische in Spalte2". (Habe: Schrank, Tisch, Stuhl, Hocker, Sessel) Soweit i.o. Wenn ich die Userform1 schließe und wieder öffne sind zwar noch die Daten der Datenbank vorhanden, jedoch das Häckchen bei der Checkbox ist weg. Wie kann man das hinkriegen das das Häcken reingesetzt wird wenn ich die Userform1 öffne und noch der Filter bei "Stuhl Spalte 3" vorhanden ist ? Kann man auch, wenn ich Stuhl und Hocker ausgewählt hatte, das die beiden Checkboxen beim öffnen der Userform1 der Hacken drin ist ? gruß KURT P

Hallo Kurt,
ich habe mal gestern gesucht und ein Codeanstz von Beverly (Karin) gefunden. Den hääte ich als Ansatz nnutzt zur Lösung des Problem. Da Du nicht gewllt warst ein Beispiel hochzuladen und ich es ablehne so was nachzubauen, ein Nachbau sieht anders aus als das Originla. Bleibt Dir nur übrig den Code seler anzupassen.


Sub ChangeFilters()
'* 08.12.06                                       *
'* erstellt von Karin, http://beverly.excelhost.de*
'* beverly@excelhost.de                           *
Dim wsTabelle As Worksheet
Dim inFilter As Integer
Dim filterArray()
Set wsTabelle = Worksheets("Adresse")
Application.EnableEvents = False
With wsTabelle.AutoFilter
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
For inFilter = 1 To .Count
With .Item(inFilter)
If .On Then
On Error Resume Next
filterArray(inFilter, 1) = .Criteria1
If .Operator Then
filterArray(inFilter, 2) = .Operator
filterArray(inFilter, 3) = .Criteria2
End If
End If
End With
Next
End With
End With
With wsTabelle
For inFilter = LBound(filterArray()) To UBound(filterArray())
'           Original
If IsNumeric(filterArray(inFilter, 1)) Then
.Cells(6, inFilter) = filterArray(inFilter, 1)
Else
.Cells(6, inFilter) = Mid(filterArray(inFilter, 1), 2)
End If
''           nur erstes Kriterim wird ausgelesen
''           bei >= wird das erste Zeichen abgeschnitten, bei nur gleich das "="
'            .Cells(106, inFilter) = Mid(filterArray(inFilter, 1), 2)
''           mit Operator wird Datum als Zahl angezeigt
''            .Cells(106, inFilter) = "'" & filterArray(inFilter, 1)
If filterArray(inFilter, 1)  0 Then
.Cells(106, inFilter).Interior.ColorIndex = 4
Else
.Cells(106, inFilter).Interior.ColorIndex = xlNone
End If
Next inFilter
End With
Application.EnableEvents = True
Set wsTabelle = Nothing
End Sub

Gruß Hajo

Forumthread: Checkboxen in Userform

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Checkboxen in Userform

Forumthread: Checkboxen in Userform

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread