Supportnet / Forum / Tabellenkalkulation
Wie sag ich´s Excel?
Frage
Hallo liebe Excel-Cracks,
ich habe etwas Verständigungsprobleme mit meinem Excel (XP) und bräuchte einen Dolmetscher.
D= Gesamtverkäufe
E=Frühere Verkäufe
F=Tagesverkauf
+ einige andere Spalten, die aber nichts zur Sache tun
Das Problem:
Ich möchte, daß Excel den Wert aus Spalte F nach E übernimmt, wenn in F was neues eingetragen wird. Jedenfalls hätt ich gern den alten Wert gesichert, damit ich eine Kontrolle habe ob das richtig sein kann.
Wobei F natürlich keinen fixen Wert hat.
Hintergrund des Ganzen ist, daß ich einfach nur immer das eintragen will was ich gerade verkauft habe(Tagesverkauf) und der Bestand und damit auch die Einnahmen automatisch aktualisiert werden.
Hoffentlich einigermaßen verständlich.
Falls nicht:
- es ist deutsch und ich habe auch deutsche Muttersprache ;)
- bitte einfach nachfragen - damit ich es vllt. besser erklären kann.
Danke schon mal für eure Mühe
pc-baby
[*][sup][i]
*Threadedit* 10:29:34
Admininfo: zum Artikel/ Betreff. Bitte beachte [u][url=https://supportnet.de/faqsthread/840]FAQ 2[/url][/u] für deine nächste Anfrage.[/i][/sup]
Antwort 1 von Hajo_Zi
Hallo Nick,
unter die Tabelle
Option Explicit
Dim VaTarget
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 6 Then
Application.EnableEvents = False
Target.Offset(0, -1) = VaTarget
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
VaTarget = Target
End Sub
Gruß Hajo
unter die Tabelle
Option Explicit
Dim VaTarget
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 6 Then
Application.EnableEvents = False
Target.Offset(0, -1) = VaTarget
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
VaTarget = Target
End Sub
Gruß Hajo