AW: Zellinhalte per VBA an eine Function übergebe
10.09.2005 11:43:18
Dieter
Hallo Rainer,
hier beispielhaft mein Code.
Gruß Dieter
Private Sub CommandButton1_Click() ' Mietvertrag (Word) erzeugen
sheets("Mietvertraege").select
z = ActiveCell.Row
' hier möchte ich ca. 70 Wert aus der aktiven Zeile einlesen (wert1,wert2,wert3....)
und anschließend an die Function >New_Mietvertrag< übergeben.
Und das ist momentan mein Problem.
X = New_Mietvertrag(wert1,wert2,wert3.......)
End Sub
-------------------------------------------------------------
Public Function New_Mietvertrag(text1,text2 ,text3........)
' hier wird ein Worddokument (dot) aufgerufen, in dem ca. 70 Textmarken definiert sind
if TypeName(m_objWDDoc) = "Document" Then
Miet_TextToBookmarks "Name_V", text1 ' aus Zelle A1
Miet_TextToBookmarks "PLZ_V", text2 ' aus Zelle A2
Miet_TextToBookmarks "Ort_V", text3 ' aus Zelle A3
.
.
.
End If
End Function
Sub Miet_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
'Textmarke neu definieren
.Bookmarks.Add name:=strBMName, Range:=objBMRange
'Verweis (Speicher) freigeben
Set objBMRange = Nothing
End If
End With
End Sub