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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen