Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kostenstellen "umlegen"

Kostenstellen "umlegen"
Franz
Hallo,
habe hier ein kleines Tool (Prototyp) um Gemeinkosten entweder prozentual oder mit festen _ Werten zu verteilen. Es funktionniert schon zufriedenstellend. Könnte ein Profi dies eventuell noch optimieren?

Private Sub Worksheet_Change(ByVal Target As Range)
'oder besser Worksheet_SelectionChange?
If Target.Row > 3 Then Exit Sub
If Target.Column  6 Then Exit Sub
Select Case Target.Column
Case 4, 5, 6
If Target.Row = 2 Then
'entweder die Umlagenwerte festlegen,
'in der Zeile 3 erscheint die prozentuale Aufteilung
Application.EnableEvents = False
Target.Offset(1, 0).Formula = Target.Value / Range("C2").Value
End If
If Target.Row = 3 Then
'oder die prozentuale Verteilung festlegen,
'in der Zeile 2 erscheinen automatisch die Umlagenwerte
Application.EnableEvents = False
Target.Offset(-1, 0).Formula = Target.Value * Range("C2").Value
End If
Case Else
End Select
Application.EnableEvents = True
End Sub

https://www.herber.de/bbs/user/65693.xls
So long!
Franz D.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kostenstellen "umlegen"
09.11.2009 19:53:57
Original
Hi,
allzuviel geht da nicht:
Private Sub Worksheet_Change(ByVal Target As Range)
'oder besser Worksheet_SelectionChange?
Select Case Target.Column
On Error GoTo SHITHAPPENS
Application.EnableEvents = False
Case 4, 5, 6
If Target.Row = 2 Then
'entweder die Umlagenwerte festlegen,
'in der Zeile 3 erscheint die prozentuale Aufteilung
Target.Offset(1, 0) = Target / [C2]
End If
If Target.Row = 3 Then
'oder die prozentuale Verteilung festlegen,
'in der Zeile 2 erscheinen automatisch die Umlagenwerte
Target.Offset(-1, 0) = Target * [C2]
End If
End Select
SHITHAPPENS:
Application.EnableEvents = True
End Sub
mfg Kurt
Anzeige
AW: Kostenstellen "umlegen"
09.11.2009 19:54:36
Original
Hi,
allzuviel geht da nicht:
Private Sub Worksheet_Change(ByVal Target As Range)
'oder besser Worksheet_SelectionChange?
Select Case Target.Column
On Error GoTo SHITHAPPENS
Application.EnableEvents = False
Case 4, 5, 6
If Target.Row = 2 Then
'entweder die Umlagenwerte festlegen,
'in der Zeile 3 erscheint die prozentuale Aufteilung
Target.Offset(1, 0) = Target / [C2]
End If
If Target.Row = 3 Then
'oder die prozentuale Verteilung festlegen,
'in der Zeile 2 erscheinen automatisch die Umlagenwerte
Target.Offset(-1, 0) = Target * [C2]
End If
End Select
SHITHAPPENS:
Application.EnableEvents = True
End Sub
mfg Kurt
Anzeige
Oops!
09.11.2009 19:55:19
Original
ot
AW: Oops oder SHITHAPPENS?
09.11.2009 20:53:35
Franz
Hallo Kurt!
Sorry! Deine Ergänzungen funktionnieren bei mir nicht.
Habe übrigens den Unterschied zwischen Change und SelectionChange noch nicht ganz "gescheckt" um es einmal auf "Neudeutsch" zu formulieren.
Tschüss!
Franz D.
AW: Oops oder SHITHAPPENS?
09.11.2009 21:03:25
Original
Hi,
Private Sub Worksheet_Change(ByVal Target As Range)
'oder besser Worksheet_SelectionChange?
On Error GoTo SHITHAPPENS
Application.EnableEvents = False
Select Case Target.Column
Case 4, 5, 6
If Target.Row = 2 Then
'entweder die Umlagenwerte festlegen,
'in der Zeile 3 erscheint die prozentuale Aufteilung
Target.Offset(1, 0) = Target / [C2]
End If
If Target.Row = 3 Then
'oder die prozentuale Verteilung festlegen,
'in der Zeile 2 erscheinen automatisch die Umlagenwerte
Target.Offset(-1, 0) = Target * [C2]
End If
End Select
SHITHAPPENS:
Application.EnableEvents = True
End Sub

SelectionChange tritt auf, wenn eine (andere) Zelle(n) selektiert wird, Change triit auf,
wenn der Inhalt einer Zelle durch Eingabe geändert wird.
mfg Kurt
Anzeige
AW: Oops oder SHITHAPPENS?
09.11.2009 21:46:14
Franz
Hi,
Herzlichen Dank Kurt, auch für die Erklärungen zu "Change". Ich hätte wissen müssen dass das "On Error..." am Anfang zu stehen hat, ein Sorry ist schon fällig.
Au revoir!
Franz D.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige