actionbrowser.com
25. 06. 2013, 16:34 # 1 Neuling285 Excel2007 - VBA Wert mit einer Formel berechnen und in Zelle schreiben Hallo ich habe eine riesige Tabelle, die formelbasiert war, dadurch war nach jeder Änderung erstmal 5min Rechenzeit notwendig. Bin grade dabei das ins VBA umzubauen, damit nur der Teil gerechnet wird, der notwendig ist... das bekomme ich auch halbwegs hin. nun stehe ich vor dem Problem, dass ich nur einen Wert in die Zelle einfügen will (keine Formel). per Makrorecorder und kleinen Anpassungen von mir komme ich soweit: cells(i, j) = "=R1C2*Sum(RC2:RC20)/R4C2" nun fügt er aber doch die Formel und nicht den errechneten Wert ein. mit cells(i, j) = Evaluate("=R1C2*Sum(RC2:RC" & i & ")/R4C2") Komme ich auch nicht weiter, da Evaluate zwingend eine A1-Schreibweise vorsieht, aber alle Formeln im Makrorecorder mit R1C1 aufgezeichnet werden. VBA - in nächste freie zeile schreiben - MS-Office-Forum. Ein Umbauen würde ewig dauern. Hab ihr da vielleicht eine schnelle Lösung für mich? Also ich würde gerne die R1C1-Schreibweise für Formeln beibehalten und den errechneten Wert in die jeweilige Zelle einfügen.
2011, 10:29 # 7 Wie ihr seht, hat er sich gemeldet Habe nicht viel Ahnung auch in Forumsdiskussionen nicht. hatte vorher die Seite nicht aktualisiert... Versuche nochmals kurz das zu erklären. Die Variante von EarlFred kommt meiner Vorstellung schon näher. 3 sollte das Fenster aufweisen: 1. 100 eingeben -> Ok -> 100 wird in Zelle geschrieben 2. Ok -> nichts wird in Zelle geschrieben, da immer schon ein Wert in dieser Zelle steht 3. Abbrechen -> Abbruch des Markos Danke euch nochmals 10. 2011, 10:43 # 8 Hallo Aragorn, wenn ich keinen Wert eintragen will, dann klicke ich Abbruch - das akzeptiert das Makro ja auch und es wird auch nichts an der Tabelle geändert. Warum sollte ich denn in diesem Fall OK klicken, wenn ich nichts ändern will? Excel vba wert in zelle schreiben mit. Punkt 2 verstehe ich nicht. Wenn Du OK klickst, soll nichts in die Zelle eingetragen werden, da dort schon was steht? Woher weißt Du das denn? Das würde ja Punkt 1 ad absurdum führen. Was versehst Du unter Punkt 3 als "Abbruch"? Bitte schreib nochmal ordentlich auf, was wann wie wo warum passieren soll.
20. 05. 2009, 12:41 # 1 MOF User Registrierung: 05. 06. 2008 Karma: VBA - in nächste freie zeile schreiben hallo excel freaks, wie kann ich in die nächste freie zeile einen wert einttagen der in der variable xy steht? die zeilen 1-520 sind schon reserviert ein bereich der gefiltert wird. das heist die werte müssen in 521, 522, 523.... eingetragen werden vielen dank mal vorab! Michael 20. 2009, 12:57 # 2 MOF Guru Registrierung: 28. Excel-Formel per VBA in eine Zelle schreiben? (Computer). 02. 2001 Moin, Michael, Code: Cells(Cells(, "A")(xlUp) + 1, "A") = "Dein neuer Wert" __________________ cu jinx per 31. 12.
10. 02. 2011, 08:58 # 1 Aragorn25 VBA - Inputbox: Wert in Zelle lassen oder überschreiben Hallo zusammen Ich bin auf untenstehende Frage gestossen... Wie kann folgende Sub ergänzt werden, wenn bereits ein Wert in der betreffenden Zelle vorhanden ist? Also wenn in C5 bereits ein Eintrag vorhanden ist und nun dieser überschrieben werden sollte. Sub Inputbox_öffnen() Dim Artikelnummer As Variant Artikelnummer = putBox("Bitte geben Sie die Artikelnummer ein. ", "Artikelnummereingabe",, Type:=1) If Artikelnummer = False Then Exit Sub Else Sheets("Tabelle1"). Activate Range("C5") = Artikelnummer End If End Sub Das funktioniert. Ich möchte nun aber eine weitere Möglichkeit: 1. einen Wert in eine Zelle einfügen können (code oben ok) 2. abbrechen können (code oben ok) 3. den bestehenden Wert in der Zelle lassen und dennoch im Makro weiterfahren Gruß und Besten Dank im Voraus 10. Collatz Reihe in Excel mithile von VBA. 2011, 09:26 # 2 MOF Guru Registrierung: 21. 2009 Hallo meinst Du es so? Code: Sub versuch() With Sheets("Tabelle1")("C5") If <> "" Then If MsgBox("soll Wert überschrieben werden", vbYesNo) = vbYes Then = Artikelnummer GoTo weiter End With weiter: MsgBox "Code weiter ausfuehren" gruss hary 10.
Da kannst du genau so gut morgen im Bus kurz bei deinen Kumpels abschreiben oder auf die Erklärung des Lehrers warten (Nachdem du es vorher zumindest selbst versucht hast). Folgendes sollte dir allerdings weiter helfen fall noch nicht bekannt: 1. Im VBA-Editor kannst du druch doppelklick auf die graue Leiste Haltepunkte setzen. Die Ausführung wird an dieser Stelle angehalten, und du kannst dir die Werte in unterschiedlichen Variablen ansehen. Durch Druck auf die Playtaste geht's dann wieder weiter. 2. Bei Rechtsklick auf eine Variable findest du im Kontexmenü den Eintrag "Überwachung hinzufügen". Excel vba wert in zelle schreiben deutsch. Der Wert der Variable ist dann während der Ausführung in einem separaten Fenster sichtbar. von Messageboxen Msgbox "Hallo Welt! " 'Ausgabe von "Hallo Welt! " in Popup Msgbox test 'Ausgabe des Wertes der Variable test in Popup 4. Wenn du über das Menü Ansicht das Direktfenster einblendest kannst du dir dort mit Werte anzeigen lassen und sie danach analysieren: Sub test() Dim i For i = 0 To 10 i Next Viel Erfolg!
10. 2011, 11:55 # 9 Ich möchte eine Unterscheidung zwischen Abbruch des Makros und "Abbruch" der Application InBox. Daher habe ich gedacht, statt 3 Buttons (wäre auch ok), schlage ich vor, dass man den Ok Button doppelt benutzen kann. Die Zellen sind immer gefüllt, da eine Vorlage existiert, die ich oft auswerten muss. Sobald ich die Werte einmal geändert habe, kann ich die meisten weiterverwenden, ohne sie abzuändern. Gruss Aragorn 10. Excel vba wert in zelle schreiben e. 2011, 12:05 # 10 Vorschlag: baue Dir eine eigene Userform mit einer Textbox und drei Buttons. da kannst Du dann machen was Du willst. gruss hary
2009, 13:09 # 5 @jinx: Optimierungsbedarf? Hey jinx, ich tu das nur sehr ungerne, aber hier "optimiere" ich mal Deinen Vorschlag: Cells(, "A")(xlUp)(1) = "Dein neuer Wert" Weshalb erst eine Objekteigenschaft auslesen, um mit dieser dann wieder fast das gleiche Objekt zu referenzieren;-)? PS: Klappt natürlich nicht bei gefilterten Listen - Daher auch mein Beitrag oben!! 20. 2009, 13:13 # 6 Threadstarter geht leider nicht.... weil der bereich bis zeile 520 gefiltert wird und die letzten einträge in diesem bereich momentan noch leer sind... lg michael 10. 2012, 10:21 # 7 Popsi Zellinhalte Kopieren Also ich werde aus den ganzen Informationen nicht schlau! Ich weiß das Thema gibt es überall und ich entschuldige mich direkt dafür, aber Ich habe 2 Sheets, das 2. Sheet entpricht einer Tabelle in der folgende dinge in die nächste Freie Zeile kopiert werden sollen: Datum, Zahl, und ein fest definierter Text "xy" Dabei steht die Zahl in Sheet 1 und in Cell(2, 4) Bekomme das irgendwie nicht hin! 10.