Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nochmals berechnung mitels vba

nochmals berechnung mitels vba
18.04.2006 12:31:54
aga
hallo nochmals das gleiche thema
https://www.herber.de/forum/messages/755591.html
und die datei: https://www.herber.de/bbs/user/32921.xls
leider konnte mir bisher keiner helfen
nun habe ich mit meinen sperrlichen vba kentnissen einen code erstellt

Sub Zuordnen()
Dim mLetzte  As Long, mZeile   As Long, lLetzte As Long, lZeile  As Long
Application.ScreenUpdating = False
mLetzte = IIf(Worksheets("tabelle2").Range("d65536") <> "", 65536, Worksheets("tabelle2").Range("d65536").End(xlUp).Row)
lLetzte = IIf(Worksheets("tabelle1").Range("c65536") <> "", 65536, Worksheets("tabelle1").Range("c65536").End(xlUp).Row)
For mZeile = 4 To mLetzte
For lZeile = 2 To lLetzte
If CLng(Worksheets("tabelle2").Range("d" & mZeile).Value) >= CLng(Worksheets("tabelle1").Range("c" & lZeile).Value) And _
CLng(Worksheets("tabelle2").Range("d" & mZeile).Value) <= CLng(Worksheets("tabelle1").Range("d" & lZeile).Value) Then
End If
Next lZeile
Next mZeile
Application.ScreenUpdating = True
End Sub

, jedoch weiß ich nicht wie ich es schaffe falls die Bedingungen wahr sind das der zugehörige wert in spalte i aus tabelle1 genommen und zum nächsten wert aufaddiert wird.
als Formel hatte ich da in etwa so aufgebaut:
"=WENN(A4=FALSCH;(SUMME(WENN(UND(D4>=Tabelle1!C2;D4=Tabelle1!C3;D4 ich hoffe jemand kann mir helfen.
mfg
aga

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nochmals berechnung mitels vba
19.04.2006 15:25:17
RALF
Moin,
an einem Beispiel (ich hoffe ich interpretiere das richtig):
wenn in Tabelle 2 D4 das Datum im Bereich Tabelle 1 C2 bis D2 liegt, dann nimm Wert Tabelle 1 I2 und schreibe ihn nach Tabelle 2 E4
Antwort (zwischen Deine Rautenreihen)
sheets("Tabelle2").cells(mZeile,5)=sheets("Tabelle1").cells(lZeile,9)
Ist eine andere Schreibweise, wie Du sie benutzt, ich hoffe es ist verständlich.
Gruß RALF
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige