If cell "C6" = -1 then
cell "A23" = 1
End If
kann das überhaupt funktionieren?
versuch es doch mal so, das klappt auf jeden fall.
If Range("C6") = -1 Then
Range("A23") = 1
End If
Chris
If Range("C6")=-1 then
Range("A23")=1
end if
Gruss aus'm Pott
Udo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C6") = "-1" Then Range("A23") = "1"
End Sub
Lutz
damit die -1 gleich wieder aus dem Feld verschwindet!
wenn Du mit Cells arbeiten möchtest,dann so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(6, 3) = "-1" Then Cells(23, 1) = "1"
End Sub
Gruß
Lutz
versuche es mal damit:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(6, 3) = "-1" Then Cells(23, 1) = Cells(23, 1) + 1
Cells(6, 3) = ""
End Sub
Gruß
Lutz
bei mir läuft er einwandfrei, hast Du ihn so wie er ist in Deine Mappe kopiert ?
Lutz
Lutz
If Range("E6") = 1 Then
MsgBox "Nur mehr eine Druckerpatrone HP15 vorhanden! Bitte neue Patronen bestellen!"
End If
so ganz komme ich noch nicht klar, was möchtest Du mit diesem Code erreichen ?
Lutz
If Target.Address = "$C$6" Then
Application.EnableEvents = False
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
Target = ""
Application.EnableEvents = True
End If
: ist dafür da das wenn eine lieferung kommt oder was rausgegeben wird (-x,x), die zahl wieder aus der zelle verschwindet.
If Range("E6") = 1 Then
MsgBox "Nur mehr eine Druckerpatrone HP15 vorhanden! Bitte neue Patronen bestellen!"
End If
:ist dafür da sollte nur mehr eine Patrone vorhanden sein öffnet sich eine msgbox.
Lutz
Gruß
Lutz
Gruß
Lutz
ist angekommen, nur noch ne Frage: in zB A23 sollen doch sicher nicht nur die HP15 sondern alle entnommenen Patronen gezählt werden, oder ?
Gruß
Lutz
best regards
Sandro