Word Checkbox durch Excel VBA aktivieren.

[schmidli]

super danke viel mals.
das klappt doch wunderbar.

was ist denn falsch wenn ich keine ActiveX-Checkbox erzeuge?

[schmidli]

Hallo Zusammen,
ich danke euch noch mal für die Hilfe, ist echt super.
Nun erscheint mir eine Fehlermeldung wenn ich folgenen Code schreibe.
dieser soll ein weiteres Word Dokument öffnen wenn die Checkbox_ips auf True gesetzt wird.

der Fehler ist:
End If ohne IF-Block.

darf zwischen IF und End If keine When Befehl geschrieben werden?

Code:

Option Explicit
Private Sub CommandButton1_Click()
Dim WordApp As Object
Dim newWordApp As Object

Set WordApp = CreateObject("Word.Application")
Set newWordApp = CreateObject("Word.Application")
With WordApp
    .Visible = True
    .WindowState = 1
    AppActivate .Caption
    .Documents.Open Filename:=("C:\Users\Username\Desktop\Modèle.docm")
End With

With WordApp.ActiveDocument
If Me.CheckBox_neu = True Then
.cbnouve.Value = True
End If
.Bookmarks("Name").Range.Text = TextBox_name
End With

If Me.CheckBox_ips = True Then
With newWordApp
    .Visible = True
    .WindowState = 1
    AppActivate .Caption
    .Documents.Open Filename:=("C:\Users\Username\Desktop\Test.docm")
End With

With newWordApp.ActiveDocument
.CheckBox1 = True
End If <-- Hier wird es als Fehler deklariert.

  .Bookmarks("Name1").Range.Text = TextBox_name
End With

[Steffl]

Hallo,

entweder verschiebst Du das angemeckerte End If zwei Zeilen nach oben oder nach unten, je nachdem ob nur ein With-Teil bei bei erfüllter If-Bedingung nötig ist oder zwei.

[schmidli]

Super danke dir Steffl.
Zwei nach oben war die Lösung.