Excel Berechnung mit Schleife

[tw3aker]

Hey,

Habe eine kurze Frage, ich versuche schon ne weile mit Makro Aufzeichnung usw. ein Makro zu erstellen.

Folgendes:
Das Makro soll wenn es einen Wert findet in Spalte B findet soll es in der Zeile D*B berechnen und den Wert in H ausgeben.

Das ganze so lange, bis es keinen wert mehr in Spalte B findet.

Hoffe ihr könnt mir helfen.

Danke und Gruß

[BoskoBiati]

Hallo,

warum mit einem Makro?

[tw3aker]

Hallo Edgar,
 
will damit Fehler in der Formel vermeiden und unnötige Zellenbelegungen. Habe oft vagierende Zellen, deswegen das Makro.
 
Danke und Gruß

[BoskoBiati]

Hallo,

ohne konkretes Muster ist das nicht nachzuvollziehen.

[tw3aker]

Hallo Edgar,
 
Schau dir das hier mal an. wie gesagt, die Werte A2:F wechseln permanent, daher will ich das ganze gerne per VBA lösen.
 
Danke und Gruß

[BoskoBiati]

Hallo,

das ist mir nicht verständlich. Du willst Größe mit Menge multiplizieren, was ist daran so schwer? Werfe den Makrorekorder an und zeichne es auf.

[tw3aker]

Hallo,
 
habe ich hinter mir. Der zeichnet die Kontrolle nicht auf...
 
Wenn doch, zeige mir wie..
Gruß

[atilla]

Hallo,

hier eine mögliche Lösung:

Code:

Sub rechne()
Dim LngZ As Long
 LngZ = Cells(Rows.Count, 2).End(xlUp).Row
 With Range("H2:H" & LngZ)
   .FormulaLocal = "=WENN(B2<>"""";D2*B2;"""")"
   .Value = .Value
 End With
End Sub

Code in Codemodul der Tabelle.

[tw3aker]

Danke für eure Hilfe