Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Zellwert hinzufügen bzw. addieren

Forumthread: Zellwert hinzufügen bzw. addieren

Zellwert hinzufügen bzw. addieren
Josef_T
Guten Abend,
Habe mal wieder ein Problem, dass ich nicht gelöst bekomme und Eure Hilfe brauche.
Habe es in der hochgeladenen Datei, alles beschrieben.
https://www.herber.de/bbs/user/76580.xls
Danke
Gruß, Josef
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellwert hinzufügen bzw. addieren
13.09.2011 00:55:48
Lutz
Hallo Josef,
versuchs mal damit....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim intz1 As Integer
intz1 = Target.Cells.Row
With Me
If .Cells(intz1, 5).Value  0 Then .Cells(intz1, 6).Value = _
.Cells(intz1, 6).Value + .Cells(intz1, 5).Value: .Cells(intz1, 5).Value = ""
End With
End Sub
M.f.G.
Lutz
Anzeige
AW: Zellwert hinzufügen bzw. addieren
13.09.2011 01:19:02
Josef_T
Hallo Lutz,
fuktioniert einwanfrei!
Danke Dir und Gute Nacht.
Josef
AW: Zellwert hinzufügen bzw. addieren
13.09.2011 00:59:21
Rudi
Hallo,
so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim blnCode As Boolean
If Not blnCode Then
If Target.Column = 6 Then
blnCode = True
Target.Offset(, 1) = Target.Offset(, 1) + Target
Target.ClearContents
blnCode = False
End If
End If
End Sub

Gruß
Rudi
Anzeige
AW: Zellwert hinzufügen bzw. addieren
13.09.2011 01:21:57
Josef_T
Hallo Rudi,
jetzt habe ich die Qual der Wahl.
Funktioniert auch einwandfrei.
Danke Dir un Gute Nacht.
Gruß, Josef

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige