Zellverknüpfung zu optionsfeld

Timo · 2019-07-12T08:12:20+00:00

Hallo Zusammen Im Betrieb haben wir ca. 40 Maschinen für den Allg. Gebrauch und 16 Mitarbeiter. Wenn ein Mitarbeiter eine Maschine nimmt, betätigt er in der Maschinenspalte und in der Namenszeile das entsprechende Optionsfeld. Die Optionsfelder der jeweiligen Maschinenspalte sind gruppiert. Zur besseren Übersicht möchte ich nun wenn ein Optionsfeld aktiviert ist, die entsprechede Zelle in welcher das Optionsfeld liegt einfärben. Da es ca. 650 Felder hat wäre es cool wenn man das in wenigen Schritten machen könnte. Kann mir eventuell jemand helfen? Vielen Dank Gruss Timo

Hi
du könntest jeden Optionbutton mit einer Ausgabezelle verknüpfen (Zelladresse in der Eigenschaftsliste bei "LinkedCell" eintragen) und hierfür die Zelle verwenden, in welcher der Button liegt.
in der Zelle steht dann der Buttonzustand mit WAHR oder FALSCH
dies kannst du nutzen, um die Zelle mit Hilfe der Bedingten Formatierung umzufärben (einfach die Formel: =B2 dh die Zelle selbst verwenden)
damit du nicht jeden Button einzeln ändern musst, kannst du dir ein kleines Makro schreiben und dieses einmalig laufen lassen (bzw immer dann, wenn du neue Buttons eingefügt hast).

Sub test()
Dim x As Object
For Each x In ActiveSheet.Shapes
If x.Name Like "Op*" Then
x.OLEFormat.Object.LinkedCell = x.TopLeftCell.Address
End If
Next
End Sub

Gruß Daniel

HI
ich würde generell nicht mit Optionbuttons arbeiten, sondern das BeforeDouble_Click-Event dafür verwenden.
dh bei Doppelklick auf eine Zelle werden alle Zellen in der Spalte geleert und in die angeklickte Zelle ein X oder ein anderer Buchstabe eingetragen, damit hast du dann ein Optionbutton-Verhalten:
dazu reicht dieser Code im Modul des Tabellenblatts.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Range("B2:AO17")
If Not Intersect(Target, .Cells) Is Nothing Then
Intersect(.Cells, Target.EntireColumn).ClearContents
Target.Value = "x"
Cancel = True
End If
End With
End Sub

wenn jetzt Maschinen oder Mitarbeiter hinzukommen oder wegfallen, brauchst du nur im Code den Zellbereich anpassen oder du schreibst das so, dass der Zellbereich für die Tabelle automatisch berechnet wird, beispielsweise so, wenn in Zeile 1 die Maschinen und in Spalte A die Mitarbeiter stehen:

with Cells(1, 1).Currentregion
with .Offset(1, 1).Resize(.Rows.count - 1, .columns.count - 1)
end with
end with

Gruß Daniel

Forumthread: Zellverknüpfung zu optionsfeld

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial