hallo,
ich habe ein kleines problem. ich hoffe ihr könnt mir helfen.
ich habe in einer tabelle 3 spalten mit datumsangaben jeweils mit kontrollkästchen neben jedem datum. nun soll nach dem aktiveren eines kontrollkästchens zum jeweiligen datum ein jahr dazu gezählt werden. also aus 01.05.2008 soll 01.05.2009 werden. nun zu problem das neu berechnete datum soll gespeichert werden und aus dem kontrollkästchen soll der hacken verschwinden.
Mfg.
thw.
Kontrollkästchen erhöht Zellinhalt
ich habe in einer tabelle 3 spalten mit datumsangaben jeweils
mit kontrollkästchen neben jedem datum. nun soll nach dem
aktiveren eines kontrollkästchens zum jeweiligen datum ein
jahr dazu gezählt werden. also aus 01.05.2008 soll 01.05.2009
werden. nun zu problem das neu berechnete datum soll
gespeichert werden und aus dem kontrollkästchen soll der
hacken verschwinden.
Hallo Tobias,
Alt+F11, Einfügen–Modul, Code reinkopieren, Editor schließen.
Rechtsklick auf die Kontrollkästchen, „makro zuweisen“, weise jedem Kästchen das makro „tt“ zu.
Sub tt()
With ActiveSheet.Shapes(Application.Caller)
If .ControlFormat.Value = -4146 Then Exit Sub
.TopLeftCell.Value = DateSerial(Year(.TopLeftCell.Value) + 1, \_
Month(.TopLeftCell.Value), Day(.TopLeftCell.Value))
.ControlFormat.Value = -4146
End With
End Sub
Gruß
Reinhard
danke reinhard,
funktioniert super. nur wie bekomme ich hin, daß das kontrollkästchen rechts neben der jeweiligen zelle ist. momentan ist das kästchen immer unter der zelle.
mfg.
tobias
danke reinhard,
funktioniert super. nur wie bekomme ich hin, daß das
kontrollkästchen rechts neben der jeweiligen zelle ist.
momentan ist das kästchen immer unter der zelle.
Hallo Tobias,
mit den Werten mußt du mal experimentieren, ggfs Zeilenhöhe erhöhen.
Sub Rechts()
Dim S
For Each S In ActiveSheet.Shapes
S.Top = S.TopLeftCell.Top
S.Height = S.TopLeftCell.Height - 6
S.Left = S.TopLeftCell.Offset(0, 1).Left - 15
Next S
End Sub
Gruß
Reinhard
Hallo Reinhard,
es klappt leider nicht. kanst du mir sagen wo ich den code einfügen muß. glaub ich bin zu doof.kannst du mir ein buch dazu empfehlen?
mfg. tobias