AW: Anzahl per Schaltfläche erhöhen/reduzieren
30.06.2005 10:18:03
Andy
Sub Berechnen()
Sheets("Hauptmenü").Select
Dim myRange As Range
Dim mybuch As Integer
Set myRange = Range("A1:A9999")
myMatch = Range("B8")
nummer = Application.WorksheetFunction.Match(myMatch, myRange, 0)
Cells(nummer, 9).Value = Cells(nummer, 9).Value + 1
MsgBox "Eine Einbuchung wurde vorgenommen"
End Sub
hier hab ich dir was du legst einen Suchbereich fest in dennen deine artikelnummern stehen hier das bei myRange dann trägst du bei my match ein welches feld deine artikelnummer steht auf die aufgebaut werden soll er sucht sich dann den artikel aus der spalte aus und erhöt ihn um 1 die ziffer neun steht für die spalte und bei nummer handelt es sich für die vayrable di excel erfast