Hallo Community,
ich bringe mir aktuell VB(A) selbst bei, entsprechend komme ich ab und an meine Grenzen.
Folgendes Szenario:
In einer Exceltabelle sind Personendaten hinterlegt.
In dieser Exceldatei möchte ich, dass ich einen Button betätige, und ein Auswahlfeld erscheint, welches auf einen Ordner zugreift, und mir Vorlagen zur Auswahl gibt (dies habe ich auch hinbekommen).
Nur, wie verknüpfe ich den Subs?
Außerdem möchte ich noch eine Bedingung voranstellen.
Es ist eine Zelle jeweils vorhanden, wo ein Ja oder Nein vorhanden ist.
Nur bei "Ja" soll überhaupt agiert werden.
Grüße
*Zitat durch Code-BBCode ersetzt*
ich bringe mir aktuell VB(A) selbst bei, entsprechend komme ich ab und an meine Grenzen.
Folgendes Szenario:
In einer Exceltabelle sind Personendaten hinterlegt.
In dieser Exceldatei möchte ich, dass ich einen Button betätige, und ein Auswahlfeld erscheint, welches auf einen Ordner zugreift, und mir Vorlagen zur Auswahl gibt (dies habe ich auch hinbekommen).
Nur, wie verknüpfe ich den Subs?
Visual Basic-Quellcode
- Sub dokumentauswahl_oeffnen()
- Dim sPfad
- Dim ofilesystem As Object, ofiledir As Object, ofile As Object
- sPfad = Dokument.Range("B3").Value
- If sPfad = "" Then Exit Sub
- Set ofilesystem = VBA.CreateObject("scripting.filesystemobject")
- Set ofiledir = ofilesystem.GetFolder(sPfad)
- uf_Dokauswahl.lb_dokumentenauswahl.Clear
- For Each ofile In ofiledir.Files
- uf_Dokauswahl.lb_dokumentenauswahl.AddItem ofile.Name
- Next
- uf_Dokauswahl.Show
- End Sub
- Sub dokumente_erstellen()
- 'Bibliothek aktivieren
- Dim wordapp As New Word.Application
- Dim doc As Word.Document
- 'word sichtbar machen
- wordapp.Visible = True
- Set doc = wordapp.Documents.Open("C:\Users\1234\Desktop\Dokument Test.docm")
- doc.Bookmarks("Anrede").Range.text = Sheet3.Cells(4, 5).Value
- doc.Bookmarks("Vorname").Range.text = Sheet3.Cells(4, 4).Value
- doc.Bookmarks("Nachname").Range.text = Sheet3.Cells(4, 3).Value
- doc.ExportAsFixedFormat ThisWorkbook.path & "\Dokument" & Sheet3.Cells(4, 3).Value & ".pdf", wdExportFormatPDF
- doc.Close savechanges:=False
- wordapp.Quit
- End Sub
Außerdem möchte ich noch eine Bedingung voranstellen.
Es ist eine Zelle jeweils vorhanden, wo ein Ja oder Nein vorhanden ist.
Nur bei "Ja" soll überhaupt agiert werden.
Grüße
*Zitat durch Code-BBCode ersetzt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()