Thema Datum  Von Nutzer Rating
Antwort
Rot Formel per VBA realisieren
 30.01.2017 10:12:27 Christian
NotSolved
30.01.2017 10:13:38 Christian
NotSolved

Ansicht des Beitrags:
Von:
Christian		 Datum:
30.01.2017 10:12:27		 Views:
985		 Rating:
     
Antwort:
  Ja
Thema:
Formel per VBA realisieren
Guten Tag, ich habe folgendes Problem. In Spalte K soll fortlaufend die Formel nach folgendem Schema fortgeführt werden: K149: =(A149-A149)*F149/12*$J$2 K150: =(A150-A150)*F150/12*$J$2+(A150-A149)*F149/12*$J$2 K151: =(A151-A151)*F151/12*$J$2+(A151-A150)*F150/12*$J$2+(A151-A149)*F149/12*$J$2 K152: =(A152-A152)*F152/12*$J$2+(A152-A151)*F151/12*$J$2+(A152-A150)*F150/12*$J$2+(A152-A149)*F149/12*$J$2 Diese Schema soll bis in Zeile 224 gehen: Hier soll dann folgerichtig folgendes rauskommen: =(A224-A224)*F224/12*$J$2+(A224-A223)*F223/12*$J$2+(A224-A222)*F222/12*$J$2+(A224-A221)*F221/12*$J$2+(A224-A220)*F220/12*$J$2+(A224-A219)*F219/12*$J$2+(A224-A218)*F218/12*$J$2+(A224-A217)*F217/12*$J$2+(A224-A216)*F216/12*$J$2+(A224-A215)*F215/12*$J$2+(A224-A214)*F214/12*$J$2+(A224-A213)*F213/12*$J$2+(A224-A212)*F212/12*$J$2+(A224-A211)*F211/12*$J$2+(A224-A210)*F210/12*$J$2+(A224-A209)*F209/12*$J$2+(A224-A208)*F208/12*$J$2+(A224-A207)*F207/12*$J$2+(A224-A206)*F206/12*$J$2+(A224-A205)*F205/12*$J$2+(A224-A204)*F204/12*$J$2+(A224-A203)*F203/12*$J$2+(A224-A202)*F202/12*$J$2+(A224-A201)*F201/12*$J$2+(A224-A200)*F200/12*$J$2+(A224-A199)*F199/12*$J$2+(A224-A198)*F198/12*$J$2+(A224-A197)*F197/12*$J$2+(A224-A196)*F196/12*$J$2+(A224-A195)*F195/12*$J$2+(A224-A194)*F194/12*$J$2+(A224-A193)*F193/12*$J$2+(A224-A192)*F192/12*$J$2+(A224-A191)*F191/12*$J$2+(A224-A190)*F190/12*$J$2+(A224-A189)*F189/12*$J$2+(A224-A188)*F188/12*$J$2+(A224-A187)*F187/12*$J$2+(A224-A186)*F186/12*$J$2+(A224-A185)*F185/12*$J$2+(A224-A184)*F184/12*$J$2+(A224-A183)*F183/12*$J$2+(A224-A182)*F182/12*$J$2+(A224-A181)*F181/12*$J$2+(A224-A180)*F180/12*$J$2+(A224-A179)*F179/12*$J$2+(A224-A178)*F178/12*$J$2+(A224-A177)*F177/12*$J$2+(A224-A176)*F176/12*$J$2+(A224-A175)*F175/12*$J$2+(A224-A174)*F174/12*$J$2+(A224-A173)*F173/12*$J$2+(A224-A172)*F172/12*$J$2+(A224-A171)*F171/12*$J$2+(A224-A170)*F170/12*$J$2+(A224-A169)*F169/12*$J$2+(A224-A168)*F168/12*$J$2+(A224-A167)*F167/12*$J$2+(A224-A166)*F166/12*$J$2+(A224-A165)*F165/12*$J$2+(A224-A164)*F164/12*$J$2+(A224-A163)*F163/12*$J$2+(A224-A162)*F162/12*$J$2+(A224-A161)*F161/12*$J$2+(A224-A160)*F160/12*$J$2+(A224-A159)*F159/12*$J$2+(A224-A158)*F158/12*$J$2+(A224-A157)*F157/12*$J$2+(A224-A156)*F156/12*$J$2+(A224-A155)*F155/12*$J$2+(A224-A154)*F154/12*$J$2+(A224-A153)*F153/12*$J$2+(A224-A152)*F152/12*$J$2+(A224-A151)*F151/12*$J$2+(A224-A150)*F150/12*$J$2+(A224-A149)*F149/12*$J$2 Bisher habe ich schon folgenden Code mit einer Schleife geschrieben. Hier rein, bei der Variablen "Rechnung" soll nun die Formel gepackt werden... Kann jemand weiterhelfen? Sub Formel() Worksheets("part").Range("K149").Select Zeile = 1 Do Until ActiveCell.Value = "Ende" Zelle = ActiveCell.Row hours = Worksheets("part").Range("J2").Value Rechnung = "=(A" & Zelle & "-A" & Zelle & ")*F" & Zelle & "/12*" & hours komplett = Rechnung ActiveCell.Offset(1, 0).Select Zeile = Zeile + 1 Loop End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Formel per VBA realisieren
 30.01.2017 10:12:27 Christian
NotSolved
30.01.2017 10:13:38 Christian
NotSolved