Änderung der Berechnung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter!
Danke für deinen Tipp!
Aber das haut nicht hin.
With Workbooks("Testabrechnung.xls").Sheets("Datenbank").Cells(lngZeilen, 4)
Mit der Spalte D in der Datenbank will ich gar nichts machen.
Ich will beim ausführen des Makros das der Wert in der Spalte D der Abrechnung von dem Wert in der Spalte C der Datenbank abgezogen wird, natürlich nur dann wenn eine Übereinstimmung in den Spalten A der beiden Tabellen gegeben ist.
Mit diesen Zeilen wird der Wert auch angezeigzt.
'lngAbzug = Workbooks("Testabrechnung.xls").Sheets("Abrechnung").Cells(lnfRowFind, 4).Value
'MsgBox .Value & " " & lngAbzug 'Nur zum Test
Kannst selber in meinen Programm ausprobieren wenn du die beiden Zeilen aktivierst.
https://www.herber.de/bbs/user/29395.xls
Aber wenn ich dann in der Zeile:
If .Value "" Then .Value = .Value - 1
statt -1 -(lngAbzug) hinschreibe dann passiert gar nichts.
Und da steige ich aus! Keine Ahnung wieso das nicht hinhaut.
Gruss
Gerhard

Servus,
versuchs mal so. Wobei das mit einer Formel wesentlich komfortabler gehen würde (s.u.) ?
Sub t() Dim lzeileS As Long, lZeileE As Long Dim rng As Range, ranrngSuch As Range, rngErg As Range Dim myarr Dim intZ As Integer With Sheets("Datenbank") lzeileS = .Cells(.Rows.Count, 1).End(xlUp) Set rngSuch = Range("A2:A" & lzeileS) End With With Sheets("Abrechnung") lZeileE = .Cells(.Rows.Count, 1).End(xlUp) Set rngErg = Range("A2:A" & lZeileE) ReDim myarr(2, lZeileE) For Each rng In .Range(rngErg.Address) myarr(0, intZ) = rng myarr(1, intZ) = rng.Offset(0, 1) myarr(2, intZ) = rng.Offset(0, 3) intZ = intZ + 1 Next End With With Sheets("Datenbank") For Each rng In .Range(rngSuch.Address) For intZ = 0 To intZ - 1 If rng = myarr(0, intZ) And rng.Offset(0, 1) = myarr(1, intZ) Then _ rng.Offset(0, 2) = myarr(2, intZ) 'Wenn du willst das die vorhandenen Werte addiert werden sollen, dann änder die obere 'Zeile in: ' rng.offset(0,2) = rng.offset(0,2) + myarr(2,intz) Next Next End With End Sub

Datenbank

	C	D
3	5	5

Formeln der Tabelle

D3 : {=WENN((Abrechnung!$A$2:$A$16=Datenbank!A3)*(Abrechnung!$B$2:$B$16=Datenbank!B3);Abrechnung!$D$2:$D$16)}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
MfG
Peter

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread