AW: Pop-up Information für bestimmte Zelle
15.01.2016 13:59:09
Daniel
Hi
auch eine Eingabefunktion lässt sich - wenn man keine grosse Ansprüche hat - programmieren so dass man nicht mehr direkt in der Tabelle arbeiten muss.
die einzige Aufgabe die für dich bleibt, ist diesen Code mit dem Shape vernüpfen:
Sub BeiKlick()
Dim Zelle As Range
Dim Eingabe As String
Set Zelle = Columns(1).Find(Application.Caller)
If Zelle Is Nothing Then
Set Zelle = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Zelle.Value = Application.Caller
End If
With Zelle
If MsgBox(.Offset(0, 1).Value & vbLf & "(Abbrechen um Text zu ändern)", vbOKCancel, .Value) _
= vbCancel Then
Eingabe = InputBox("neuer Text", Zelle.Value, Zelle.Offset(0, 1).Value)
If StrPtr(Eingabe) 0 Then Zelle.Offset(0, 1).Value = Eingabe
End If
End With
End Sub
wenn für ein neues Shape noch keine Datenzeile besteht, wird dies beim ersten Klick auf das Objekt angelegt
Gruß Daniel