Makro loopt ohne ende
29.11.2014 18:23:46
Black-Mage
Und zwar wenn ich in einer Zelle einen Wert eintippe, zieht er ihn von einer andren Zelle ab _ und leert den Inhalt der Eingabezelle
Dim neu As Integer
Dim ort As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$9" Then
ort = "E"
neu = Sheets("HP").Range("E9").Value
Call ausfuehren(ort, neu)
ElseIf Target.Address = "$G$9" Then
ort = "G"
neu = Sheets("HP").Range("G9").Value
Call ausfuehren(ort, neu)
End If
Exit Sub
End Sub
Function ausfuehren(ort, neu)
Sheets("HP").Range(ort & 8).Value = Sheets("HP").Range(ort & 8) - neu
Sheets("HP").Range(ort & 9).ClearContents
End Function