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

TREND will nicht so wie ich

TREND will nicht so wie ich
24.09.2007 20:44:00
Hermann
Liebe Forenmitglieder,
ich hoffe es ist nur eine Kleinigkeit an der ich scheitere, damit es nicht zu lange dauert.
Ich komme mit der Trend-Funktion nicht klar und bitte deswegen um Hilfe. Sie soll helfen mit linearer Interpolation einen 3ten Wert zu den 2 vorgegebenen Werteparen zu ermitteln.
Im Folgenden mein Ansatz:

Function bohren(Material As String, Durchm As Integer) ' As Single
Dim Dur1, Dur2, dreh1, dreh2 As Integer
Dur1 = 2
Dur2 = 25
If Mat = "AL" Then
dreh1 = 6365
dreh2 = 510
End If
If Mat = "ST" Then
dreh1 = 4750
dreh2 = 400
End If
bohren = Trend("dur1;dur2", "dreh1;dreh2", Durchm)
End Function


Der Aufruf lautet im Moment z.B. =bohren("AL";2). Dies führt zu einem Sytaxfehler in der Zeile mit der TREND-Funktion.
Vielen Dank für eine Antwort im voraus!
Gruß Hermann

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TREND will nicht so wie ich
24.09.2007 21:11:08
Hubert
Hi,
so?
bohren = Application.Trend("dur1;dur2", "dreh1;dreh2", Durchm)
mfg Hubert

AW: TREND will nicht so wie ich
24.09.2007 21:39:14
Hermann
Hallo Hubert,
vielen Dank für Deine schnelle Hilfe.
ich hatte zum Schluß mit:
bohren = WorksheetFunction.Trend(Array(Dur1, Dur2), Array(dreh1, dreh2), , Durchm)(1)
erfolg. (ein Tip von Ransi)
Es ist sensationell wie schnell und unkomlizirt es ging

AW: TREND will nicht so wie ich
ransi
HAllo Hermann
Ich habe zwar überhaupt keine Ahnung was du Berechnen willst, aber deine Synthax zur Trendfunction ist total daneben....
Dies hier wirft ein Ergebniss aus,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Function bohren(Mat As String, Durchm As Integer) As Variant
Dim Dur1, Dur2, dreh1, dreh2 As Integer
Dur1 = 2
Dur2 = 25
If Mat = "AL" Then
    dreh1 = 6365
    dreh2 = 510
End If
If Mat = "ST" Then
    dreh1 = 4750
    dreh2 = 400
End If
bohren = WorksheetFunction.Trend(Array(Dur1, Dur2), Array(dreh1, dreh2), , Durchm)(1)
'bohren = WorksheetFunction.Trend(Array(Dur1, Dur2), Array(dreh1, dreh2), , Durchm)(2)
End Function

aber ob es das Gewünschte ist weiss ich nicht...
ransi

Anzeige
AW: TREND will nicht so wie ich
24.09.2007 21:41:00
Hermann
Hallo Ransi,
es ist einfach klasse wie schnell Du das Problem gelöst hast. Und das obwohl Du nicht wußtest was das soll.
Vielen Dank für Deine schnelle und unkomplizierte Hilfe
Sensationell
Gruß Hermann

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige