Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mathematische Formel in VBA

Forumthread: Mathematische Formel in VBA

Mathematische Formel in VBA
Daniel
Hallo mal wieder ^^
kann man so eine Formel in Form von
=$C$149+($C$148-$C$149)*EXP((-U379*60*$C$151*$C$154*$C$159)/($C$152*$C$153*$C$158))
per Makro schreiben?!
Es geht darum das eine Berechnung per Knopfdruck auf ein Commandbutton, welches mit dem entsprechenden Makro gefüttert ist, durchgeführt werden soll. Dabei soll die Formel zum Beispiel in V379 rechnen und das Ergebnis eintragen und dann weitermachen in V380 usw und jeweils in jeder neuen V-Zelle das U entsprechend hochsetzen.
Bsp:
V 379 = Formel von oben mit U379
V 380 = Formel von oben mit U380
.
.
.
und dies soll nur so lange geschehen wie ein wert in der U-spalte steht.
Kann man sowas per VBA machen?! Bin überfordert -.-
Danke im Voraus,
Daniel
Anzeige
AW: Mathematische Formel in VBA
27.10.2009 16:29:54
JogyB
Hi.
Wieso per VBA? Als Excel-Profi weißt Du doch wie man die Formel nach unten ausfüllen läßt bzw. wie Du mit einer WENN-Funktion verhinderst, dass bei leeren Zellen in Spalte U eine Berechnung in V ausgeführt wird.
Ansonsten: 
Private Sub CommandButton1_Click()
' Formel in V379 bis Ende löschen
Range(Cells(379, 22), Cells(Rows.Count, 22).End(xlUp)).ClearContents
' Formel eintragen
Range(Cells(379, 21), Cells(Rows.Count, 21).End(xlUp)).Offset(0, 1).FormulaR1C1 = _
"=R149C3+(R148C3-R149C3)*EXP((-RC[-1]" & _
"*60*R151C3*R154C3*R159C3)/(R152C3*R153C3*R158C3))"
End Sub
Gruss, Jogy
Anzeige
AW: Mathematische Formel in VBA
27.10.2009 16:39:45
Daniel
Ja das weiß ich wie mans macht, aber mit nem Makro ist das alles viel schöner ;=)
Danke für die Hilfe!
Kannst du mir vll auch noch sagen wie Ich in der Spalte W bei passenden Eintrag der spalte V, das Ergebnis von V-273,15 nehmen kann (wie oben)
Bsp:
W379 = V379 - 273,15
Und zwar wieder in dem Bereih der gefüllt ist.
Schönen Abend
Anzeige
AW: Mathematische Formel in VBA
27.10.2009 16:54:37
JogyB
Hi.
Aber sicher doch (macht beides): 
Private Sub CommandButton1_Click()
' Formel in V379 bzw. W379 bis Ende löschen
Range(Cells(379, 22), Cells(Rows.Count, 22).End(xlUp)).ClearContents
Range(Cells(379, 23), Cells(Rows.Count, 23).End(xlUp)).ClearContents
' Formel eintragen
With Range(Cells(379, 21), Cells(Rows.Count, 21).End(xlUp))
.Offset(0, 1).FormulaR1C1 = _
"=R149C3+(R148C3-R149C3)*EXP((-RC[-1]" & _
"*60*R151C3*R154C3*R159C3)/(R152C3*R153C3*R158C3))"
.Offset(0, 2).FormulaR1C1 = "=RC[-1]-273.15"
End With
End Sub

Gruss, Jogy
Anzeige
AW: Mathematische Formel in VBA
27.10.2009 17:13:18
Daniel
Vielen Dank,
wenn du mir jetzt auch noch sagen kannst wie der VBA Code aussieht der aus den Daten aus der U-Spalte (minuten) und der W-Spalte (Temperatur in °C) ein x-y diagramm mit interpolierten Linien erzeugt in dem Bereich der vorhanden ist in der spalte, dann bist der neue VBA Gott *g*
X-Achse= Zeit in min (U-Spalte)
Y-Achse = Temp in °C (W-Spalte)
Gruß
Daniel
Anzeige
AW: Mathematische Formel in VBA
28.10.2009 09:31:47
JogyB
Hi.
Noch kurz nachgehakt: Wo soll das Diagramm hin? Ins Tabellenblatt oder als eigenes Sheet?
Gruss, Jogy
AW: Mathematische Formel in VBA
28.10.2009 09:33:03
Daniel
Als eigenes Sheet wäre gut ^^
Was mir noch einfällt, kann man per Makro auch einstellen das er die Skalierung der x-y achse dann automatisch anpasst ?
AW: Mathematische Formel in VBA
28.10.2009 09:46:16
JogyB
Hi.
Nachfrage: Wo soll das Diagramm hin? Ins Tabelleblatt oder in ein eigenes Sheet?
Gruss, Jogy
Anzeige
AW: Mathematische Formel in VBA
28.10.2009 09:50:16
Daniel
Aber das hab ich doch schon geschrieben ^^
AW: Mathematische Formel in VBA
28.10.2009 10:02:55
Daniel
Noch da Jogy?
AW: Mathematische Formel in VBA
28.10.2009 10:12:56
JogyB
Hi.
Ja, bin natürlich noch da ;)
Hatte das doppelt geschickt, da ich dachte, ich hätte vergessen das abzuschicken.
Probier mal den Code: 
Private Sub CommandButton1_Click()
Dim myChart As Chart
Const diagName = "Diag Temperaturdaten" ' den hier anpassen
' Formel in V379 bzw. W379 bis Ende löschen
Range(Cells(379, 22), Cells(Rows.Count, 22).End(xlUp)).ClearContents
Range(Cells(379, 23), Cells(Rows.Count, 23).End(xlUp)).ClearContents
' Formel eintragen
With Range(Cells(379, 21), Cells(Rows.Count, 21).End(xlUp))
.Offset(0, 1).FormulaR1C1 = _
"=R149C3+(R148C3-R149C3)*EXP((-RC[-1]" & _
"*60*R151C3*R154C3*R159C3)/(R152C3*R153C3*R158C3))"
.Offset(0, 2).FormulaR1C1 = "=RC[-1]-273.15"
' Testen, ob das Diagramm schon vorhanden ist
On Error Resume Next
Set myChart = Sheets(diagName)
' Wenn nicht, dann erzeugen
If Err.Number  0 Then
Set myChart = Charts.Add
With myChart
.Name = diagName
.ChartType = xlXYScatterSmooth
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Zeit / min"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "T / °C"
End With
End If
myChart.SetSourceData Source:=Union(.Offset(0, 0), .Offset(0, 2)), PlotBy:=xlColumn
myChart.SeriesCollection(1).Name = "=""Daten""" ' Mußt Du hier halt so benennen, wie Du  _
es willst
End With
End Sub
Gruss, Jogy
Anzeige
AW: Mathematische Formel in VBA
28.10.2009 10:18:55
Daniel
Der funktioniert, nur erstellt er mir für jede Minute eine Gerade, dabei will ich eine kurve mit dem zeitlichen verlauf der Temperatur, sprich 2 datenreihen eine die x-achse mit zeit und die y-achse mit der temperatur.
Hoff verstehst was ich mein.
Gruß
AW: Mathematische Formel in VBA
28.10.2009 10:24:14
Daniel
Ne geht doch :=)
Muss ich nur noch rausfinden wer er die skalierung anpasst.
Danke!!
Anzeige
Auch wenn hier 13x dasselbe falsch steht,...
30.10.2009 11:15:41
Luc:-?
...wird aus einer typischen xlFormel noch lange keine „mathematische" Formel!
Gruß Luc :-?
AW: Auch wenn hier 13x dasselbe falsch steht,...
30.10.2009 11:17:45
Daniel
Typisch oder net, ich kenn mich net aus mit formeln in vba, problem is aber gelöst.
Und für mich ist das eine mathematische formel ^^
Gruß
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige