Hallo,
ich bräuchte mal eure Unterstützung.
Ich würde gerne einen definierten Zellenbereich (Bspw. Zeile X) , je nach dem ob der Wert der Checkbox am Anfange der Zeile True oder False ist, nach Excel
kopieren. D.h. immer wenn einen Checkbox den Wert True aufweist, soll die jeweilige Zeile in der die Checkbox steht, nach Word kopiert werden. So sollen alle
"Checkboxes" des Tabellenblattes abgefragt werden. Bisher hab ich versucht dies mithilfe diverser If-Schleifen zu realisieren, jedoch ist hier das Problem, dass
wenn bspw. Checkbox1 & Checkbox 2 den Wert True aufweisen, dass dann nur die Zeile in der Checkbox 2 angesiedelt ist kopiert wird.
Ich hoffe sehr ihr könnt mir hier weiterhelfen..
Mein bisheriger VBA-Code sieht wie folgt aus.....
Private Sub CommandButton1_Click()
Dim WordObj As Object
Dim WordDoc As Object
Dim i As Integer
Sheets("Tabelle1").Activate
If CheckBox1.Value = True Then
i = ActiveSheet.UsedRange.Rows.Count
Range("B7", "C7", "D7").Copy
End If
If CheckBox2.Value = True Then
i = ActiveSheet.UsedRange.Rows.Count
Range("B8", "C8", "D8").Copy
End If
On Error Resume Next
Set WordObj = GetObject(, "word.application.14")
If Err.Number = 429 Then
Set WordObj = CreateObject("word.application.14")
Err.Number = 0
End If
WordObj.Visible = True
Set WordDoc = WordObj.Document.Add
With WordObj.Selection
.TypeText Text:="A"
.TypeParagraph
.TypeText Text:=" vom " & Format(Now(), "dd-mmm-yyyy")
.TypeParagraph
End With
WordObj.Selection.PasteSpecial link:=True
Application.CutCopyMode = False
Set WordObj = Nothing
Set WordObj = Nothing
End Sub
Vielen Dank im Voraus
Tim
|