AW: Zellinhalte per VBA an eine Function übergebe
10.09.2005 13:31:43
Dieter
nach dem jetzt die Mittagspause vorbei ist,sage ich vielen Dank für die Hilfe.
Langsam durchschau ich die Sache.
Alle Zellinhalte stehen jetzt in dem Array und können von dort wieder ausgelesen werden.
Was mir jetzt aber noch fehlt,ist Folgendes:
1. An welcher Stelle werden einzelnen Daten wieder ausgelesen ?
2. Muss ich die Werte an die Function übergeben, oder geschieht das in der folgenden Procedure ?
3. Was bedeutet inputVar(5) ?
Gruß Dieter
Sub Bestand_TextToBookmarks(ByVal strBMName As String, _
ByVal strBMText As String)
Dim objBMRange As word.Range 'Range-Objekt, hier Textmarken-Bereich
With m_objWDDoc
'Wenn die Textmarke existiert...
If .Bookmarks.Exists(strBMName) Then
'Verweis auf den Textmarke-Bereich setzen
Set objBMRange = .Bookmarks(strBMName).Range
'Text zuweisen
' objBMRange.text = strBMText
objBMRange.text = inputVar(5)
'Textmarke neu definieren
.Bookmarks.Add name:=strBMName, Range:=objBMRange
'Verweis (Speicher) freigeben
Set objBMRange = Nothing
End If
End With
End Sub
Anzeige