Hallo Holger,
danke für deine Antwort, die sehr hilfreich war. Jetzt habe ich nur noch eine Frage, wie kann ich beim Round denn egal welche Nachkommastelle kommt abrunden?
Danke für deine Hilfe.
Susanne
Holger schrieb am 25.06.2009 11:33:41:
Hallo Susi79,
mit deiner Schreibweise fügst du Formeln in die Excel-Tabelle ein. Dabei kannst du mit Cells auf den Inhalt anderer Zellen zugreifen, sondern musst es wie in deiner ersten Formel machen.
Ich gehe davon aus, dass du aber gar keine Formeln einfügen willst, sondern ein VBA-Makro schreiben möchtest, dass die durch diese Formeln angedeutete Funktionalität hat.
Cells(zeile, 11) = Cells(zeile, "J") / Cells(zeile, "G") ' anstelle Cells(zeile, 11) = "=J" & zeile & "/G" & zeile
oder mit Zahlenwerten für die Buchstaben
Cells(zeile, 11) = Cells(zeile, 10) / Cells(zeile, 7)
Wenn ich deine zweite Formel richtig lese, ergibt sie doch immer 0:
Cells(zeile, 12) = Cells(zeile, 11)*60 - Cells(zeile, 11) * 60
Zum Runden verwendest du
Cells(zeile, 11) = round(Cells(zeile, 10) / Cells(zeile, 7),0)
Gruß
Holger
Susi79 schrieb am 25.06.2009 10:20:32:
Hi
ich habe ein kleines Problem mit folgender Formel in meinem VBA Code:
Cells(zeile, 11) = "=J" & zeile & "/G" & zeile
Cells(zeile, 12) = "=" & Cells(zeile, 11).Value & "*60-" & Cells(zeile, 11) & "*60)"
Ich würde den Code für die Zelle 11 ja auch gerne Abrunden aber wenn ich den so eingebe
Cells(zeile, 11) = "=Abrunden(J" & zeile & "/G" & zeile & ";0)"
Eingebe, dann erhalte ich da bereits eine Fehlermeldung, daher arbeite ich mit dem Value-Wert in der Hoffnung, dass dieser ohne Kommastellen berechnet wird.
Für eure Hilfe wäre ich sehr dankbar.
Viele Grüße
Susanne |