Workbook & Sheet durch Variablen verknüpfen
19.09.2007 11:19:08
Christian
habe folgendes Problem. Ich habe 2 verscheiden Workbooks und 8 verschieden Sheets.
da ich nicht immer lust habe jedesmal alles auszuschreiben möchte ich den Namen in eine Variable schreiben, was auch ohne weiteres Funktioniert. Nur habe ich ein Problem wie ich nun die Variable Workbook mit der Variable Worksheet verknüpfe das die richtige Seite angesprochen wird.
Public wksMat As Object
Public wksData As Object
Public wkbMat As Object
Private Sub main ()
Dim bool As Boolean
Set wkbMat = Workbooks("Gesamtübersicht_Materialien.xls")
Set wksData = Worksheets("Material Table")
For Each wksMat In Workbooks("Gesamtübersicht_Materialien.xls").Worksheets
If wksMat.Name "Materialdatei" Then
bool = getProject(wksMat)
End If
Next
End Sub
private Function getProject(wksMat as Object)
wkbMat.wksMat.Range("A1").Value = 5 ' Diese Verknüpfung funktioniert nicht
end function
Glaube es funktioniert nicht das ich 2 Object miteinander verknüpfen will. Jedoch wie es geht weiß ich nicht!!!!!
Gruß
Christian