werte automatisch per enter speichern

Sub Makro1() ' Makro1 Makro ' Makro am 24.05.2005 von max aufgezeichnet ' Tastenkombination: Strg+q Selection.Copy 'kopieren sollte durch betätigen der enter taste erfolgen Sheets("Tabelle2").Select 'das währe der pfad (wählbar) Range("A1").Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False _ , Transpose:=False 'die addition muß so bleiben Sheets("Tabelle1").Select Range("A1").Select Application.CutCopyMode = False Selection.ClearContents 'das feld muß nach dem kopiervorgang auch gelöscht werden End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Max,
tut die folgende Prozedur das, was du erreichen willst?
(Sie gehört in den VBA-Code der Tabelle, in der die Daten eingegeben werden, also bei dir "Tabelle1".)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim gZe&, gSp%                        ' Zeile und Spalte der geänderten Zelle
gZe = Target.Row
gSp = Target.Column
' nur Spalten A und C, Zeilen bis 11
If (gSp = 1 Or gSp = 3) And gZe < 11 Then
With Sheets(1)
Sheets(2).Cells(gZe, gSp) = Sheets(2).Cells(gZe, gSp) _
+ .Cells(gZe, gSp)
Target.ClearContents                   ' Eingabe wird wieder gelöscht
End With
End If
End Sub

Der Code geht momentan davon aus, dass die Addition in der Zelle des zweiten Blatts stattfindet, die in der selben Zeile und Spalte wie das Eingabezelle steht. Wenn der Additionsbereich in Blatt 2 woanders liegen soll, könnte man die Anweisung z. B. so umschreiben:

         Sheets(2).Cells(gZe + 3, gSp + 5) = Sheets(2).Cells(gZe + 3, gSp + 5) _
+ .Cells(gZe, gSp)

Nicht ganz ungefährlich finde ich das Löschen des eingegebenen Wertes. Kann man sich da nicht leicht vertun, etwa Werte vergessen oder doppelt eingeben? An der Summe in Blatt 2 kann man das später nicht erkennen...
Grüße aus Kamp-Lintfort
Erich

Private Sub Worksheet_Change(ByVal Target As Range) Dim Bereich As Range, Zielzelle As Range Set Bereich = Range("a1:a11,c1:c11") Set Zielzelle = Sheets("Tabelle2").Range("A1") If Not (Intersect(Target, Bereich) Is Nothing) Then Application.EnableEvents = False Zielzelle.Value = Zielzelle.Value + Target.Value Target.ClearContents Application.EnableEvents = True End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim gZe&, gSp% ' Zeile und Spalte der geänderten Zelle gZe = Target.Row gSp = Target.Column ' nur Spalten A und C, Zeilen bis 11 If (gSp = 1 Or gSp = 2 Or gSp = 3 Or gSp = 4) And gZe < 20 Then With Sheets(1) Workbooks.Open Filename:="P:\MAX\speichern daten.xls" Sheets(2).Cells(gZe, gSp) = Sheets(2).Cells(gZe, gSp) _ + .Cells(gZe, gSp) Target.ClearContents ' Eingabe wird wieder gelöscht End With End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim wsEin As Worksheet, wsSpei As Worksheet Dim gZe&, gSp% ' Zeile und Spalte der geänderten Zelle gZe = Target.Row gSp = Target.Column ' nur Spalten A bis D, Zeilen bis 19 If gSp < 5 And gZe < 20 Then Set wsEin = ActiveSheet ' Öffnen der "Speichermappe" Set wsSpei = Workbooks.Open("P:\MAX\speichern daten.xls").Sheets(1) ' Addition wsSpei.Cells(gZe, gSp) = wsSpei.Cells(gZe, gSp) _ + wsEin.Cells(gZe, gSp) ' Schließen der "Speichermappe" ActiveWorkbook.Close SaveChanges:=True ' Eingabe wird wieder gelöscht Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If End Sub

Hallo Max,
es könnte sein, dass du Datei/Arbeitsmappe/Workbook und Tabelle/Blatt/Sheet verwechselst.
Ich vermute, dass die Datie/Arbeitsmappe/Workbook wie bisher "speichern daten.xls" heißt.
Die steht jetzt aber wohl nicht mehr im Verzeichnis F:\MAX\, sondern im Verzeichnis P:\Servierschnitt\Übersicht Paletten\August`05\
In der Mappe "speichern daten.xls" gibt es eine Tabelle/Worksheet namens "datenblatt".
Workbooks.Open("P:\Servierschnitt\Übersicht Paletten\August`05\speichern daten.xls") öffnet die Mappe "speichern daten.xls".
Mit
Set wsSpei = Workbooks.Open("P:\Servierschnitt\Übersicht Paletten\August`05\datenblatt.xls").Sheets(1)
oder (gleichbedeutend)
Set wsSpei = _
Workbooks.Open("P:\Servierschnitt\Übersicht Paletten\August`05\datenblatt.xls").Sheets("datenblatt")
wird der Variablen wsSpei (ist als Worksheet definiert) gleich dem ersten Tabellenblatt in der Mappe "speichern daten.xls" gesetzt. In diesem Blatt erfolgen die Additionen.
Also: Wenn du
Set wsSpei = Workbooks.Open("P:\Servierschnitt\Übersicht Paletten\August`05\datenblatt.xls").Sheets(1)
anstelle der alten Anweisung schreibst, werden Mappe und Blatt wohl gefunden.
Grüße aus Kamp-Lintfort
Erich

Beliebteste Forumthreads (12 Monate)

werte automatisch per enter speichern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread