Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1252to1256
1252to1256
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CheckBox in einer UF

Forumthread: CheckBox in einer UF

CheckBox in einer UF
Heinz
Guten morgen,im Forum
Ich habe in einer UF eine CheckBox.
Leider wird das Makro beim anklicken nicht ausgelöst.
Könnte man den Code eventuell etwas verkürzen?
Gruß
Heinz
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF13").Replace What:="21", Replacement:="1", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF13").Replace What:="22", Replacement:="2", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF13").Replace What:="23", Replacement:="3", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.ScreenUpdating = True
End Sub

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: CheckBox in einer UF
16.03.2012 08:09:28
hary
Hallo Heinz
also bei mir geht's soweit ich's sehe. 

Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
With Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF3")
.Replace What:="21", Replacement:="1", LookAt:=xlPart
.Replace What:="22", Replacement:="2", LookAt:=xlPart
.Replace What:="23", Replacement:="3", LookAt:=xlPart
End With
Application.ScreenUpdating = True
End Sub

gruss hary
Anzeige
AW: CheckBox in einer UF
16.03.2012 08:15:05
Heinz
Hallo Hary
Echt super.DANKE!!
Das Makro wurde bei mir nicht ausgelöst,da der Blattschutz gesetzt war.
Nochmals Danke
Schönes WE
Gruß
Heinz
Du hast ja AF13 schon korrigiert ;o) oT
16.03.2012 08:15:39
Matthias
AW: Du hast ja AF13 schon korrigiert ;o) oT
16.03.2012 08:23:12
Heinz
Guten morgen Matthias
Ja habe ich.
Könntest du mir eventuell weiterhelfen?
Wenn der Code ausgeführt wurde,das das Häckchen wieder weg ist. So auf die Art wie UnladMe 
With Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF13,B17:AE17,B21:AF21,B25:AE25,B29:AF29,B33:AF33,B37:AE37,B41:AF41,B45:AE45,B49:AF49")
Gruß
Heinz
Anzeige
AW: Haken raus
16.03.2012 08:40:49
hary
Hallo Heinz 

Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
With Sheets("Alle Schichten").Range("B5:AF5,B9:AD9,B3:AF3")
.Replace What:="21", Replacement:="1", LookAt:=xlPart
.Replace What:="22", Replacement:="2", LookAt:=xlPart
.Replace What:="23", Replacement:="3", LookAt:=xlPart
End With
CheckBox1 = 0 'Haken raus
Application.ScreenUpdating = True
End Sub

Du kannst das Makro trotz Blattschutz einsetzen. Schau mal unter Protect UserInterfaceOnly
gruss hary
Anzeige
Danke Hary
16.03.2012 08:47:33
Heinz
Danke Hary
Jetzt funktiniert alles wie gewollt.
Gruß
Heinz
AW: Du hast ja AF13 schon korrigiert ;o) oT
16.03.2012 08:41:30
Matthias
Hallo
Ich meinte hary, er hat es in seiner Antwort korrigiert.
Weil das sonst keinen Sinn gemacht hätte.
Du hast es vielleicht noch garnicht bemerkt
B5:AF5 und B9:AD9 befinden sich ja bereits im Range(B3:AF13)

Antwort:
CheckBox1.Value = False
Aber warum benutzt Du kein Commandbutton?
Gruß Matthias
Anzeige
Danke Matthias
16.03.2012 08:46:35
Heinz
Hallo Matthias
B5:AF5 und B9:AD9 befinden sich ja bereits im Range(B3:AF13)
Danke für dein Adlerauge. Habe B3 in B13 geändert.
Auch dir ein schönes,sonniges WE
Gruß
Heinz
;

Forumthreads zu verwandten 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
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
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
Werte von Checkboxen in Userform speichern
Checkboxen

Hallo liebe Forumleser,
ich habe in VBA Excel eine Userform mit Checkboxen erstellt. Ein "OK Button" in der Userform schreibt die Captions der angekreuzten Checkboxen in eine Tabelle:
Worksheets("BDaten").Range("D65:D67").Clear
If chkAKurzI1 = True Then
Worksheets("BDaten").Cell...
17.10.2008 16:39:00
Thread-ID: 1017214
8 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
Anzeige
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
CheckBox Häkchen verschwinden lassen
Frank

Hallo Excelfreunde!!!
Allen noch ein schönes Rest Weihnachten. Nun meine Frage und vorab schon allen Danke!!!
In einer UF befinden sich nehrere CheckBoxen, welche nacheinander angeklickt werden und dann bestimmte Ereignisse auslösen. Anschließend öffne ich noch eine zweite UF in der bef...
26.12.2008 16:56:00
Thread-ID: 1035314
3 Beiträge
Änderung von Checkboxen n. Druckansicht verhindern
Checkboxen

Hallo zusammen,
ich habe auf meinen Arbeitsblatt ein Rechteck eingefügt. Auf diesem Rechteck habe ich eine Textbox und drei Checkboxen platziert. Jedes dieser Objekte habe ich per Objekteigenschaften wie folgt formatiert:
Von Zellposition und -größe unabhängig
Den Haken bei Objekt d...
29.01.2009 08:31:00
Thread-ID: 1044782
3 Beiträge
Checkbox in Zelle schreiben
Markus

Hallo
Wie kann ich erreichen, daß zwei Checkboxen in einer Userform in die Zellen ein (G) schreiben und wenn ich die Checkboxen das Häcken entferne auch das (G) nicht mehr drin ist.
Wäre es auch möglich, daß wenn Checkbox1 ein Häcken hat Checkbox2 keines mehr hat.
Checkbox1 in Zelle...
30.01.2009 22:42:52
Thread-ID: 1045549
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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