summen in einer zelle addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,
Sorry das habe ich noch nicht ganz verstanden.Vieleicht habe ich es auch nur blöd erklärt.
ich erkläre es mal anhand deines Bsp.
Set rabereich=Range("A5:A40") - Eingabebereich
in A5 schreibe ich die Zahl 2 die erscheint jetzt in der Nachbarzelle B5
In A6 Schreibe ich die Zahl 2 und die soll jetzt aber in C6 Auftauchen
.
.
.
A40 schreibe ich die Zahl 2 und die soll in C8 Auftauchen
Ich muss doch jetzt verschidene Ausgabezellen angeben, oder ?
RaZelle.Offset(0, 1) = RaZelle.Offset(0, 1) + RaZelle
mit dieser Zeile gebe ich doch immer den gleichen Ausgabezelle an. also immer eine zelle neben an
und das soll ja nicht sein.(Verschiedene)
Ist für mich noch etwas kompliziert. Sorry :-)
Ronny

Hallo Ronny,
jetzt haben wir schon so lange geschrieben.


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                     *
'* 05.10.07                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://Hajo-Excel.de/
Dim RaBereich As Range, RaZelle As Range
'   Bereich der Wirksamkeit
Set RaBereich = Range("A1:A40")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))     ' nur die Zellen prüfen die  _
im überwachten Bereich liegen
If Not RaBereich Is Nothing Then                                ' falls nicht gefunden wird  _
Sub verlassen
For Each RaZelle In RaBereich                               ' Schleife über die geä _
nderten Zellen des überwachten Bereichs
If IsNumeric(RaZelle) Then                              ' Zellinhalt ist numerisch
Application.EnableEvents = False                    ' Reaktion auf Eingabe  _
abschalten
Select Case RaZelle.Address(False, False)           ' Summenzelle entsprechend  _
Zelladrese zuweisen
Case "A8", "A6"
Range("C6") = Range("C6") + RaZelle
Case "A40"
Range("C8") = Range("C8") + RaZelle
Case Else
RaZelle.Offset(0, 2) = RaZelle.Offset(0, 2) + RaZelle
End Select
Application.EnableEvents = True                     ' Reaktion auf Eingabe  _
einschalten
End If
Next RaZelle
End If
Set RaBereich = Nothing                                         ' Variable leeren
End Sub

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

summen in einer zelle addieren

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread