Zellberechnung beim verlassenn der Zelle
08.10.2004 10:30:24
Bernd
ich habe eine Tabelle für eine Vordruckverwaltung.
1. In den Spalten B5-B46 wird die Anzahl der entnommen Vordrucke eingetragen.
2. In den Spalten D5-D46 das aktuelle Datum.
3. In den Spalten E5-E46 muss von Hand die Gesamtzahl der entnommen Vordrucke eingetragen werden.
Für 1 und 3 habe ich folgendes Makro gefunden:
Sub addieren()
Range("E5") = Range("B5") + Range("E5")
End Sub
Für 2 habe ich dieses Makro hier gefunden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Ende:
If Target.Column = 3 Then
Cells(ActiveCell.Row, 4).Activate
ActiveCell = Now
Cells(ActiveCell.Row1, 1).Select
Exit Sub
End If
Ende:
End Sub
Wie wird das Makro für 1 und 3 auf das ganze Blatt angepasst, bzw. die Berechnung sollte beim verlassen der Zelle B erfolgen.
Ich hoffe Ihr könnt mir da weiter helfen
Grüße Bernd
Anzeige