VBA Code
30.07.2014 20:05:39
Jürgen
Hier mein Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$11" Then Call Tabelle1.AddierenFeld
End Sub
Sub AddierenFeld()
Dim Text As String, Text2 As String, Neu As Double, FehlerWahl As Integer
On Error GoTo Fehler
Text = "dieser Wert wird zum " & vbCrLf
Text = Text & "aktuellen Zellwert addiert "
Neu = InputBox(Text, "Addition")
If Val(Neu) 0 Then ' nur addierten wenn Wert eine Zahl ist
ActiveCell.Value = ActiveCell.Value + Neu
End If
Exit Sub
Fehler:
Text2 = "Sie haben keine Zahl eingegeben," & vbCrLf
Text2 = Text2 & "wollen Sie die Eingabe wiederholen?"
FehlerWahl = MsgBox(Text2, vbYesNo)
Select Case FehlerWahl
Case vbYes
Resume
Case Else
Exit Sub
End Select
End Sub
Ich würde mich sehr über eure Hilfe freuen.
Gruß
Jürgen