Good Morning folks I am looking for a way to check if a position that I can aquire by code (e.g .Cells(x,y)) contains a checkbox and what value (e.g 0 or 1) that checkbox has.
The reason for this is that I want to automatically create an overview about data in different sheets, ordered by the content of a certain cell as well as by the state of several checkboxes each row.
The following code is what I came up with concerning the testing of the cell content. Now the row of each cell checked this way also contains a checkbox at .Cells(ICountRow, 2) .Cells(ICountRow, 5) and .Cells(ICountRow, 6). But I don not how how to acces the value of the checkbox therein. The checkboxes used by me are from the Forms toolbar.
Sub Process_Overview()
Dim ICountRow As Integer
Dim ICounttest1 As Integer
Dim ICounttest2 As Integer
Dim ICounttest3 As Integer
Dim ICounttest4 As Integer
Dim ICounttest5 As Integer
LName = Application.Caller
ICounttest1 = 0
ICounttest2 = 0
ICounttest3 = 0
ICounttest4 = 0
ICounttest5 = 0
If ActiveSheet.DrawingObjects(LName).Value > 0 Then
ActiveSheet.DrawingObjects(LName).Value = 0
End If
For ICountRow = 15 To 300 Step 1
If Worksheets(3).Cells(ICountRow, 17).Value = "test1" Then
ICountUhde = ICounttest1 + 1
ElseIf Worksheets(3).Cells(ICountRow, 17).Value = "test2" Then
ICountHeraeus = ICounttest2 + 1
ElseIf Worksheets(3).Cells(ICountRow, 17).Value = "test3" Then
ICountJohnson = ICounttest3 + 1
ElseIf Worksheets(3).Cells(ICountRow, 17).Value = "test4" Then
ICountYara = ICounttest4 + 1
ElseIf Worksheets(3).Cells(ICountRow, 17).Value = "test5." Then
ICountna = ICounttest5 + 1
ElseIf Worksheets(3).Cells(ICountRow, 17).Value = "Test5" Then
ICountna = ICounttest5 + 1
End If
Next ICountRow
ActiveSheet.Cells(9, 4).Value = ICounttest1
ActiveSheet.Cells(10, 4).Value = ICounttest2
ActiveSheet.Cells(11, 4).Value = ICounttest3
ActiveSheet.Cells(12, 4).Value = ICounttest4
ActiveSheet.Cells(13, 4).Value = ICounttest5
End Sub
-----
Sincerely yours John
PS I already posted the question in an Excel newsgroup but sadly haven't been answered.
Bookmarks