Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
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
Inhaltsverzeichnis

Tabellen mit CheckBoxen

Tabellen mit CheckBoxen
21.07.2014 19:07:49
Thomas
Hallo,
ich bin ein regelrechter Excel Nobi was die Makro Programmierung angeht und hoffe ihr könnt mir ein wenig weiterhelfen.
Aber im groben möchte ich dieses erzielen.
Tabelle 1
Spalte A Spalte B Spalte C Spalte D
Xyz CheckBox1 CheckBox2 CheckBox3
Blabla CheckBox1 CheckBox2 CheckBox3
Zzzzz CheckBox1 CheckBox2 CheckBox3
ttttt CheckBox1 CheckBox2 CheckBox3
… … … …
Man soll jede CheckBox1-3 jeweils in der Zeile nur einmal Anklicken können. (wenn das nicht so einfach geht wäre das auch nicht so wichtig)
Aber jetzt zum wesentlichen.
Nach dem Spalte A mit Wörtern belegt wurde sollen diese Wörter, nach Klick auf einem beliebigen Ausführungs-Button, in die Spalte A der nächsten Tabelle automatisch kopiert werden und in die Spalte B der nächste Tabelle soll ein Wert je nach Aktivierung der CheckBox1-3 eingetragen werden.
CheckBox1=1
CheckBox2=2
CheckBox3=3
Das heißt die nächste Tabelle würde dann so aussehen.
Tabelle 2
Spalte A Spalte B
Xyz 2
Blabla 3
Zzzzz 3
tttt 1
… …
Könnt ihr mir da weiterhelfen?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen mit CheckBoxen
22.07.2014 10:00:55
Daniel
Hi
würde ich ohne Checkboxen machen, sondern per Doppelklick auf die entsprechende Zelle.
der folgende Code trägt in die Zelle bei Doppelklick ein "x" ein und löschen es in den andern Spalten (Spalte B-D), der Code muss ins Modul des Tabellenblatts:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Columns(1).SpecialCells(xlCellTypeConstants).Offset(0, 1).Resize(, 3)
If Intersect(Target, .Cells) Is Nothing Then Exit Sub
Intersect(.Cells, Target.EntireRow).ClearContents
Target.Value = "x"
Cancel = True
End With
End Sub
der folgende Code überträgt dann die Daten mit der Auswerteformel ins zweite Tabellenblatt.
Sub test()
Sheets("Tabelle1").Columns(1).SpecialCells(xlCellTypeConstants).Copy
Sheets("Tabelle2").Cells(1, 1).PasteSpecial xlPasteValues
Sheets("Tabelle2").Columns(1).SpecialCells(xlCellTypeConstants).Offset(0, 1).FormulaR1C1 = "= _
IfError(Match(""x"",Tabelle1!RC2:RC4,0),"""")"
End Sub
Gruß Daniel
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige