AW: Wertübergabe/Rückgabe von Werten
06.02.2006 11:56:39
Werten
Hallo Alex,
Hier ein Beispielmakro:
Sub Berechnen()
'Übergibt Werte Zeilenweise an Berechnungsdatei und fügt Ergebnis in Datei ein
' Zellen in Ausgangstabelle
Dim Wert1 As Range, Wert2 As Range, Ergebnis1 As Range, Ergebnis2 As Range
' Zellen in Berechnungstabelle
Dim BerWert1 As Range, BerWert2 As Range, BerErgebnis1 As Range, BerErgebnis2 As Range
Dim Berechnung As Workbook, Auswertung As Workbook
Set Berechnung = Application.Workbooks("TestBerechnung1.xls")
Set Auswertung = ThisWorkbook ' Datei in der die Werte stehen und Ergebnisse eingetragen werden
With Berechnung
Set BerWert1 = .Sheets("Tab1").Range("B2")
Set BerWert2 = .Sheets("Tab1").Range("B3")
Set BerErgebnis1 = .Sheets("Tab1").Range("E2")
Set BerErgebnis2 = .Sheets("Tab1").Range("E3")
End With
' In dem Beispiel wird angenommen, dass die Werte jeweils in den Spalten A und B stehen
' und dass die Ergebnisse in die Spalten C und D zurückgeschrieben werden
' 1. Zelle der Werte = A2
Zeile = 2 'Startzeile
' Anzahl Zeilen für die Ergebnisse berechnet werden sollen
Zeilen = Auswertung.Sheets("Tab1").UsedRange.Rows.Count - Zeile
For I = Zeile To Zeile + Zeilen
With Auswertung
Set Wert1 = .Sheets("Tab1").Cells(I, 1)
Set Wert2 = .Sheets("Tab1").Cells(I, 2)
Set Ergebnis1 = .Sheets("Tab1").Cells(I, 3)
Set Ergebnis2 = .Sheets("Tab1").Cells(I, 4)
End With
BerWert1.Value = Wert1.Value
BerWert2.Value = Wert2.Value
Berechnung.Sheets("Tab1").Calculate
Ergebnis1.Value = BerErgebnis1.Value
Ergebnis2.Value = BerErgebnis2.Value
Next
End Sub
Gruß
Franz