Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code Ändern

Code Ändern
28.09.2004 10:26:24
Matthias
Hallo Forum
Ich bräuchte wiedermal eure hilfe
Dieser Qeullcode funzt einwandfrei und macht in der Tabelle alles was ich erwarte nun mein anliegen:
Dieser Quellcode müsste jetzt so geandert werden dass:
1. der inhalt der zellen B2 und C2 Multipliziert werden und in Zelle D2 ausgegeben werden.
2. Zelle D3 und C3 sollen auch Multipliziert werden aber dass ergebniss von D2 soll auch noch addiert werden.
3. Zelle D4 und C4 dassselbe nur dass D3 addiert wird usw
!Währe schön wenn es mit in den vorhanden Quellcode gleich mit integriert werden könnte!

Sub Summe()
Dim Bn As String
Dim i As Long, Ww As Long, Gw As Long, laR As Long
Bn = Left(Cells(2, 1).Text, 4)
i = 1
Do While Bn <> ""
i = i + 1
If Left(Cells(i, 1).Text, 4) <> Bn Then
Range(Cells(i, 1), Cells(i + 2, 1)).EntireRow.Insert
Cells(i + 1, 2).Value = Ww
Gw = Gw + Ww
Ww = 0
i = i + 2
Bn = Left(Cells(i + 1, 1).Text, 4)
Else
Ww = Ww + Cells(i, 2).Value
End If
Loop
laR = Cells(Rows.Count, 2).End(xlUp).Row
Cells(laR + 2, 2).Value = Gw
End Sub

Bedanke mich für eure hilfe schonmal Vorraus
Gruss Matthias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code Ändern
Worti
Hallo Matthias,
meinst du so was:


Sub Produkt()
    
    Dim As Long
    Dim Merker
    
    'Falls in D1 was steht, merken (kann entfallen, wenn in D1 nix steht)
    Merker = Cells(1, 4).Value: Cells(1, 4).Value = 0
    
    i = 2
    Do While Cells(i, 2).Value <> ""
       Cells(i, 4).Value = Cells(i, 2).Value * Cells(i, 3).Value + Cells(i - 1, 4)
       i = i + 1
    Loop
    
    'D1 wiederherstellen
    Cells(1, 4).Value = Merker
    
End Sub


Worti
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige