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

feste Funktion mit sich ändernden Werten

Forumthread: feste Funktion mit sich ändernden Werten

feste Funktion mit sich ändernden Werten
26.01.2009 10:29:00
Tobsen
Hallo habe folgendes Problem.
Möchte Tageswerte eines Programms in eine csv-Datei schreiben. Das solle folgendermaßen aussehen:
SchreibTag("DatenpunktWert1","DatenpunktWert2") --> Funktionsaufruf!
Funktion: Die Funktion soll Global sein, heißt die soll nicht mehr geändert werden. Die Datenpunkte werden hier in Integer gewandelt und in eine datei geschrieben.
Wie kann ich in meiner Funktion die Datenpunkte aufrufen ohne diese direkt anzusprechen. Die Datenpunkte ändern sich von Projekt zu Projekt, deshalb sollten sie nur einmal im Funktionsaufruf eingetragen werden und in der eigentlichen Funktion sollte mit Variablen o.ä. gearbeitet werden. Eben so, dass ich die ganzen Datenpunkte nicht in der Funktion auch jedesmal ändern muss.
Hoffe man konnte verstehen worauf ich hinaus will. Meine VBA Kenntnisse sind nocht nicht all zu tief.
Dank und Gruß
Tobsen
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: feste Funktion mit sich ändernden Werten
26.01.2009 12:25:00
fcs
Hallo Tobsen,
vom Grundprinzip schaut ein Funktionsaufruf mit Parametern wie folgt aus.
Hier im Beispiel werden die Inhalte (Texteigenschaft) zweier Zellen an die Funktion übergeben.
Gruß
Franz

Sub Test()
Call SchreibTag(strDatenpunktWert1:=Cells(1, 2).Text, strDatenpunktWert2:=Cells(1, 3).Text)
End Sub
Public Sub SchreibTag(strDatenpunktWert1 As String, strDatenpunktWert2 As String)
Dim lngDP1 As Long, lngDP2 As Long
Const strDatei As String = "C:\Lokale Daten\Test\Daten\Test001.csv"
If IsNumeric(strDatenpunktWert1) Then lngDP1 = CLng(strDatenpunktWert1) Else lngDP1 = 0
If IsNumeric(strDatenpunktWert2) Then lngDP2 = CLng(strDatenpunktWert2) Else lngDP2 = 0
Open strDatei For Append As #1
'Werte + aktuelle Datum am Ende der CSV-Datei anfügen
Print #1, lngDP1 & "," & lngDP2 & "," & Format(Date, "YYYY-MM-DD")
Close #1
End Sub


Anzeige
AW: feste Funktion mit sich ändernden Werten
26.01.2009 13:06:00
Tobsen
Hallo Franz, danke fü deine Hilfe
Habe folgendes (unvollstänfig)
Function schreibe_VT(Verz, Datei, strwert As String) As Integer
Datum = Format(Date, "yyyy/mm")
Vortag = DateAdd("d", -1, Date)
Open Verz & Datei & "_" & Datum & ".csv" For Append Shared As #1
test = CInt(strwert) 'hier sagt der compiler: typen unverträglich?'
daten = (Vortag) & ";" & (test)&";"...
Print #1, daten
Close #1
End Function 



Private Sub CommandButton5_click()
erg = schreibe_VT("c:\test\", "Anlage", "Fix32.Fix.Sinus.f_cv",...)  'hier sollen alle  _
datenpunkte eingetragen werden, in der funktion sollen diese nicht geändert werden müssen!?'
End Sub


Anzeige
AW: feste Funktion mit sich ändernden Werten
26.01.2009 18:16:00
fcs
Hallo Tobsen,
die Funktion CInt wandelt einen als Text vorliegenden Zahlen-Ausdruck in eine Integer-Zahl um. Ist der Text nicht nummerisch, dann gibt es einen Typ-Fehler. deshalb ist dringend eine Fehlerbehandlung/Wertpürfung angeraten.
Wenn du mehrere Werte an die Funktion übergeben willst, dann muss du diese in einem Array übergeben. In einer Schleife müssen diese Werte dann für die Datenzeile in der CSV-Datei zusammengebaut werden.
Gruß
Franz

Function schreibe_VT(Verz, Datei, strwert As Variant) As Boolean
Dim Datum As String, Vortag As Variant, intI As Integer, test As Long
Dim daten As String
On Error GoTo Fehler
Datum = Format(Date, "yyyy/mm") '---> 2006.01
Datum = Format(Date, "yyyy_mm") 'meine Empfehlung '---> 2006_01
Vortag = DateAdd("d", -1, Date)
daten = (Vortag)
For intI = LBound(strwert) To UBound(strwert)
If IsNumeric(strwert(intI)) Then
'    test = CInt(strwert(intI)) 'CInt kann nur Zahlen bis ca. 32000 verarbeiten
test = CLng(strwert(intI))
daten = daten & ";" & (test)
Else
'    daten = daten & ";" & strwert(intI) 'nur zum Testen
daten = daten & ";" 'Bei nicht nummerischen Werten
End If
Next
Open Verz & Datei & "_" & Datum & ".csv" For Append Shared As #1
Print #1, daten
Close #1
schreibe_VT = True
Fehler:
With Err
If .Number  0 Then
schreibe_VT = False
MsgBox "Fehler-Nr. " & .Number & vbLf & .Description
End If
End With
End Function
Private Sub CommandButton5_click()
Dim erg As Boolean, Var1, Var2, Var3
'hier sollen alle datenpunkte eingetragen werden, _
in der funktion sollen diese nicht geändert werden müssen!?'
'so - feste Werte
erg = schreibe_VT("c:\test\", "Anlage", Array("105", "203.4", "26"))
'oder so - Zelladdressen
erg = schreibe_VT("c:\test\", "Anlage", Array(Cells(3, 1), Cells(3, 2), _
Cells(3, 3)))
'oder so - Range-Addressen
erg = schreibe_VT("c:\test\", "Anlage", Array(Range("A3"), Range("B3"), _
Range("C3")))
'oder so - Variablen-Werte
Var1 = "123.2"
Var2 = "007"
Var3 = "0.234"
erg = schreibe_VT("c:\test\", "Anlage", Array(Var1, Var2, Var3))
If erg = True Then
MsgBox "Daten erfolgreich in Datei geschrieben", vbOKOnly, "Test schreibe_VT"
Else
MsgBox "Fehler beim Schreiben der Daten in Datei", vbOKOnly, "Test schreibe_VT"
End If
End Sub


Anzeige
AW: feste Funktion mit sich ändernden Werten
27.01.2009 11:27:00
Tobsen
Danke Franz, das bringt mich doch schon weiter.
Meine Datenpunkte sehen folgendermaßen aus: Fix32.Fix.Sinus.f_cv und so weiter. Die kommen von einem Prozessleitsystem in deren Hintergund man Makros programmieren kann. Kann ich denn in den Array diese Datenpunkte legen? Die Werte des jeweiligen DP's ändern sich ja jeden Tag. Und die Werte kommen vom Leitsystem, also ich kann die nicht anfassen/ändern sondern die werden in besagten DP geschrieben. So wie ich es verstanden habe, muss ich dem Arry aber richtige Werte von Hand vorgeben?!
Danke nochmals und Gruß
Tobsen
Anzeige
AW: feste Funktion mit sich ändernden Werten
27.01.2009 12:15:00
fcs
Hallo Tobsen,
der Ausdruck "Fix32.Fix.Sinus.f_cv" muss ja eine Variable oder ein Objekt sein, hinter dem sich ein Wert oder ggf. auch ein Array von Werten verbirgt.
Wenn es Variablen sind, dann kann man sie direkt im Array verwenden, siehe mein Beispiel mit Variablen.
Wenn es ein Objekte ist, dann muss man diesem noch die Wert-Eigenschaft(en) entlocken.
Im einfachsten Fall wäre das die Value-Eigenschaft, wie in Cells(1, 2).Value.
Irgendwo in der Doku zu deinem PLS müssten sich auch Informationen zur Daten-Struktur dieser Objekte finden, u.a. unter welcher Eigenschaft die Daten abgelegt sind.
Gruß
Franz
Anzeige
AW: feste Funktion mit sich ändernden Werten
27.01.2009 12:27:21
Tobsen
Hallo Franz
der Ausdruck "Fix32.Fix.Sinus.f_cv" ist ein Datenpunkt in dem ein Wert geschrieben wird. Meinetwegen siehst du auf dem Leitsystem die Anzeige "Durchfluss Vortag ####m³". Dann ist unter #### der Datenpunkt gelegt der seinen Wert von einer SPS bekommt.
Vielen Dank für deine ganzen Mühen, komme jetzt weiter.
Tobsen
Anzeige
;

Forumthreads zu verwandten Themen

Suchen in Matrix nach 2 Werten mit einer Funktion
Heix

Hallo zusammen, habe gerade die Gesamt-CD von Herrn Herber erhalten und habe nun auch schon die erste Frage:
Ich möchte in einer Zelle den Wert aus einer Matrix übernehmen lassen und zwar wie folgt:
Matrix:
Lampe Brutto Netto
-------- -------- -------
EGES.....24.......18
28.11.2008 11:24:00
Thread-ID: 1028631
5 Beiträge
Anzeige
WENN Funktion mit mehr als 8 Bezügen
AcJoker

Hallo,
ich versuche eine Exceltabelle zu erstellen bei der in Spalte A etwas steht das 20 Verschieden Werte annehmen kann.
In Spalte B hätte ich gerne im Bezug auf Spalte A einen Wert stehen.
Im Hintergrund z.B. auf AA und AB gibt es eine "Übersetzung" der 20 möglichen Werte von Spa...
03.01.2009 16:13:58
Thread-ID: 1036563
6 Beiträge
Anzeige
Wenn Funktion mit mehreren Argumenten
Britta

Hallo Zusammen,
im moment steh ich total aufm Schlauch, ich habe mit Funktionen lange nicht gearbeitet und bekomme es grade nicht so recht hin.
Also hier das Ding: ich habe eine Tabelle in der in B2 eine Eingabe erfolgt, diese kann nur 16 oder 18 sein, sollte es anders sein, soll ein F...
07.03.2009 09:41:28
Thread-ID: 1057522
11 Beiträge
Error Handling mit mehreren Variablen
Steve

Hallo zusammen
Folgendes Problem:
Funktionswerte, welche in Variablen geschrieben werden, sollten auf error überprüft werden.
Die Werte werden aus Pivot Tabellen übernommen. Wenn jetzt aber die Funktion einen Error ausgibt, sollte das Makro in der entsprechenden Variable den Wert "N...
12.03.2009 16:18:24
Thread-ID: 1059543
14 Beiträge
Blatt Schützen mit Sortierfunktion im Autofilter
Johan

Hallo zusammen,
ich habe ein Blatt geschützt mit der Optionen, dass ein Anwender Filtern und auch die Sortierfunktion nutzen kann. Die Filterfunktion im geschützten Blatt geht.
Allerdings geht die Sortierfunktion innerhalb des Autofilters nicht. Es erscheint die Dialogbox, dass der Sch...
09.05.2009 08:55:08
Thread-ID: 1074035
6 Beiträge
Funktion SUCHEN o.ä. mit mehreren Suchbegriffen
Nico

Morjen,
sacht mal, was ist an der Syntax falsch? Ich will eine Zelle nach mehreren Begriffen durchsuchen und wenn einer dieser Begriffe enthalten ist, soll der Inhalt der Zelle ausgegeben werden.
Folgende Syntax verwende ich bisher für den Teil der Funktion SUCHEN:
=Wenn(Oder(Suchen...
19.05.2009 09:17:25
Thread-ID: 1076059
8 Beiträge
Anzeige
Anzahl oder Zählen mit 2 Variablen
Holger

Hallo,
ich finde einfach keine Lösung, habe es mit Matrixformeln probiert, kriege es aber nicht hin.
Ich habe eine Liste mit einigen Städtenamen und einem dazugehörigen Datum. Alles andere in der Liste ist nicht ausschlaggebend.
Ich möchte gerne in einem anderen Register die Summe d...
10.07.2009 13:42:27
Thread-ID: 1087680
16 Beiträge
Wenn Und Funktion mit mehreren Bedingungen
Katja

Hallo Leute,
brauche bei einer Funktion Eure Hilfe.
Spalte F steht die Dienstart, z.B. VD, B, RB usw.
Spalte W steht die Stundenanzahl ohne Pausenabzug
Ich möchte jetzt folgendes berechnen:
WENN(UND(F2="VD";W2 kleiner als 6);W2;WENN(UND(F2="VD";W2 kleiner als 9);W2-0,5;W...
13.07.2009 13:55:40
Thread-ID: 1088213
2 Beiträge
Anzeige
Funktion "Wenn" mit mehreren Argumenten
Andreas

Hallo zusammen,
ich suche die verschachtelte Wennfunktion die mir hilft bei z.B.:
Wenn Zelle A1 = Europa, dann kalkuliere B1*C1
Wenn Zelle A1 = Asien, dann kalkuliere B2*C2 usw. mit mehreren Argumenten.
z.B. =wenn (A1="Europa";B1*C1), wenn(A1="Asien";B2*C2), wenn(A1 = "Afrika";B...
19.11.2009 16:08:12
Thread-ID: 1118694
9 Beiträge
Rechnen mit mehreren Variablen
Richy

Hi,
ich habe folgende Gleichungen, die ich gerne lösen möchte:
268a+88b+160c+172d+138e+174f=4
188a+128b+76c+166d+150e+148f=2,85
238a+122b+84c+174d+136e+168f=3,55
130a+110b+162c+150d+184e+138f=2,05
72a+162b+190c+78d+110e+132f=0,6
120a+78b+178c+140d+164e+170f=1,75
...
15.01.2010 17:15:19
Thread-ID: 1130346
3 Beiträge
Zählenwenn mit mehreren Variablen | Herbers Excel-Forum
Gorkij
Hallo,
habe ein kleines Problem mit der ZÄHLENWENN-Funktion:
Ich möchte die Funtion von mehreren Variablen abhängig machen, wobei es sich um eine Oder-Verknüpfung handeln soll, das heißt, wenn eines von mehreren Kriterien erfüllt ist soll diese "Ereignis" gezählt werden.
Bsp.: in Der Sp...
29.01.2010 09:33:50
Thread-ID: 1134022
17 Beiträge
H-Lookup mit mehreren unterschiedlichen Variablen?
Andreas

Hallo,
habe folgende Anfrage ich würde gerne ein H-Lookup mit mehreren Variablen programmieren.
Die 6 Zeilen 2 Spalten sehen ungefähr so aus:
1 XS1
1 XS2
1 XS3
2 YS1
3 CS1
3 CS2
Ich möchte, wenn ich 1 eingebe dass die Unterprodukte in der...
25.02.2010 13:54:13
Thread-ID: 1141472
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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