AW: Wordvorlagen Tabelle füllen
14.02.2021 15:54:07
Milan
Können Sie mir mit Anweissung mit VBA an diesem Code helfen?
Fett markiert ist ein neues ExcelBlatt("Artikel") im Dokument.
Dafür fehlen mir irgendwelche Anweissungen?
Private Sub ListBox2_Click()
Dim oExcelApp As Object
Dim oExcelWorkbook As Object
Dim lZeile As Long
If ListBox2.ListIndex >= 0 Then
Set oExcelApp = CreateObject("Excel.Application")
Set oExcelWorkbook = oExcelApp.Workbooks.Open(sAdressDatei)
lZeile = 2
With oExcelWorkbook.Worksheets(sTabellenblatt2)
Do While .Cells(lZeile, 1) ""
If ListBox2.Text = CStr(.Cells(lZeile, 2).Value) Then
ActiveDocument.Worksheets(Artikel).Cell(2, 2).Range.Text = _
CStr(.Cells(lZeile, 3).Value)
ActiveDocument.Worksheets(Artikel).Cells(2, 4).Range.Text = _
CStr(.Cells(lZeile, 3).Value)
Exit Do
End If
lZeile = lZeile + 1
Loop
End With
oExcelWorkbook.Close False
oExcelApp.Quit
Else
MsgBox "Bitte wählen Sie einen Eintrag aus der Liste aus!", _
vbInformation + vbOKOnly, "HINWEIS!"
Exit Sub
End If
Set oExcelWorkbook = Nothing
Set oExcelApp = Nothing
End Sub