Supportnet / Forum / Tabellenkalkulation
XP SP2; Excel 2002; VBA; Multiplizieren der Inhalte zweier Zellen
Frage
... und Speichern des Produktes in einer dritteZelle.
Guten Tag, liebe SN-ler,
die Inhalte zweier Zellen, z.B. D10 und E5 sollen miteinander multipliziert werden. Das Ergebnis soll in der Zelle F12 gespeichert werden. Angenommen D10 gleich 5 und E5 gleich 13, dann muss in Zelle F12 = 65 stehen. Auf dem Tabellenblatt geht es ganz einfach: man schreibt in Zelle F12: =D10*E5.
In meinem Fall aber nehmen E5 und D10 ihre Werte erst nach Einlesen eines Messwertesatzes aus einem externen Speicher an. Die Auswertung mache ich deshalb über VBA.
Auf diese Weise geht es, wenn auch etwas umständlich, meine ich:
Sub multipl()
´Zelle D10:
Range("F12").Select
ActiveCell.Offset(-2, -2).Select
b = ActiveCell.Address
g = Range(b).Value
´Zelle E5:
Range("F12").Select
ActiveCell.Offset(-7, -1).Select
c = ActiveCell.Address
h = Range(c).Value
´Produkt
Range("F12").Value = g * h
End Sub
Hat jemand einen Tip, wie die Multiplikation einfacher programmieren kann?
Die Offset-Befehle verwende ich, weil solche Multiplikationen bei meinen Auswertungen häufig in Zahlenreihen mit benachbarten Zellen auftreten. Ich kann sie dann durch Schleifenbildung abarbeiten lassen.
Gruß und alles Gute für das Neue Jahr
Queelun
Antwort 1 von Risatara2
Ich weiß jetzt nicht, aber geht nicht der simple konstrukt:
Werde den aber erstmal ausprobieren... Doch, bei mir geht das.
Risatara
Range("F12").Value=Range("D10").value*Range("E5").value
Werde den aber erstmal ausprobieren... Doch, bei mir geht das.
Risatara