Code läuft sich tot
Volker
ich versuche mittels folgendem Code (welchen Rudi wesentlich beschleunigt hat) Daten aus einer Tabelle1
Bereich A2:F14 an ein Word Dokument zu übergeben. Das funktioniert auch.
Jetz kommt allerdings der Haken. Ich habe den Eindruck das sich der Code tot läuft.
Nun die Frage(n) :
Was muss ich ändern / einfügen damit der Code nach Übergabe der Zelle F14 abbricht?
Was muss ich ändern / einfügen damit der Code bei Erreichen einer leeren Zeile abbricht?
Der Eintrag "If Cells(zeile, spalte) = Empty Then Exit Sub" Wird anscheinend ignoriert.
Hier der Code:
Sub übergabe_an_word()
Dim wdAnw As Object
Dim zeile As Integer 'i
Dim spalte As Integer 'j
Dim text As Integer 'n
On Error Resume Next
Set wdAnw = GetObject("Word.Application") '.10
If Err.Number 0 Then
Err.Clear
Set wdAnw = CreateObject("Word.Application") '.10
wdAnw.Visible = True: 'objWW.WindowState = wdWindowStateMaximize
Else
wdAnw.Activate
wdAnw.Visible = True:
End If
wdAnw.Application.Documents.Open "C:\Fahrschulverwaltung\Modulverwaltung\Modulnachweis.dot"
wdAnw.ActiveDocument.FormFields.Item("Text1").Select
With wdAnw.ActiveDocument.FormFields
For zeile = 2 To 14
For spalte = 1 To 6
text = text + 1
If Cells(zeile, spalte) = Empty Then Exit Sub
.Item("Text" & text).Result = Cells(zeile, spalte)
Next spalte
Next zeile
End With
End Sub
Gruss Volker
Anzeige