Auswertung einer Zelle mit VBA

[Makaveli]

Suche nach einen Macro zur Auswertung einer Zelle.

Folgende Situation
[
Bild bitte so als Datei hochladen: Klick mich!
]

In der Zelle 24 E Soll jetzt der Rechenweg stehen also in den fall (890,89x8,33%).
Also soll das Macro die Zelle F24 Auswerten.
Gibts es eine Möglichkeit diesen Zellenbezug zu übersetzen (=C24*Stammdaten!G7) in (890,89x8,33%) ?

[EbyAS]

Hallo,
Wenn der Code in der Tabelle steht:

Code:

Cells(2, 9).Value = Cells(2, 3).Value *Worksheets("Stammdaten").Range("G7").Value

Wenn als Bestandteil einer VBA Routine könnte er auch

Code:

Worksheets("Tabelle1").Range("F2").Value=Worksheets("Tabelle1").Range("C2").Value*Worksheets("Stammdaten").Range("G7").Value

so heißen.
Da keine genauen Angaben bzw. nur Bilder zur Verfügung standen.

[Makaveli]

Danke für die schnelle Antwort.

Leider funktioniert dieses Makro nicht.

Sub Auswerten()
Worksheets("Tabelle1").Range("F2").Value = Worksheets("Tabelle1").Range("C2").Value * Worksheets("Stammdaten").Range("G7").Value
End Sub

Zeigt mir Laufzeitfehler 9 an.

Welche informationen fehlen noch um ein präziseres Makro zu schreiben.

MFG

[EbyAS]

Hallo,
das hat mit dem Makro nichts zu tun.
Offensichtlich hat Deine Office Installation einen Fehler oder Du hast einen Virus, Malware etc..

Google sagt dazu:
Run Time Error 9 werden meistens durch beschädigte oder fehlende Dateien einer dynamischen Programmbibliothek (DLL) verursacht. Das gängigste Problem entsteht innerhalb der Windows Registry, in der die Anwendungen die Standorte der benötigten DLLs abrufen. Und da dies wichtige Dateien sind, weiß man nicht, was passieren könnte, sofern eine dieser Dateien fehlt.


Leider stand kein Excel-File als Beispiel zur Verfügung dann könnte man vielleicht sagen die Ursache ist.