Data Strucute an Funktion übergeben
28.12.2012 14:50:44
Benni
ich habe ein kleines Problem bei der Übergabe von Daten Strukturen an eine Funktion, folgender Aufbau liegt vor:
Ich möchte in der unten S ub "berechnen" die Datenstrukur werte2 übergeben, allerdings sollen in dieser Datenstruktur auch die Werte von der Struktur werte1 enthalten sein (nur 3 Werte sollen anders belegt sein).
Es muss zudem aber auch möglich sein, die selbe Funktion mit der Struktur wert1 aufzurufen, siehe unten.
Private Type werte1
dbWert1 As Double
dbWert2 As Double
dbWert3 As Double
End Type
Private Type werte2
alte_werte As werte1
dbWert1neu As Double
dbWert2neu As Double
DbUndwasganzneues As Double
End Type
Function werte1_einlesen() As werte1
Dim w As werte1
With w
.dbWert1 = Cells(1, 1)
.dbWert2 = Cells(2, 1)
.dbWert3 = Cells(3, 1)
End With
werte1_einlesen = w
End Function
Function neueWerte_einlesen() As werte2
Dim w As werte2
With w
.dbWert1 = Cells(15, 1)
.dbWert2 = Cells(16, 1)
.DbUndwasganzneues = Cells(2, 5)
End With
neueWerte_einlesen = w
End Function
Sub berechnen()
Dim Werte As werte1
Dim werte2 As werte2
Dim neueZahl As Double
neueZahl = FUNKTIONAUFRUFEN(werte2)
neueZahl = FUNKTIONAUFRUFEN(werte1)
End Sub
Function FUNKTIONAUFRUFEN(werte1 as werte1) Kann ich das Problem irgendwie lösen und ist es verständlich gewesen? :-)
Vielen Dank!
Gruß!