und schon wieder brauche ich Euere Hilfe, weil ich bringe einfach meine Datei nicht zu laufe. Es fehlt nur noch das letzte Schritt.,,Zahlen zusammenzählen?
Siehe Beispiel
https://www.herber.de/bbs/user/24227.xls
gruss
stefano
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, x%
Set r = Sheets("Statistik").[d5]
x = Sheets("Statistik").[d5].Value
If Target.Column = 9 Then
r = x + Sheets("Wareneingang").[i10]
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Set sh = Sheets("Statistik")
Dim r As Range, x%, i%
i = ActiveCell.Row - 5
x = sh.Cells(i, 4).Value
Set r = sh.Cells(i, 4)
r = x + Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Set sh = Sheets("Statistik")
Dim r As Range, x%, i%
i = ActiveCell.Row - 4
x = sh.Cells(i, 4).Value
Set r = sh.Cells(i, 4)
r = x + Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Set sh = Sheets("Statistik")
Dim r As Range, x%, i%
If Not Intersect(Target, Range("k9:k31")) Is Nothing Then
i = ActiveCell.Row - 4
x = sh.Cells(i, 5).Value
Set r = sh.Cells(i, 5)
r = x + Target.Value
End If
If Not Intersect(Target, Range("i9:i31")) Is Nothing Then
i = ActiveCell.Row - 4
x = sh.Cells(i, 4).Value
Set r = sh.Cells(i, 4)
r = x + Target.Value
End If
End Sub
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