|
Heyy ich bräuchte hilfe da ich mich null damit aus kenne
Und zwar habe ich mehrere Dateienblätter in einer Datei mit jeweils einer Tabelle die jeweils so ca 10 - 20 kontrollkästchen hat (Formularsteuerelemente) neben den kästchen werden mithilfe eines makros das datum ringetragen wenn man das kästchen an klickt
Hier ist der code
Sub Kontrollkaestchen_Aktiviert()
For i = 3 To 85
' Überprüfung für Spalte H und I
If Range("H" & i).Value = True And IsEmpty(Range("I" & i).Value) Then
Range("I" & i).Value = Date
ElseIf Range("H" & i).Value = False Then
Range("I" & i).ClearContents
End If
' Überprüfung für Spalte J und K
If Range("J" & i).Value = True And IsEmpty(Range("K" & i).Value) Then
Range("K" & i).Value = Date
ElseIf Range("J" & i).Value = False Then
Range("K" & i).ClearContents
End If
Next i
End Sub
Es wäre super wenn mir jemand einen code oder so machen kann das das kästchen immer mittig im feld bleibt egal wie groß ich das feld mach weil jetzt verschiebt sich das alles ??????
vielen dank für eure hilfe!!
|