Office 2010: Inputbox - für deppen..:)

[pinky]

Hallo liebes Forum,

folgendes Problem.
Ich habe keinen Plan von VBA etc, und treib mich dennoch ständig drin rum- wegen der lieben Arbeit.
Und nun dachte ich ich frag mal nach ob mir jemand von euch helfen kann;
nämlich habe ich eine Tabelle in Spalte J steht jeweils =Heute().
Nun soll, wenn ich in Spalte A ein "x" setze eine Inputbox aufgehen und zwar mit mit der Frage "date ?", in das  Input-Feld entsprechend das  Datum - und dieses in die Inputbox eigegebene Datum soll dann in der entsprechenden Zeile (also dort wo auch daas x steht) in J eingetragen werden - anstatt dem dem =HEUTE(). Zudem braucht meine Inputbox noch die Option ein Kästchen anzuklicken; "question?" dann das Kästchen. Wenn dieses angeklickt wurde soll in Spalte S (wieder in der entsprechenden Zeile) "yes" eingetragen werden.

Ok, ich hoffe das versteht jemand und ich bin nicht zu dreist mit meiner Frage....
Vielleicht hat jemand ja schon etwas ähnlich in gebrauch?

Vielen vielen Dank schon mal - bitte nicht mir den Kopf abreißen...
Liebe Grüße
pinky

[Officer]

Hallo Pinky,

ich habe mal schnell was gebaut. Füge bitte den folgenden Code in dein Tabellenblatt ein, auf dem Du die x-Kennzeichen setzt.

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2.  
3. If Not Application.Intersect(Target, Range("A1:A1000")) Is Nothing Then
4.   If Target.Value = "x" Then
5.    
6.     UserForm1.Show
7.    
8.     '** Spalte S - yes, wenn Checkbox aktiviert
9.    If UserForm1.CheckBox1.Value = True Then
10.       ActiveSheet.Cells(Target.Row, 19).Value = "yes"
11.     End If
12.    
13.     '** Datum in Spalte J, wenn Datum eingegeben wurde
14.    If IsDate(UserForm1.TextBox1.Value) Then
15.       ActiveSheet.Cells(Target.Row, 10).Value = CDate(UserForm1.TextBox1.Value)
16.     End If
17.  
18.   End If
19. End If
20.  
21. Unload UserForm1
22. End Sub
23.  

Zur Erfassung des Datums (date?) sowie des Kennzeichens (question?) habe ich eine Userform gebaut, siehe Anlage.

Als Anlage habe ich auch die gesamte Excel-Datei beigefügt. Darin kannst Du das Ganze nachvollziehen.

Hinweis: Wenn Du dich im Forum registrierst, bekommst Du eine Info-Mail, wenn auf deine Frage eine Antwort geschrieben wurde.