Zellen mit Ergebnissen aus Makro füllen
01.03.2004 16:08:50
TinoB
ich scheitere wiedermal an etwas und hoffe ihr könnt mir weiterhelfen. also mit der untenstehenden anweisung, füllt es mir die spalten BH bis BO des tabellenblattes Formeln mit den ergebnissen aus dem tabellenblatt Ausgabe. ich kenn mich zwar nicht so gut aus, aber diese zeile (intRow = Sheets("Formeln").Cells(Rows.Count, 1).End(xlUp).Row) sucht doch nach der letzten zelle im Tabellenblatt mit einem eintrag und füllt so alle zellen aus egal ob es noch etwas zu berechen gibt oder nicht. nun möchte ich aber nicht das gesamte tabellenblatt mit einbeziehen sondern es soll nur nach dem letzten eintrag der SpalteA gesucht werden und diese ergebnisse dementsprechend eingetragen werden. kann mir da jemand helfen? was müsste ich den da ändern?
besten dank im voraus
Tino
Sub Berechnen()
Dim intRow As Integer
intRow = Sheets("Formeln").Cells(Rows.Count, 1).End(xlUp).Row
Range("Formeln!BH2").Formula = "=((Ausgabe!K21+Ausgabe!L21)*2*Ausgabe!W21)/1000000"
Range("Formeln!BI2").Formula = "=BH3*Ausgabe!E21"
Range("Formeln!BH3:BO" & intRow).FillDown
Range("Formeln!BH:BO") = Range("Formeln!BH:BO").Value
End Sub
Anzeige