Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: pinky am April 04, 2012, 10:04:40 Vormittag

Titel: Office 2010: Inputbox - für deppen..:)
Beitrag von: pinky am April 04, 2012, 10:04:40 Vormittag
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
Titel: Antw:Office 2010: Inputbox - für deppen..:)
Beitrag von: Officer am April 04, 2012, 11:39:48 Vormittag
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.