mehrfache Worksheet_Change(...) in einer Tabelle

[Tom2020]

ja und dann?

[Elex]

Für Part 1 nimmst du die Formel in K3.
=SUMMEWENN(C5:C100;M3;I5:I100)

[Klaus-Dieter]

Hallo Tom,

hallo klaus

hätte ich gerne gewusst, wie ich das Formel ohne vba machen kann.

ganz einfach so:


Bestell

	K	L	M
3	$2.707,00		Januar
4

Formeln der Tabelle

Zelle Formel K3 =SUMMEWENN(C5:C12;M3;I5:I12)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

---

Hallo Tom,

für dein Makro reicht übrigens das:

Code:

Sub Worksheet_Change(ByVal Target As Range)
' Part 1


If Target = Range("M3") Then
    Range("K3") = Application.WorksheetFunction.SumIf(Range("C5:C100"), Range("M3"), Range("I5:I100"))
End If

[Tom2020]

besten Dank an Euch für die große Hilfe 

ob ich VBA code oder Formel verwende, meine Kollegin teilte mir mit, dass sie aus Versehen mit Entf Taste druckte und so ganze Tabelle zum Stürzen führte, es ist tatsächlich so

Da diese Tabelle aus SAP genierte und wieder zu SAP geschickt wird, kann keine Abstürze erlauben, irgendeine Idee, wie man M3 vor so was schützen könnte

[Klaus-Dieter]

Hallo,

man kann Exceldateien vor fast allem schützen, nur nicht vor dem 40 cm-Problem. 

[schauan]

Hallöchen,

im Prinzip so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$3" And Target.Value = "" Then Application.Undo
End Sub

wenn sie mehr als eine Zelle löscht müsste man mehr berücksichtigen.
Excel unterscheidet aber nicht, ob Deine Kollegin das absichtlich oder unabsichtlich gemacht hat.
Aber man könnte dafür ja noch eine Sicherheitsabfrage einbauen.

[Tom2020]

Am Ende des Tages: Danke Euch