ich möchte in einem Excelsheet den User dazu zwingen ein Kommentar (über eine Inputbox) zu verfassen, wenn er in Tabelle 2 in Zelle F8 einen Wert einträgt.
Dieser Kommentar soll dann in Zelle H8 geschrieben werden.
Da Ganze soll auch für (F9 (Eingabe) und H9 (Kommentar), F10 und H10) gelten.
Ich habe folgenden Code gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp As String, antw As Integer
If Not IsEmpty(Tabelle2.Range("F8").Value) Then
Do
tmp = InputBox("Eingabe erwartet !", "Eingabe-Box", "Test")
If tmp = "" Then antw = MsgBox("Aber doch bitte was eingeben oder jetzt [Abbrechen] drü _
cken !", 1)
If antw = 2 Then Exit Do
Loop Until tmp ""
End Sub
Allerdings öffnet sich mit diesem für jede Zelle das Kommentarfeld. Zudem fehlt noch, dass der Wert in die Spalte H eingetragenw wir (Tabelle2.Range("H8).value = tmp)ansonsten gefällt mir der Sub gut weil er den User zwei mal auffodert.
Kann mir jemand helfen?
Vielen Dank!
Henny