Habe eine Frage zum Thema Checbox.
In Tabelle1 Zelle a1 steht z.B. ay.
Jetzt möchte ich, wenn ich in einer Checbox ein Hacken setze, das der Inhalt von der Zelle a1
nach Tabelle2 in Zelle a1 übertragen wird.
Gruß Gunter
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets(2).cells(1,1).Value = ActiveSheet.Cells(1, 1).Value
End If
End Sub
GrussPrivate Sub CheckBox1_Click()
Sheets(2).Cells(1, 1).Value = IIf(CheckBox1.Value, ActiveSheet.Cells(1, 1).Value, "")
End Sub