Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion

DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion
31.10.2014 19:52:07
Florian
Hallo,
ich habe mir heute eine "kleine" Funktion in VBA geschrieben.
Sie sollte in Abhängigkeit von einem Anfangsdatum T1 und einem Enddatum T2 automatisch aus einer Tabelle (in einem anderen Tabellenblatt) zwei Werte auslesen. Die Zeilen dieser Tabelle sind nach "Anfangsdaten" untergliedert (,die T1 entsprechen sollen), wohingegen die Spalten dieser Tabelle in kategoriesierte Zeiträume untergliedert sind. In der Tabelle selbst stehen dann die benötigten Werte. Die beiden ermittelten Werte sollten abschließend - falls nötig - interpoliert werden.
Leider spuckt Excel bei Anwendung des Codes die Fehlermeldung #WERT! aus...Bräuchte bitte dringend Hilfe!
Hier der Code, vllt findet jemand meine/n Fehler:
Function MATCHING(ByVal T1 As Double, _
ByVal T2 As Double) As Double
' Dimensionierung der Hilfsvariablen
Dim x As Integer, _
y As Integer, _
i As Integer, _
j As Integer, _
T_l As Double, _
T_k As Double, _
r_l As Double, _
r_k As Double, _
Zeile As Double, _
lambda As Double, _
RLZ As Double, _
RLZ_year As Double
' Restlaufzeit in Tagen
RLZ = T2 - T1
' Restlaufzeit in Jahre
RLZ_year = Application.WooksheetFunction.YearFrac(T1, T2, 1)
' Falls Restlaufzeit

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion
31.10.2014 20:55:33
Luschi
Hallo Florian,
hier sind ein 2 kleine Fehler drin:
RLZ_year = Application.WooksheetFunction.YearFrac(T1, T2, 1) 'falsch
RLZ_year = Application.WorksheetFunction.YearFrac(T1, T2, 1) 'richtig
Dann benöigt die YearFrac-Funktion Datumswerte statt Double - also:
Function MATCHING(ByVal T1 As Date, ByVal T2 As Date) As Double
aus der vba-Online-Hilfe:
YEARFRAC(start_date, end_date, [basis])
The YEARFRAC function syntax has the following arguments:
Start_date Required. A date that represents the start date.
End_date Required. A date that represents the end date.
Basis Optional. The type of day count basis to use.
Dann mußt Du natürlich auch der MATCHING-Funktion Datumswerte übergeben.
Gruß von Luschi
aus klein-Paris

Anzeige
AW: DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion
01.11.2014 13:37:15
Florian
Danke für den Hinweis!
Ich habe das nun gemacht, und zudem einen weiteren Fehler, nämlich die Korrektur von T_l und T_k angepasst. Es handelt sich hierbei nämlich auch um zwei Datumsangaben: Bei T_l bzw. T_k werden jeweils eine bestimmte Anzahl an Wochen bzw. Monate auf T1 addiert.
Leider klappt es immer noch nicht mit dem Code :-(
Als weiteren Hinweis: bei Sheets("Tabelle2").Range("A2:P373") handelt es sich auch um Datumsangaben, die mit dem Datumswert von T1 abgeglichen werden sollen.
Hier der "neue" Code:
Function MATCHING(ByVal T1 As Date, _
ByVal T2 As Date) As Double
' Dimensionierung der Hilfsvariablen
Dim x As Integer, _
y As Integer, _
i As Integer, _
j As Integer, _
T_l As Date, _
T_k As Date, _
r_l As Double, _
r_k As Double, _
Zeile As Double, _
lambda As Double, _
RLZ As Double, _
RLZ_year As Double
' Restlaufzeit in Tagen
RLZ = T2 - T1
' Restlaufzeit in Jahre
RLZ_year = Application.WorksheetFunction.YearFrac(T1, T2, 1)
' Falls Restlaufzeit

Anzeige
AW: DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion
01.11.2014 16:15:00
Florian
... Habe nun am Ende des Codes noch einige kleine Veränderungen vorgenommen. Ich hoffe, es kann mir jemand kurz helfen:
Function MATCHING(ByVal T1 As Date, _
ByVal T2 As Date) As Double
' Dimensionierung der Hilfsvariablen
Dim x As Integer, _
y As Integer, _
i As Integer, _
j As Integer, _
T_l As Date, _
T_k As Date, _
r_l As Double, _
r_k As Double, _
Zeile As Double, _
lambda As Double, _
RLZ As Double, _
RLZ_year As Double
' Restlaufzeit in Tagen
RLZ = DateDiff("d", T1, T2)
' Restlaufzeit in Jahre
RLZ_year = Application.WorksheetFunction.YearFrac(T1, T2, 1)
' Falls Restlaufzeit

Anzeige
AW: DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion
02.11.2014 09:57:40
Luschi
Hallo Florian,
hier noch eine kleine Änderung:
statt:
Zeile = Application.WorksheetFunction.Match(T1, Sheets("Tabelle2").Range("A2:A373"), 0)
so:
Zeile = Application.WorksheetFunction.Match(CLng(T1), Sheets("Tabelle2").Range("A2:A373"), 0)
Gruß von Luschi
aus klein-Paris

AW: DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion
03.11.2014 09:31:28
Florian
Vielen Dank für den Hinweis!
Es lag tatsächlich an der Anweisung "Zeile".
Ich habe es schließlich so gelöst, dass ich T1 als String-Variable T_1 definiert habe; so klappte es dann!
Vielen herzlichen Dank!

AW: DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion
03.11.2014 10:12:25
Luschi
Hallo Florian,
das hier "Ich habe es schließlich so gelöst, dass ich T1 als String-Variable T_1 definiert habe; so klappte es dann!" - verstehe ich nicht. Du solltest doch in der Match-Funktion nur T1 gegen Clng(T1) ändern, also
Zeile = Application.WorksheetFunction.Match(Clng(T1), Sheets("Tabelle2").Range("A2:A373"), 0)
Zeige doch mal als Code, was Du gemacht hast!
Gruß von Luschi
aus klein-Paris

Anzeige
AW: DRINGEND!!! Fehlermeldung #WERT! bei VBA_Funktion
05.11.2014 09:22:31
Florian
Hi,
ich habe quasi das Problem schon gelöst, ehe ich Deine Antwort gelesen habe!
So, wie ich es jetzt gemacht habe, funktioniert es jedenfalls:
Dim T_1 As String
T_1 = T1
Arr = Worksheets("EURIBOR").Range("A1:A373")
Zeile = Application.WorksheetFunction.Match(T_1, Arr, 0)
Mat = Worksheets("EURIBOR").Range("A1:P373")
r_l = Application.WorksheetFunction.Index(Mat, Zeile, X)
r_k = Application.WorksheetFunction.Index(Mat, Zeile, y)

303 Forumthreads zu ähnlichen Themen

VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Anzeige
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 Beiträge
Fehlermeldung bei Zeilenumbruch im VBA-Editor
reiner

Hallo Leute,
ein Makrocode veranlasst den Eintrag des nachfolgenden Kommentars (auf 7 Zeilen aufgeteilt im Kommentarfenster) in eine bestimmte Zelle sobald eine entsprechende Bedingung erfüllt ist.
ActiveCell.Comment.Text Text:= _ "Beginn und Ende des Gesprächs lagen in der gleichen Mi...
15.04.2010 11:47:38
Thread-ID: 1151946
5 Beiträge
Anzeige
VBA WennDann + Variable
Pascal

Guten Abend zusammen,
die letzte Stunde habe ich mir am folgendem Problem die Zähne ausgebissen :(
Ich versuche in einen relativen Zellbereich eine Wenn-Dann Abfrage reinzubauen.
Folgende Formel funktioniert auch:
Range(Cells(38, 12 + j), Cells(964, 12 + j)).FormulaR1C1 = "=IF(R...
13.07.2010 20:59:05
Thread-ID: 1166947
7 Beiträge
VBA Formel wenn Uhrzeit dann
Gonzer

Hallo zusammen,
habe folgendes Problem - ich will per VBA eine Formel in eine Zelle schreiben die überprüft ob ein Zellwert im Datumsformat vorliegt. Liegt dieses vor soll der Zellwert übernommen werden, wenn nicht soll die Zahl als Uhrzeit umgewandelt werden.
Hier meine Code Zeile:
...
16.09.2010 17:07:58
Thread-ID: 1178158
5 Beiträge
wie war das... VBA wenn dann ?
amintire

Hallo alle zusammen,
würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
Also Daten stehen in A:B
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
=If B > 1 then
=?
oder so ähnlich ? <...
25.02.2011 11:37:33
Thread-ID: 1202920
16 Beiträge
Fehler bei VBA .Find() ... wenn nicht gefunden???
KLE

Hallo,
...ich suche nach einem "," in einer Textbox, wenn vorhanden um dannach die Elemente zu trennen (vor und nach dem Komme).
Dazu nutze ich folgende Zeilen, die funktionieren, solange ich ein Komma in der Textbox habe...was aber, wenn nicht ?
Dann erhalte ich stets eine Fehlerm...
17.08.2011 09:51:04
Thread-ID: 1226421
3 Beiträge
wenn fehler dann sonst mit vba
Erik

Hallo Leute ich versuche einen Forecast zu erstellen und habe folgendes Problem.
Diese Formel:
=WENN(ISTFEHLER(VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B));"";VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B))
Steht in einer Zelle.
Wenn die Leute jetzt in die zelle schreiben ist die formel weg....
24.10.2011 23:00:40
Thread-ID: 1235246
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
7
4
3
6
4
15
2
2
2
2
2
2
3
4
4
1
3
3
7
1
10
2
1