Makro ist wohl zu langsam

Private Sub Worksheet_Change(ByVal Target As Range) Call ws_Unprotect("Kasseneingabe") '=mwst% * VkBrutto / (1+ mwst%)*Menge If Not Intersect(Target, Range("M15,L15")) Is Nothing Then Range("O15").Value = Round([N15] * [M15] / (1 + [N15]) * [L15], 2) 'Einzelpreis * Menge If Not Intersect(Target, Range("L15,M15")) Is Nothing Then Range("P15").Value = [M15] * [L15] Call ws_Protect("Kasseneingabe") End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Call ws_Unprotect("Kasseneingabe") If Target.CountLarge = 1 Then '=mwst% * VkBrutto / (1+ mwst%)*Menge Application.EnableEvents = False If Not Intersect(Target, Range("M2:M25,L2:L25")) Is Nothing Then Range("O" & Target.Row).Value = Round(Range("N" & Target.Row) * Range("M" & Target.Row) / (1 + Range("N" & Target.Row)) * Range("L" & Target.Row), 2) 'Einzelpreis * Menge If Not Intersect(Target, Range("M2:M25,L2:L25")) Is Nothing Then Range("P" & Target.Row).Value = Range("M" & Target.Row) * Range("L" & Target.Row) Application.EnableEvents = True End If Call ws_Protect("Kasseneingabe") End Sub

If Not Intersect([Tab_KasseneingabeVoll[Einzelpreis]], [Tab_KasseneingabeVoll[Menge]], Target.EntireRow) Is Nothing Then [Tab_KasseneingabeVoll[Gesamt]] = [Tab_KasseneingabeVoll[Einzelpreis]] * [Tab_KasseneingabeVoll[Menge]]

Hallo Lefty,
der Weg über die Schreibweise [Tab_KasseneingabeVoll[Einzelpreis]] ist innerhalb von VBA nicht machbar. Denn VBA wird nur "Target" übergeben. Und diese weisst nichts von der aktive Tabellen Tab_KasseneingabeVoll.
Eine einfache Form könnte wie folgt sein:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim M, N, L
If Target.Cells.Count > 1 Then Exit Sub 'Verarbeitung, nur wenn nur eine Zelle auf einmal geändert wurde
Call ws_Unprotect("Kasseneingabe")
Application.EnableEvents = False
Select Case Target.Range("A1").Column
Case 12, 13, 14 'Spalten L, M oder N
L = Cells(Target.Row, "L").Value
M = Cells(Target.Row, "M").Value
N = Cells(Target.Row, "N").Value
'=mwst% * VkBrutto / (1+ mwst%)*Menge
Cells(Target.Row, "O") = Round(N * M * L / (1 + N), 2)
'Einzelpreis * Menge
Cells(Target.Row, "P") = M * L
End Select
Application.EnableEvents = True
Call ws_Protect("Kasseneingabe")
End Sub

Wenn man unbedingt die Spaltennamen der aktiven Tabelle verwenden, dann so:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim M, N, L
With Range("Tab_KasseneingabeVoll").Parent.ListObjects("Tab_KasseneingabeVoll")
If Target.Cells.Count > 1 Then Exit Sub 'Verarbeitung, nur wenn nur eine Zelle auf einmal geändert wurde
Call ws_Unprotect("Kasseneingabe")
Application.EnableEvents = False
Select Case Target.Range("A1").Column
Case 12, 13, 14 'Spalten L, M oder N
L = Cells(Target.Row, .ListColumns("Menge").Range.Column).Value
M = Cells(Target.Row, .ListColumns("Einzelpreis").Range.Column).Value
N = Cells(Target.Row, .ListColumns("MwST").Range.Column).Value
'=mwst% * VkBrutto * Menge / (1+ mwst%)
Cells(Target.Row, "O") = Round(N * M * L / (1 + N), 2)
'Einzelpreis * Menge
Cells(Target.Row, "P") = M * L
End Select
Application.EnableEvents = True
Call ws_Protect("Kasseneingabe")
End With
End Sub

Ob es "besser" ist, lasse ich offen.
So könntest Du auch "O" und "P" umstellen.
Vergiss auf alle Fälle den Application.EnableEvents = False nicht: Du machst eine Änderung an einer Zelle, was der Change-Event auslöst (wenn Enabled!)
VG
Yal

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread