Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Checkboxen in Userform

Checkboxen in Userform
29.07.2007 18:27:08
Kurt
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

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

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen in Userform
29.07.2007 18:31:00
Hajo_Zi
Hallo Kurt,
lese beim Start der UserForm den Filter aus und setzte entsprechend die CheckBoxen.

AW: Checkboxen in Userform
29.07.2007 18:37:23
Kurt
Hey Hajo,
wie geht das ?
Ich möchte nur, wenn die UF wieder geöffnet wird, das die Haken drin sind.
Die UF hatte mein Vater "gebastelt".
gr KURT P

AW: Checkboxen in Userform
29.07.2007 18:43:36
Hajo_Zi
Hallo Kurt,
sehe ich das falsch oder ist das ein ganz spezieller Code nur für diese Datei? Ein Nachbau sieht immer anders aus als das Original.
Gruß Hajo

Anzeige
AW: Checkboxen in Userform
29.07.2007 20:26:00
Kurt
Hallo Hajo,
brauch das für die Datei, könnten allerdings noch bis zu 10 Auswahlkriterien dazu kommen !
gr Kurt P

AW: Checkboxen in Userform
29.07.2007 18:44:00
Knut
Hi,
entlade die Userform nicht, blende sie mit Me.Hide aus.
mfg Knut

AW: Checkboxen in Userform
29.07.2007 20:28:05
Kurt
Hallo Knut,
das klappt, gibt es da auch keinen Nachteil ?
gr KURT P

AW: Checkboxen in Userform
29.07.2007 20:34:00
Knut
Hi,
wenn es den angestrebten Zweck erfüllt, ist es doch ok, oder?
mfg Knut

Danke an Hajo und Knut ! Ende
29.07.2007 21:42:00
Kurt
Hallo Knut, Du hast RECHT.
Danke für die Hilfe an Euch BEIDE !
gr KURT P

AW: Danke an Hajo und Knut ! Ende
29.07.2007 22:00:58
Hajo_Zi
Hallo Kurt,
das Problem ist aber nicht gelöst falls Datei geschlossen und wieder geöffnet und UserForm gestartet wird. Es sei den beim schliessen setzt Du alle Autofilter zurück?

Anzeige
Du hast Recht
30.07.2007 10:39:22
Kurt
Guten Morgen Hajo,
leider hast Du Recht, wenn Du ein Beispiel hast dann gern, ansonsten weiß ich auch
nicht weiter, da ich in VB nicht so bewandert bin. Mein Vater könnte mir eher helfen, ist aber auf
Dienstreise.
gr KURT P

AW: Du hast Recht
30.07.2007 10:44:00
Hajo_Zi
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

Anzeige
Danke -)
30.07.2007 12:57:00
Kurt
Hey Hajo,
ich möchte ja mal was lernen, deshalb ist das Makro gerade für mich i.o.,
herz. Dank für die Hilfe ,
gr. KURT P

299 Forumthreads zu ähnlichen Themen

Checkboxes in Userform prüfen
Jonatan

Hallo,
ich würde gerne in einer Userform alle Checkboxes prüfen, welche angeklickt sind und welche nicht.
Anschließend soll die Checkbox in ein Array gespeichert werden.
Irgendwie klappt das mit der Abfrage aber nicht.
Könnt ihr mir weiterhelfen?
For i = 1 To 8 ' Es sind 8 c...
19.09.2008 09:11:35
Thread-ID: 1010902
3 Beiträge
Anzeige
Checkbox Value auslesen
Fatza

Hallo an alle,
ich habe ein kleines Problem. In meinem Excel-Formular habe ich 4 Checkboxen. Wenn nur eine von diesen aktiviert ist, soll die Druckfunktion frei geschaltet werden, wenn nicht soll eine Messagebox kommen, mit dem Hinweis das eine Checkbox ausgewählt werden muss.
Wer kann...
09.10.2008 09:52:07
Thread-ID: 1015248
8 Beiträge
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
Anzeige
Checkbox-Werte in Userforms dauerhaft speichern
Petra

Hallo,
ich möchte die Werte von Checkboxen einer Userform dauerhaft speichern und habe gelesen, dass ich dazu die Werte in einer Tabelle speichern und wieder auslesen muss. Leider habe ich keine Ahnung wie das geht. Kann mir bitte jemand einen Hinweis geben? Die Datei mit den Userforms habe...
22.10.2008 10:05:00
Thread-ID: 1018246
3 Beiträge
Checkboxen in Userform
Sebastian

Hallo zusammen,
Dank Tino (https://www.herber.de/bbs/user/56484.xls
) konnte ich einen Teil meines Problems schon lösen. Aber leider noch nicht ganz. Kurz zu meinem eigentlichen Problem. Ich möchte in einer (flexiblen) Userform Textboxen aus einer Tabelle füllen. Diesen Teil konnte ich...
04.11.2008 15:22:00
Thread-ID: 1021663
4 Beiträge
Problem mit Checkboxen per Vba zu erzeugen
Reinhard

Hallo Wissende,
im Zuge meines Versuches jmdm. in einem anderen Forum dabei zu helfen in einer Spalte ca. 90 Checkboxen per Vba zu erstellen stiess ich auf sehr unerwartete Schwierigkeiten.
Ich bekam es hin, daß die ca. 90 Checkboxen erstellt werden, aber sie sind schon mit einem Häkche...
13.11.2008 23:45:36
Thread-ID: 1024386
7 Beiträge
Mit checkboxen Einträge in Liste färben
adrian

Hallo,
habe fogendes kleines/ bzw. großes Problem und keine Idee wie ich es am geschicktesten Lösen könnte.
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen) Supplier habe ich 3 Checkbo...
18.11.2008 16:54:24
Thread-ID: 1025705
2 Beiträge
Checkbox-Werte in Userform dauerhaft speichern.
Petra

Hallo zusammen,
Ich habe eine Userform mit vielen Checkboxen und schreibe deren Werte in eine Tabelle mit
"Worksheets("Checkbox-Werte").Range("B57") = checkbox.Value". Das funktioniert auch.
Wie kann ich diese Werte beim nächsten Öffnen der Userform wieder einlesen und den Checkbox...
26.11.2008 10:09:00
Thread-ID: 1027947
12 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
7
2
7
2
3
6
1
11
2
2
3
3
2
2
4
1
3
7
2
5
6
2
2