Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Name der Checkbox in variable Zelle ausgeben

Name der Checkbox in variable Zelle ausgeben
03.05.2006 11:43:47
edeltraud
Hallo Excel-Kollegen,
ich steck schon wieder fest und brauche Eure Hilfe.
Per Makro werden in ein Excelsheet mehrere Checkboxen in ganz bestimmte Zeilen gesetzt.
Jeder dieser Checkbox ist ein Wert zugeordnet.
Wenn jetzt der User eine Checkbox aktiviert, soll der Wert in das Sheet eingetragen werden und andersrum wieder entfernt werden, wenn die jeweilige Checkbox deaktiviert wird.
Da es bei jedem Makrostart unterschiedlich viele Checkboxen sein können (max. 50), kann ich mich nicht direkt auf den Namen beziehen.
Ich glaube, wenn ich es schaffen könnte, den Namen der grade eben erstellten Checkbox in mein Sheet mit den hinterlegten Werte in die entpsrechende Zeile zu packen, dann könnte ich mich später beim Anklicken der Boxen wieder drauf beziehen.
Aber ich kriegs einfach nicht hin, diesen Namen in diese variable Zelle zu setzen.
Habt Ihr einen Tipp für mich?
Hier ein Auszug aus meinem Makro, der das Erstellen der Boxen regelt:
'Checkbox erstellen
If systeme.Cells(zeileSysL, 7) = "x" Then
Dim WS As Worksheet
Dim rngZ As Range
Set WS = Application.Workbooks("Kalkulation.xls").Sheets("Blatt2") 'ActiveSheet
Set rngZ = WS.Cells(zeileblatt2, 3)
With WS.OLEObjects.Add(ClassType:="Forms.CheckBox.1")
.Object.Caption = ""
.Height = rngZ.Height - 5
.Width = rngZ.Width / 5
.Top = rngZ.Top + (rngZ.Height - .Height) / 2
.Left = rngZ.Left + (rngZ.Width - .Width) / 2
End With
systeme.Cells(zeileSysL, 8) = Preise.Cells(zeilePreise, 5) 'Preis aus Preisliste
blatt2.Cells(zeileblatt2, 4) = 0
End If
'***
Ich würde gerne neben den Wert (systeme.cells(zeileSysL,8) den Namen der Checkbox setzen, das wäre dann z.B. systeme.cells(zeileSysL,9).
Wenn es natürlich eine einfachere Methode gibt, dann bin ich für alle Anregungen offen.
Schon mal im Voraus vielen Dank für's Lesen.
Grüsse edeltraud

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name der Checkbox in variable Zelle ausgeben
03.05.2006 15:17:16
Yal
Hi,
die Lösung ist nicht einfach, da für jede einzelne Checkbox ein eigene Ereignis-Prozedure haben soll.
Du muss im Voraus alle mögliche Ereignis-Prozedure definieren. Ein Ereig-Proz "Checkbox100_Click" darf existieren, auch wenn keine Checkbox mit dem Name Checkbox100 existiert.
Im Kombination mit der Eigenschaft LinkedCell jenem Checkbox kann man dann gezielt steuern.
Einige Vorschlag, mit jeweils verschiedene Variation:

Private Sub CheckBox1_Click()
Me.Range(CheckBox1.LinkedCell).Value = Me.OLEObjects("CheckBox1").Name & " ist gerade " & IIf(CheckBox1, "an.", "aus.")
End Sub



Private Sub CheckBox2_Click()
Me.Range(CheckBox2.LinkedCell).Value = Me.OLEObjects(CheckBox2.Index).Name & " ist gerade " & IIf(CheckBox2, "an.", "aus.")
End Sub



Private Sub CheckBox3_Click()
Schreibe_zurück CheckBox3
End Sub

Sub Schreibe_zurück(cb)
Me.Range(cb.LinkedCell).Value = cb.Name & " ist gerade " & IIf(cb, "an.", "aus.")
End Sub
...
Viel Spass
Yal
Anzeige
AW: Name der Checkbox in variable Zelle ausgeben
04.05.2006 08:46:40
edeltraud
Hallo Yal,
ich hab gestern wie verrückt rumprobiert mit Deiner Lösung und es würde schon so funktionieren.
Aber so ganz glücklich bin ich nicht damit.
Glaubst Du nicht, daß ich die 50 Ereignis-Prozeduren nicht doch in eine zusammenfassen kann?
Ich hab mal was gelesen über "For each Checkboxes", das hatte aber nicht funktioniert.
Rein theoretisch können alle Checkboxen gleichzeitig abgearbeitet werden.
Vielen Dank auf jeden Fall für die Lösung.
Grüsse edeltraud
AW: Name der Checkbox in variable Zelle ausgeben
04.05.2006 13:49:45
Yal
... schön wär's.
Leider ist das Ereignis nur auf der Objekt-Ebene zu verwalten,
nicht auf der Collection.
Yal
Anzeige
AW: Name der Checkbox in variable Zelle ausgeben
04.05.2006 13:53:16
Peter
Servus,
schreib dir deine eigene Klasse wo du jedes Object schon beim erstellen erfasst.
MfG Peter
AW: Name der Checkbox in variable Zelle ausgeben
04.05.2006 13:55:54
edeltraud
Hallo Peter,
da komm ich jetzt nicht ganz mit. Gib mir nochmal einen Denkanstoss.
mfg edeltraud
Denkanstoss
04.05.2006 14:09:09
Peter
Servus,
du erstellst die Boxen wie bisher, anschließend lässt du Sie alle in die Klasse einlesen und verfügst bei jeder eingelesenen Checkbox Global über Ihre Ereignisse.


'#  Ort:    Klassenmodul des Tabellenblattes
Option Explicit
Private objOleBox() As clsOleBox
Private Sub Worksheet_Activate()
    Dim objControl As OLEObject
    Dim intCounter As Integer, intZ As Integer
    For Each objControl In Me.OLEObjects
        If objControl.progID = "Forms.CheckBox.1" Then
            ReDim Preserve objOleBox(intCounter)
            Set objOleBox(intCounter) = New clsOleBox
            Set objOleBox(intCounter).boxOleCtrl = objControl.Object
            intCounter = intCounter + 1
        End If
    Next
End Sub
'#  Ort:    Klassenmodul
'#  Name:   clsOleBox
Option Explicit
Public WithEvents boxOleCtrl As MSForms.CheckBox
Private Sub boxOleCtrl_Change()
    Call boxOleMacro(boxOleCtrl.Name, boxOleCtrl.Value)
End Sub
'#  Ort:        Modul
Option Explicit
Public Sub boxOleMacro(strNam As String, bolWert As Boolean)
MsgBox Sheets("Tabelle1").OLEObjects(strNam).Name & " / " & bolWert
End Sub


MfG Peter
Anzeige
AW: Denkanstoss
04.05.2006 14:22:52
edeltraud
Hi auch,
ich werds gleich mal ausprobieren.
gruss edeltraud
Checkboxen
09.05.2006 16:48:52
edeltraud
Hallo Peter,
ich hab mein Problem jetzt doch anders gelöst und diese 5 Zeilen für jede Checkbox kopiert.

Private Sub CheckBox1_Change()
nameChkBx = "CheckBox1"
If CheckBox1.Value = True Then Call CheckBoxT
If CheckBox1.Value = False Then Call CheckBoxF
End Sub

AW: Name der Checkbox in variable Zelle ausgeben
04.05.2006 13:53:20
edeltraud
Tja, dann hilfts eben nix. Ich bin eh schon froh, dass ich überhaupt eine Lösung hab.
Schönen Tag noch.
Grüsse Edeltraud

314 Forumthreads zu ähnlichen Themen

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
Anzeige
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
Umschaltfläche in verbundener Zelle zentrieren
Michael

Hallo,
hat jemand eine Idee, wie ich eine Umschaltfläche in einer verbundenen Zelle zentrieren kann, nachdem ich Zeilen eingefügt habe und die Schaltfläche nun irgendwo im oberen Drittel der verbundenen Zelle hängt ?
11.03.2009 15:57:39
Thread-ID: 1059159
19 Beiträge
Anzeige
Formularsteuerelement Dropdown Werte in Zelle
Ingrid

Hallo,
ich habe hier eine Exceldatei welche mehrere Formularsteuerelemente-Dropdowns hat.
Der jeweilig aktuell ausgewählte Wert soll in eine Zelle geschrieben werden.
Ich habe versucht dem Dropdown ein Makro zuzuweisen das tut aber nicht.
Nehme ich statt des Formularsteuerelemen...
28.09.2010 18:43:39
Thread-ID: 1179793
3 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Checkbox - formelinhalt in zelle wiedergeben
Björn

ich brauche 2 checkboxen mit einer funktion. wenn die eine markiert ist, dann soll in der zelle b38 das ergebnis einer funktion (=verketten(bla bla)) erscheinen. wenn die 2te checkbox makiert ist soll in der selben zelle das ergebnis einer anderen formel dort erscheinen. beide checkboxen gleich...
27.01.2011 19:37:52
Thread-ID: 1197716
4 Beiträge
Checkbox in zelle fixieren
Felix

Hallo,
ich habe mir aus Archiveinträgen diesen Code zusammengeflickt und theoretisch funktioniert er auch, um eine Zeile neben der Checkbox grün einzufärben, wenn diese aktiviert wird.
Private Sub CheckBox1_Click() If CheckBox1 Then Range("A2:l2").Interior.ColorIndex = 4 Else Range("A...
06.04.2011 14:03:12
Thread-ID: 1209300
5 Beiträge
zahlen aus excel in wordtabelle farbig einfügen
preusbep

hallo ich würde gerne zahlen die ich aus excel lese in eine wordtabelle farbig einfügen. Leider werden die Zahlen nicht farbig sondern bleiben schwarz !
Danke für die Hilfe Sub farbe3() Dim Farbe(1 To 3, 1 To 1) As Single Set Word = CreateObject("word.Application") For i = 1 To 3 Farbe(i, 1...
27.09.2011 15:29:42
Thread-ID: 1231690
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox

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
1
2
3
18
5
2
3
3
4
3
2
4
1
1
2
1
1
8
4
9
3
1
2
4
7