Word Daten auslesen und an Excel übergeben, ausführen vor Speichervorgang.

  • Word

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Word Daten auslesen und an Excel übergeben, ausführen vor Speichervorgang.

    Guten Tag liebe VB Community.
    Ich bin neu in diesem Forum und auch was die VB(A) programmierung angeht noch sehr laienhaft.
    Ich hoffe das mir hier geholfen werden kann. Das würde mich außerordentlich freuen.

    Zu meinem Problem.

    Ich habe ein Formular in MS Word erstellt mit Pflichtfeldern, DropDown Menüs usw.
    Wie bereits erwähnt habe ich mit Hilfe von VBA einige dieser Formularfelder zu Pflichtfeldern gemacht.
    Vor jedem Speichervorgang prüft das Script ob alle notwendigen Felder ausgefüllt sind und beanstandet dieses falls nötig.

    Nun sollen einige dieser Felder ausgelesen werden und deren Inhalt soll an eine Excel Tabelle übergeben werden.
    Den dafür nötigen Code habe ich ebenfalls bereits erstellt und er funktioniert auch soweit.
    Jedoch habe ich ein paar Probleme mit denen ich etwas Hilfe gebrauchen könnte.

    1.
    Wenn Word die Daten an Excel übergibt, dann schreibt Excel diese immer in die selbe Zeile obwohl ich meiner Meinung nach deklariert habe dafür immer eine neue Zeile zu verwenden.

    Frage:

    Gibt es eine Möglichkeit Excel zu sagen, Prüfe Zeile XY wenn Zeile XY bereits belegt, dann gehe eine Zeile darunter und trage dort die Daten ein. Zeile ebenfalls belegt? Dann gehe eine Zeile weiter bis du eine leere Zeile findest.

    2.
    Ich hätte ganz gerne vermieden, da dieses Formular von Leuten ausgefüllt wird die so rein gar keine Ahnung von VBA und dem Editor haben, das diese das Script von Hand ausführen müssen.

    Frage:

    Wie stelle ich es an, das Word diesen Teil Des Scripts ebenfalls vor einem Speichervorgang ausführt, allerdings nachdem die Pflichtfelder das Script auf völlständigkeit geprüft haben jedoch vor dem eigentlich Speichervorgang. Ich hoffe ich habe das verständlich genug beschrieben.

    Das war erstmal alles.


    Hier ist der Code für das Script.
    Dieser Teil befindet sich direkt in ThisDocument:

    Quellcode

    1. Private Sub Document_Open()
    3. End Sub
    5. Sub FilePrintDefault()
    6. If Checkfields = True Then ActiveDocument.PrintOut
    8. End Sub
    10. Sub FilePrint()
    11. FilePrintDefault
    13. End Sub
    15. Sub FileSave()
    16. If Checkfields = True Then
    17. If ActiveDocument.Path = "" Then
    18. FileSaveAs
    19. End If
    20. ActiveDocument.Save
    21. End If
    23. End Sub
    25. Sub FileSaveAs()
    26. If Checkfields = True Then
    27. Dialogs(wdDialogFileSaveAs).Show
    28. End If
    30. End Sub
    32. Private Sub ComboBox1_DropDownClick()
    34. ComboBox1.List = Array(" ", "Armatur funktionssicher instandgesetzt.", "Weitere Maßnahmen erforderlich. (siehe Text)", "Wartung nicht möglich. (siehe Text)")
    36. End Sub
    38. Private Sub ComboBox1_Change()
    39. If ComboBox1.Text = " " Then
    40. ComboBox1.BackColor = RGB(224, 224, 224)
    41. ActiveDocument.FormFields("Hinweise").Result = ""
    42. O4A.Enabled = True
    43. O4B.Enabled = True
    44. End If
    46. If ComboBox1.Text = "Armatur funktionssicher instandgesetzt." Then
    47. ComboBox1.BackColor = RGB(34, 139, 34)
    48. O4A.Enabled = True
    49. O4B.Enabled = True
    50. End If
    52. If ComboBox1.Text = "Weitere Maßnahmen erforderlich. (siehe Text)" Then
    53. ComboBox1.BackColor = RGB(255, 255, 0)
    54. End If
    56. If ComboBox1.Text = "Wartung nicht möglich. (siehe Text)" Then
    57. ComboBox1.BackColor = RGB(255, 0, 0)
    58. End If
    60. End Sub
    63. Private Function Checkfields() As Boolean
    66. If ActiveDocument.FormFields("Hersteller").Result = " " Then
    67. MsgBox "Bitte Hersteller auswählen!"
    68. Checkfields = False
    69. ActiveDocument.FormFields("Hersteller").Select
    70. Exit Function
    71. End If
    73. If ActiveDocument.FormFields("EquiNr").Result = "" Then
    74. MsgBox "Bitte Equipment-Nr. eintragen!"
    75. Checkfields = False
    76. ActiveDocument.FormFields("EquiNr").Select
    77. Exit Function
    78. End If
    80. If ActiveDocument.FormFields("Typ").Result = "" Then
    81. MsgBox "Bitte Typ eintragen!"
    82. Checkfields = False
    83. ActiveDocument.FormFields("Hinweise").Result = ""
    84. ActiveDocument.FormFields("Typ").Select
    85. Exit Function
    86. End If
    88. If ActiveDocument.FormFields("Typ").Result = "EH/Z" Then
    89. MsgBox "ACHTUNG!" & vbCrLf & "" & vbCrLf & "Zulassung zurückgezogen!" & vbCrLf & _
    90. "System wird auf 'Rot' gesetzt."
    91. Checkfields = False
    92. ComboBox1 = "Weitere Maßnahmen erforderlich. (siehe Text)"
    93. ComboBox1.BackColor = RGB(255, 0, 0)
    94. ActiveDocument.FormFields("Hinweise").Result = _
    95. "Für dieses System wurde 1989 die Zulassung zurückgezogen. Wir empfehlen ausdrücklich den Austausch gegen ein System nach dem aktuellen Stand der Technik - ATEX (EN 12874/ISO 16852)."
    96. Exit Function
    97. End If
    99. If ActiveDocument.FormFields("Typ").Result = "EH/K" Then
    100. MsgBox "ACHTUNG!" & vbCrLf & "" & vbCrLf & "Zulassung zurückgezogen!" & vbCrLf & _
    101. "System wird auf 'Rot' gesetzt."
    102. Checkfields = False
    103. ComboBox1 = "Weitere Maßnahmen erforderlich. (siehe Text)"
    104. ComboBox1.BackColor = RGB(255, 0, 0)
    105. ActiveDocument.FormFields("Hinweise").Result = _
    106. "Für dieses System wurde 1989 die Zulassung zurückgezogen. Wir empfehlen ausdrücklich den Austausch gegen ein System nach dem aktuellen Stand der Technik - ATEX (EN 12874/ISO 16852)."
    107. Exit Function
    108. End If
    110. If ActiveDocument.FormFields("Typ").Result = "SD/BK" Then
    111. MsgBox "ACHTUNG!" & vbCrLf & "" & vbCrLf & "Zulassung zurückgezogen!" & vbCrLf & _
    112. "System wird auf 'Rot' gesetzt."
    113. Checkfields = False
    114. ComboBox1 = "Weitere Maßnahmen erforderlich. (siehe Text)"
    115. ComboBox1.BackColor = RGB(255, 0, 0)
    116. ActiveDocument.FormFields("Hinweise").Result = _
    117. "Für dieses System wurde 1989 die Zulassung zurückgezogen. Wir empfehlen ausdrücklich den Austausch gegen ein System nach dem aktuellen Stand der Technik - ATEX (EN 12874/ISO 16852)."
    118. Exit Function
    119. End If
    121. If ActiveDocument.FormFields("Typ").Result = "VD/BK" Then
    122. MsgBox "ACHTUNG!" & vbCrLf & "" & vbCrLf & "Zulassung zurückgezogen!" & vbCrLf & _
    123. "System wird auf 'Rot' gesetzt."
    124. Checkfields = False
    125. ComboBox1 = "Weitere Maßnahmen erforderlich. (siehe Text)"
    126. ComboBox1.BackColor = RGB(255, 0, 0)
    127. ActiveDocument.FormFields("Hinweise").Result = _
    128. "Für dieses System wurde 1989 die Zulassung zurückgezogen. Wir empfehlen ausdrücklich den Austausch gegen ein System nach dem aktuellen Stand der Technik - ATEX (EN 12874/ISO 16852)."
    129. Exit Function
    130. End If
    132. If ActiveDocument.FormFields("Typ").Result = "UB/LH" Then
    133. MsgBox "ACHTUNG!" & vbCrLf & "" & vbCrLf & "Zulassung eingeschränkt!" & vbCrLf & _
    134. "System bleibt auf 'Grün', sofern keine Mängel vorhanden."
    135. Checkfields = False
    136. ComboBox1 = "Weitere Maßnahmen erforderlich. (siehe Text)"
    137. ComboBox1.BackColor = RGB(34, 139, 34)
    138. ActiveDocument.FormFields("Hinweise").Result = _
    139. "Die betroffenen Altarmaturen entsprechen seit 1989 nicht mehr dem Stand der Technik. Wir empfehlen ausdrücklich den Austausch!"
    140. Exit Function
    141. End If
    143. If ActiveDocument.FormFields("Typ").Result = "UB/D" Then
    144. MsgBox "ACHTUNG!" & vbCrLf & "" & vbCrLf & "Zulassung eingeschränkt!" & vbCrLf & _
    145. "System bleibt auf 'Grün', sofern keine Mängel vorhanden."
    146. Checkfields = False
    147. ComboBox1 = "Weitere Maßnahmen erforderlich. (siehe Text)"
    148. ComboBox1.BackColor = RGB(34, 139, 34)
    149. ActiveDocument.FormFields("Hinweise").Result = _
    150. "Die betroffenen Altarmaturen entsprechen seit 1989 nicht mehr dem Stand der Technik. Wir empfehlen ausdrücklich den Austausch!"
    151. Exit Function
    152. End If
    154. If ActiveDocument.FormFields("Typ").Result = "UB/DV" Then
    155. MsgBox "ACHTUNG!" & vbCrLf & "" & vbCrLf & "Zulassung eingeschränkt!" & vbCrLf & _
    156. "System bleibt auf 'Grün', sofern keine Mängel vorhanden."
    157. Checkfields = False
    158. ComboBox1 = "Weitere Maßnahmen erforderlich. (siehe Text)"
    159. ComboBox1.BackColor = RGB(34, 139, 34)
    160. ActiveDocument.FormFields("Hinweise").Result = _
    161. "Die betroffenen Altarmaturen entsprechen seit 1989 nicht mehr dem Stand der Technik. Wir empfehlen ausdrücklich den Austausch!"
    162. Exit Function
    163. End If
    165. If ActiveDocument.FormFields("NW").Result = "" Then
    166. MsgBox "Bitte Nennweite eintragen!"
    167. Checkfields = False
    168. ActiveDocument.FormFields("NW").Select
    169. Exit Function
    170. End If
    172. If ActiveDocument.FormFields("PTB").Result = "" Then
    173. MsgBox "Bitte PTB/ATEX Nr. eintragen!"
    174. Checkfields = False
    175. ActiveDocument.FormFields("PTB").Select
    176. Exit Function
    177. End If
    179. If ActiveDocument.FormFields("SNR").Result = "" Then
    180. MsgBox "Bitte Seriennummer eintragen!"
    181. Checkfields = False
    182. ActiveDocument.FormFields("SNR").Select
    183. Exit Function
    184. End If
    186. If ActiveDocument.FormFields("GWRKST").Result = " " Then
    187. MsgBox "Bitte Gehäusewerkstoff auswählen!"
    188. Checkfields = False
    189. ActiveDocument.FormFields("GWRKST").Select
    190. Exit Function
    191. End If
    193. If ActiveDocument.FormFields("GDTNG").Result = " " Then
    194. MsgBox "Bitte Gehäusedichtung auswählen!"
    195. Checkfields = False
    196. ActiveDocument.FormFields("GDTNG").Select
    197. Exit Function
    198. End If
    200. If ActiveDocument.FormFields("MWRKST").Result = " " Then
    201. MsgBox "Bitte Membranwerkstoff auswählen!"
    202. Checkfields = False
    203. ActiveDocument.FormFields("MWRKST").Select
    204. Exit Function
    205. End If
    207. If ActiveDocument.FormFields("MED").Result = " " Then
    208. MsgBox "Bitte Belastungsmedium auswählen!"
    209. Checkfields = False
    210. ActiveDocument.FormFields("MED").Select
    211. Exit Function
    212. End If
    214. If ActiveDocument.FormFields("PMBAR").Result = "" Then
    215. MsgBox "Bitte Einstellüberdruck eintragen!"
    216. Checkfields = False
    217. ActiveDocument.FormFields("PMBAR").Select
    218. Exit Function
    219. End If
    221. If ActiveDocument.FormFields("PVWRKST").Result = " " Then
    222. MsgBox "Bitte Überdruck Ventilteller-Werkstoff auswählen!"
    223. Checkfields = False
    224. ActiveDocument.FormFields("PVWRKST").Select
    225. Exit Function
    226. End If
    228. If ActiveDocument.FormFields("PVDTNG").Result = " " Then
    229. MsgBox "Bitte Überdruck Ventilteller-Dichtung auswählen!"
    230. Checkfields = False
    231. ActiveDocument.FormFields("PVDTNG").Select
    232. Exit Function
    233. End If
    235. If ActiveDocument.FormFields("VMBAR").Result = "" Then
    236. MsgBox "Bitte Einstellunterdruck eintragen!"
    237. Checkfields = False
    238. ActiveDocument.FormFields("VMBAR").Select
    239. Exit Function
    240. End If
    242. If ActiveDocument.FormFields("VVWRKST").Result = " " Then
    243. MsgBox "Bitte Unterdruck Ventilteller-Werkstoff auswählen!"
    244. Checkfields = False
    245. ActiveDocument.FormFields("VVWRKST").Select
    246. Exit Function
    247. End If
    249. If ActiveDocument.FormFields("VVDTNG").Result = " " Then
    250. MsgBox "Bitte Unterdruck Ventilteller-Dichtung auswählen!"
    251. Checkfields = False
    252. ActiveDocument.FormFields("VMBAR").Select
    253. Exit Function
    254. End If
    256. If ActiveDocument.FormFields("FFA").Enabled = True And ActiveDocument.FormFields("FFA").Result = "" Then
    257. MsgBox "Bitte die Anzahl Filterscheiben eintragen!"
    258. Checkfields = False
    259. ActiveDocument.FormFields("FFA").Select
    260. Exit Function
    261. End If
    263. If ActiveDocument.FormFields("SW").Enabled = True And ActiveDocument.FormFields("SW").Result = "" Then
    264. MsgBox "Bitte die Spaltweite eintragen!"
    265. Checkfields = False
    266. ActiveDocument.FormFields("SW").Select
    267. Exit Function
    268. End If
    270. If ActiveDocument.FormFields("WR").Enabled = True And ActiveDocument.FormFields("WR").Result = " " Then
    271. MsgBox "Bitte die Wickelrichtung auswählen!"
    272. Checkfields = False
    273. ActiveDocument.FormFields("WR").Select
    274. Exit Function
    275. End If
    277. If ActiveDocument.FormFields("FFWRKST").Enabled = True And ActiveDocument.FormFields("FFWRKST").Result = " " Then
    278. MsgBox "Bitte den Flammenfilter-Werkstoff auswählen!"
    279. Checkfields = False
    280. ActiveDocument.FormFields("FFWRKST").Select
    281. Exit Function
    282. End If
    284. If ActiveDocument.FormFields("FKWRKST").Enabled = True And ActiveDocument.FormFields("FKWRKST").Result = " " Then
    285. MsgBox "Bitte den Filterkäfig-Werkstoff auswählen!"
    286. Checkfields = False
    287. ActiveDocument.FormFields("FKWRKST").Select
    288. Exit Function
    289. End If
    291. If ActiveDocument.FormFields("ZWL").Enabled = True And ActiveDocument.FormFields("ZWL").Result = "" Then
    292. MsgBox "Bitte die Anzahl der Zwischenlagen eintragen!"
    293. Checkfields = False
    294. ActiveDocument.FormFields("ZWL").Select
    295. Exit Function
    296. End If
    298. If ActiveDocument.FormFields("PEPP").Enabled = True And ActiveDocument.FormFields("PEPP").Result = "" Then
    299. MsgBox "Bitte die Überdruck mbar eintragen!"
    300. Checkfields = False
    301. ActiveDocument.FormFields("PEPP").Select
    302. Exit Function
    303. End If
    305. If ActiveDocument.FormFields("PEPT").Enabled = True And ActiveDocument.FormFields("PEPT").Result = "" Then
    306. MsgBox "Bitte die Überdruck Prüfdauer eintragen!"
    307. Checkfields = False
    308. ActiveDocument.FormFields("PEPT").Select
    309. Exit Function
    310. End If
    312. If ActiveDocument.FormFields("PEPZ").Enabled = True And ActiveDocument.FormFields("PEPZ").Result = "" Then
    313. MsgBox "Bitte die Überdruck Prüfzyklen eintragen!"
    314. Checkfields = False
    315. ActiveDocument.FormFields("PEPZ").Select
    316. Exit Function
    317. End If
    319. If ActiveDocument.FormFields("PEVP").Enabled = True And ActiveDocument.FormFields("PEVP").Result = "" Then
    320. MsgBox "Bitte die Unterdruck mbar eintragen!"
    321. Checkfields = False
    322. ActiveDocument.FormFields("PEVP").Select
    323. Exit Function
    324. End If
    326. If ActiveDocument.FormFields("PEVT").Enabled = True And ActiveDocument.FormFields("PEVT").Result = "" Then
    327. MsgBox "Bitte die Unterdruck Prüfdauer eintragen!"
    328. Checkfields = False
    329. ActiveDocument.FormFields("PEVT").Select
    330. Exit Function
    331. End If
    333. If ActiveDocument.FormFields("PEVZ").Enabled = True And ActiveDocument.FormFields("PEVZ").Result = "" Then
    334. MsgBox "Bitte die Unterdruck Prüfzyklen eintragen!"
    335. Checkfields = False
    336. ActiveDocument.FormFields("PEVZ").Select
    337. Exit Function
    338. End If
    340. If ActiveDocument.FormFields("PEN").Enabled = True And ActiveDocument.FormFields("PEN").Result = "" Then
    341. MsgBox "Bitte Name des Prüfers eintragen!"
    342. Checkfields = False
    343. ActiveDocument.FormFields("PEN").Select
    344. Exit Function
    345. End If
    347. If ActiveDocument.FormFields("PPPP").Enabled = True And ActiveDocument.FormFields("PPPP").Result = "" Then
    348. MsgBox "Bitte die Überdruck mbar eintragen!"
    349. Checkfields = False
    350. ActiveDocument.FormFields("PPPP").Select
    351. Exit Function
    352. End If
    354. If ActiveDocument.FormFields("PPPT").Enabled = True And ActiveDocument.FormFields("PPPT").Result = "" Then
    355. MsgBox "Bitte die Überdruck Prüfdauer eintragen!"
    356. Checkfields = False
    357. ActiveDocument.FormFields("PPPT").Select
    358. Exit Function
    359. End If
    361. If ActiveDocument.FormFields("PPPZ").Enabled = True And ActiveDocument.FormFields("PPPZ").Result = "" Then
    362. MsgBox "Bitte die Überdruck Prüfzyklen eintragen!"
    363. Checkfields = False
    364. ActiveDocument.FormFields("PPPZ").Select
    365. Exit Function
    366. End If
    368. If ActiveDocument.FormFields("PPVP").Enabled = True And ActiveDocument.FormFields("PPVP").Result = "" Then
    369. MsgBox "Bitte die Unterdruck mbar eintragen!"
    370. Checkfields = False
    371. ActiveDocument.FormFields("PPVP").Select
    372. Exit Function
    373. End If
    375. If ActiveDocument.FormFields("PPVT").Enabled = True And ActiveDocument.FormFields("PPVT").Result = "" Then
    376. MsgBox "Bitte die Unterdruck Prüfdauer eintragen!"
    377. Checkfields = False
    378. ActiveDocument.FormFields("PPVT").Select
    379. Exit Function
    380. End If
    382. If ActiveDocument.FormFields("PPVZ").Enabled = True And ActiveDocument.FormFields("PPVZ").Result = "" Then
    383. MsgBox "Bitte die Unterdruck Prüfzyklen eintragen!"
    384. Checkfields = False
    385. ActiveDocument.FormFields("PPVZ").Select
    386. Exit Function
    387. End If
    389. If ActiveDocument.FormFields("PPN").Enabled = True And ActiveDocument.FormFields("PPN").Result = "" Then
    390. MsgBox "Bitte Name des Prüfers eintragen!"
    391. Checkfields = False
    392. ActiveDocument.FormFields("PPN").Select
    393. Exit Function
    394. End If
    396. If ComboBox1.Text = " " Then
    397. MsgBox "Bitte Gerätestatus auswählen!"
    398. Checkfields = False
    399. ComboBox1.Select
    400. Exit Function
    401. End If
    403. If ComboBox2.Text = " " Then
    404. MsgBox "Bitte Wartungszyklus auswählen!"
    405. Checkfields = False
    406. ComboBox2.Select
    407. Exit Function
    408. End If
    410. If ActiveDocument.FormFields("Ort").Result = "" Then
    411. MsgBox "Bitte Ort eintragen!"
    412. Checkfields = False
    413. ActiveDocument.FormFields("Ort").Select
    414. Exit Function
    415. End If
    417. If ActiveDocument.FormFields("Aussteller").Result = "" Then
    418. MsgBox "Bitte Aussteller eintragen!"
    419. Checkfields = False
    420. ActiveDocument.FormFields("Aussteller").Select
    421. Exit Function
    422. End If
    424. Checkfields = True
    425. End Function
    427. Private Sub A1_Click()
    428. If A1.Value = True Then
    429. A2.Value = False
    431. End If
    433. End Sub
    435. Private Sub A2_Click()
    436. If A2.Value = True Then
    437. A1.Value = False
    439. End If
    441. End Sub
    443. Private Sub ColorBarAX11_GotFocus()
    445. End Sub
    447. Private Sub armaturBild_Click()
    448. If ActiveDocument.ProtectionType <> wdNoProtection Then
    449. ActiveDocument.Unprotect Password:=""
    450. ActiveDocument.ToggleFormsDesign
    451. End If
    453. End Sub
    455. Private Sub ComboBox2_DropButtonClick()
    456. ComboBox2.List = Array(" ", "1 Monat", "2 Monate", "3 Monate", "6 Monate", "12 Monate")
    457. End Sub
    459. Private Sub Image1_Click()
    461. End Sub
    463. Private Sub O1A_Click()
    464. If O1A.Value = True Then
    465. O1B.Value = False
    467. End If
    469. End Sub
    471. Private Sub O1B_Click()
    472. If O1B.Value = True Then
    473. O1A.Value = False
    475. End If
    476. End Sub
    478. Private Sub O2A_Click()
    479. If O2A.Value = True Then
    480. O2B.Value = False
    481. O2C.Value = False
    482. ActiveDocument.FormFields("PEPP").Enabled = True
    483. ActiveDocument.FormFields("PEPT").Enabled = True
    484. ActiveDocument.FormFields("PEPZ").Enabled = True
    485. ActiveDocument.FormFields("PEVP").Enabled = True
    486. ActiveDocument.FormFields("PEVT").Enabled = True
    487. ActiveDocument.FormFields("PEVZ").Enabled = True
    488. ActiveDocument.FormFields("PEN").Enabled = True
    489. ActiveDocument.FormFields("PPPP").Enabled = False
    490. ActiveDocument.FormFields("PPPT").Enabled = False
    491. ActiveDocument.FormFields("PPPZ").Enabled = False
    492. ActiveDocument.FormFields("PPVP").Enabled = False
    493. ActiveDocument.FormFields("PPVT").Enabled = False
    494. ActiveDocument.FormFields("PPVZ").Enabled = False
    495. ActiveDocument.FormFields("PPN").Enabled = False
    496. ActiveDocument.FormFields("PPPP").Result = ""
    497. ActiveDocument.FormFields("PPPT").Result = ""
    498. ActiveDocument.FormFields("PPPZ").Result = ""
    499. ActiveDocument.FormFields("PPVP").Result = ""
    500. ActiveDocument.FormFields("PPVT").Result = ""
    501. ActiveDocument.FormFields("PPVZ").Result = ""
    502. ActiveDocument.FormFields("PPN").Result = ""
    503. End If
    505. End Sub
    507. Private Sub O2B_Click()
    508. If O2B.Value = True Then
    509. O2A.Value = False
    510. O2C.Value = False
    511. ActiveDocument.FormFields("PEPP").Enabled = False
    512. ActiveDocument.FormFields("PEPT").Enabled = False
    513. ActiveDocument.FormFields("PEPZ").Enabled = False
    514. ActiveDocument.FormFields("PEVP").Enabled = False
    515. ActiveDocument.FormFields("PEVT").Enabled = False
    516. ActiveDocument.FormFields("PEVZ").Enabled = False
    517. ActiveDocument.FormFields("PEN").Enabled = False
    518. ActiveDocument.FormFields("PPPP").Enabled = True
    519. ActiveDocument.FormFields("PPPT").Enabled = True
    520. ActiveDocument.FormFields("PPPZ").Enabled = True
    521. ActiveDocument.FormFields("PPVP").Enabled = True
    522. ActiveDocument.FormFields("PPVT").Enabled = True
    523. ActiveDocument.FormFields("PPVZ").Enabled = True
    524. ActiveDocument.FormFields("PPN").Enabled = True
    525. ActiveDocument.FormFields("PEPP").Result = ""
    526. ActiveDocument.FormFields("PEPT").Result = ""
    527. ActiveDocument.FormFields("PEPZ").Result = ""
    528. ActiveDocument.FormFields("PEVP").Result = ""
    529. ActiveDocument.FormFields("PEVT").Result = ""
    530. ActiveDocument.FormFields("PEVZ").Result = ""
    531. ActiveDocument.FormFields("PEN").Result = ""
    533. End If
    535. End Sub
    537. Private Sub O2C_Click()
    538. If O2C.Value = True Then
    539. O2A.Value = False
    540. O2B.Value = False
    541. ActiveDocument.FormFields("PEPP").Enabled = False
    542. ActiveDocument.FormFields("PEPT").Enabled = False
    543. ActiveDocument.FormFields("PEPZ").Enabled = False
    544. ActiveDocument.FormFields("PEVP").Enabled = False
    545. ActiveDocument.FormFields("PEVT").Enabled = False
    546. ActiveDocument.FormFields("PEVZ").Enabled = False
    547. ActiveDocument.FormFields("PEN").Enabled = False
    548. ActiveDocument.FormFields("PPPP").Enabled = False
    549. ActiveDocument.FormFields("PPPT").Enabled = False
    550. ActiveDocument.FormFields("PPPZ").Enabled = False
    551. ActiveDocument.FormFields("PPVP").Enabled = False
    552. ActiveDocument.FormFields("PPVT").Enabled = False
    553. ActiveDocument.FormFields("PPVZ").Enabled = False
    554. ActiveDocument.FormFields("PPN").Enabled = False
    555. ActiveDocument.FormFields("PEPP").Result = ""
    556. ActiveDocument.FormFields("PEPT").Result = ""
    557. ActiveDocument.FormFields("PEPZ").Result = ""
    558. ActiveDocument.FormFields("PEVP").Result = ""
    559. ActiveDocument.FormFields("PEVT").Result = ""
    560. ActiveDocument.FormFields("PEVZ").Result = ""
    561. ActiveDocument.FormFields("PEN").Result = ""
    562. ActiveDocument.FormFields("PPPP").Result = ""
    563. ActiveDocument.FormFields("PPPT").Result = ""
    564. ActiveDocument.FormFields("PPPZ").Result = ""
    565. ActiveDocument.FormFields("PPVP").Result = ""
    566. ActiveDocument.FormFields("PPVT").Result = ""
    567. ActiveDocument.FormFields("PPVZ").Result = ""
    568. ActiveDocument.FormFields("PPN").Result = ""
    570. End If
    571. End Sub
    573. Private Sub FFJA_Click()
    574. If FFJA.Value = True Then
    575. FFNEIN.Value = False
    576. ActiveDocument.FormFields("FFA").Enabled = True
    577. ActiveDocument.FormFields("SW").Enabled = True
    578. ActiveDocument.FormFields("WR").Enabled = True
    579. ActiveDocument.FormFields("FFWRKST").Enabled = True
    580. ActiveDocument.FormFields("FKWRKST").Enabled = True
    581. ActiveDocument.FormFields("ZWL").Enabled = True
    582. End If
    583. End Sub
    585. Private Sub FFNEIN_Click()
    586. If FFNEIN.Value = True Then
    587. FFJA.Value = False
    588. ActiveDocument.FormFields("FFA").Enabled = False
    589. ActiveDocument.FormFields("SW").Enabled = False
    590. ActiveDocument.FormFields("WR").Enabled = False
    591. ActiveDocument.FormFields("FFWRKST").Enabled = False
    592. ActiveDocument.FormFields("FKWRKST").Enabled = False
    593. ActiveDocument.FormFields("ZWL").Enabled = False
    594. End If
    595. End Sub
    597. Private Sub O4A_Click()
    598. If O4A.Value = True Then
    599. O4B.Value = False
    601. End If
    603. End Sub
    605. Private Sub O4B_Click()
    606. If O4B.Value = True Then
    607. O4A.Value = False
    609. End If
    611. End Sub
    613. Private Sub PEPP_Change()
    615. End Sub
    617. Private Sub PPPP_Change()
    619. End Sub


    Der Zweite Teil welcher die Daten an Excel übertragen soll befindet sich in einem extra Modul Namens Word2Excel.

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private Sub Transfer_Data()
    4. Dim xlApp As Object
    5. Dim xlWBook As Object
    6. Dim fld As FormField
    7. Dim nRow As Long
    8. Dim nCol As Integer
    10. Set xlApp = CreateObject("excel.Application")
    11. Set xlWBook = xlApp.Workbooks.Open(ThisDocument.Path & "\artexGeräteliste.xlsx")
    12. xlWBook.Application.Visible = True
    13. xlWBook.Application.Sheets("Geräteübersicht").Select
    14. nRow = xlWBook.Application.Range("A65536").End(xlUp).Row + 1
    16. 'ActiveDocument.Unprotect
    18. nCol = 4
    20. nInstall = ActiveDocument.FormFields("Gebäude").Result
    21. nEqui = ActiveDocument.FormFields("EquiNr").Result
    22. nTyp = ActiveDocument.FormFields("Typ").Result
    23. nPTB = ActiveDocument.FormFields("PTB").Result
    24. nSNR = ActiveDocument.FormFields("SNR").Result
    25. nFFA = ActiveDocument.FormFields("FFA").Result
    26. nPMBAR = ActiveDocument.FormFields("PMBAR").Result
    27. nVMBAR = ActiveDocument.FormFields("VMBAR").Result
    28. nPVDTNG = ActiveDocument.FormFields("PVDTNG").Result
    29. nVVDTNG = ActiveDocument.FormFields("VVDTNG").Result
    30. nMWRKST = ActiveDocument.FormFields("MWRKST").Result
    31. nProzMed = ActiveDocument.FormFields("ProzMed").Result
    33. xlWBook.Application.Cells(nRow, 2).Value = ActiveDocument.FormFields("Gebäude").Result
    34. xlWBook.Application.Cells(nRow, 3).Value = ActiveDocument.FormFields("EquiNr").Result
    35. xlWBook.Application.Cells(nRow, 4).Value = ActiveDocument.FormFields("Typ").Result
    36. xlWBook.Application.Cells(nRow, 5).Value = ActiveDocument.FormFields("PTB").Result
    37. xlWBook.Application.Cells(nRow, 6).Value = ActiveDocument.FormFields("SNR").Result
    38. xlWBook.Application.Cells(nRow, 7).Value = ActiveDocument.FormFields("FFA").Result
    39. xlWBook.Application.Cells(nRow, 8).Value = ActiveDocument.FormFields("PMBAR").Result
    40. xlWBook.Application.Cells(nRow, 9).Value = ActiveDocument.FormFields("VMBAR").Result
    41. xlWBook.Application.Cells(nRow, 10).Value = ActiveDocument.FormFields("PVDTNG").Result
    42. xlWBook.Application.Cells(nRow, 11).Value = ActiveDocument.FormFields("VVDTNG").Result
    43. xlWBook.Application.Cells(nRow, 12).Value = ActiveDocument.FormFields("MWRKST").Result
    44. xlWBook.Application.Cells(nRow, 13).Value = ActiveDocument.FormFields("ProzMed").Result
    46. ActiveDocument.Fields(1).Select
    48. xlWBook.Close savechanges:=True
    50. ActiveDocument.FormFields("Gebäude").Result = nInstall
    51. ActiveDocument.FormFields("EquiNr").Result = nEqui
    52. ActiveDocument.FormFields("Typ").Result = nTyp
    53. ActiveDocument.FormFields("PTB").Result = nPTB
    54. ActiveDocument.FormFields("SNR").Result = nSNR
    55. ActiveDocument.FormFields("FFA").Result = nFFA
    56. ActiveDocument.FormFields("PMBAR").Result = nPMBAR
    57. ActiveDocument.FormFields("VMBAR").Result = nVMBAR
    58. ActiveDocument.FormFields("PVDTNG").Result = nPVDTNG
    59. ActiveDocument.FormFields("VVDTNG").Result = nVVDTNG
    60. ActiveDocument.FormFields("MWRKST").Result = nMWRKST
    61. ActiveDocument.FormFields("ProzMed").Result = nProzMed
    63. End Sub


    Ich hoffe das mir hier jemand helfen kann.
    Fürs anschauen vielen Dank im Voraus.

    Sehr lineare Programmierung. :D
    Eigentlich weiß man gar nicht so richtig, wo man mit den Ratschlägen anfangen soll ;)


    Mit xlWBook.Application.Cells(nRow, 6) addressierst du eine Zelle im momentan zufällig aktiven Worksheet.
    Sauber wäre ein Konstrukt wie xlWBook.Sheets("Tabelle1").Cells(nRow,6) oder meinetwegen auch xlWBook.Sheets(2).Cells(nRow,6)
    Soviel nur nebenbei.


    obwohl ich meiner Meinung nach deklariert habe dafür immer eine neue Zeile zu verwenden

    Mit nRow = xlWBook.Application.Range("A65536").End(xlUp).Row + 1 suchst du die erste freie Zeile in Spalte 1.
    Da du Spalte 1 nie füllst, wird das immer dieselbe sein.
    Auuserdem ist die fixe Konstante 65535 maximal bis Excel 2003 korrekt.
    Dafür gibt's Properties.

    Mein Vorschlag:
    nRow = xlWBook.Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row + 1
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Hallo.

    Ja als Laie kann ich damit leben das meine Programmierung fern von Perfekt ist. :D

    Aber danke für die Korrektur und die Hilfestellung.
    Die Codezeile funktioniert, jedoch bekomme ich sobald die addressierte Zeile gefüllt wurde, den Fehler "Method 'Rows' of object ' _Global' failed", wenn ich versuche eine weitere Zeile zu füllen.
    Gibt es eine Möglichkeit zu bestimmen, das wenn eine Zeile bereits Daten enthält, die nächste freie Zeile gewählt wird?

    Also sagen wir ab Zeile 4 abwärts, wenn keine Daten in Zeile 4 vorhanden sind, wirdZeile 4 gefüllt.
    Sind Daten enthalten, dann Zeile 5. Sind Daten in Zeile 5, dann Zeile 6 usw.

    nRow = xlWBook.Sheets("Geräteübersicht").Cells(Rows.Count, 4).End(xlUp).Row + 1

    Der Code schreibt in Zeile 4 und wenn Zeile 4 belegt ist dann geht er eine Zeile nach unten.
    Beim nächsten ausführen fängt er aber wieder bei 4 an, verursacht dann aber einen Fehler weil ja eine Zeile darunter auch schon belegt ist.
    Zumindest versteh ich das so, muß ja aber nicht viel bedeuten ?( ;)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „illogic“ ()

    Kannst du deinen Beitrag nochmals überprüfen.
    Du wirfst da Spalten und Zeilen willkürlich durcheinander.
    So gibt das für mich keinen Sinn.

    Edit:
    Method 'Rows' of object ' _Global' failed

    Du rufst den Code aus Word auf?

    Visual Basic-Quellcode

    1. Const xlUp = -4162
    2. Set ws = xlWBook.Sheets("Geräteübersicht")
    3. nRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row + 1
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „petaod“ ()

    Sorry, Ja da hab ich was verwechselt. habs abgeändert.

    Genau der Code wird aus Word aufgerufen.
    Man öffnet quasi das Protokoll, trägt alles in die Felder ein, speichert das Dokument ab.
    Vor dem eigentlichen Speichervorgang, jedoch nach der Checkfields Abfrage (Pflichtfelder) soll der Inhalt aus den entsprechenden Formularfeldern an Excel übergeben werden.

    Der Code den du in deinem letzten Beitrag geschrieben hast, gibt einen Run-time error 91: Object variable or With block variable not set.
    Markiert wird dieser Teil des Codes.

    Set ws = xlWBook.Sheets("Geräteübersicht")

    Ohje mein Fehler, ich hab versehentlich

    Quellcode

    1. Set ws = xlWBook.Sheets("Geräteübersicht")

    vor

    Quellcode

    1. Set xlApp = CreateObject("excel.Application")
    2. Set xlWBook = xlApp.Workbooks.Open(ThisDocument.Path & "\artexGeräteliste.xlsx")

    gesetzt.
    Somit wollte er das ausführen bevor er überhaupt das Workbook öffnen konnte. :wacko:

    Hab es korrigiert und jetzt scheint es soweit zu funktionieren.

    Vielen vielen Dank dafür!

    So sieht der Code momentan aus.

    Quellcode

    1. Private Sub Transfer_Data()
    2. Dim xlApp As Object
    3. Dim xlWBook As Object
    4. Dim fld As FormField
    5. Dim nRow As Long
    6. Dim nCol As Integer
    7. Dim ws As Object
    8. Const xlUp = -4162
    10. Set xlApp = CreateObject("excel.Application")
    11. Set xlWBook = xlApp.Workbooks.Open(ThisDocument.Path & "\artexGeräteliste.xlsx")
    12. xlWBook.Application.Visible = True
    13. xlWBook.Application.Sheets("Geräteübersicht").Select
    14. Set ws = xlWBook.Sheets("Geräteübersicht")
    15. nRow = ws.Cells(ws.Rows.Count, 4).End(xlUp).Row + 1
    17. 'ActiveDocument.Unprotect
    19. nCol = 4
    21. nInstall = ActiveDocument.FormFields("Gebäude").Result
    22. nEqui = ActiveDocument.FormFields("EquiNr").Result
    23. nTyp = ActiveDocument.FormFields("Typ").Result
    24. nPTB = ActiveDocument.FormFields("PTB").Result
    25. nSNR = ActiveDocument.FormFields("SNR").Result
    26. nFFA = ActiveDocument.FormFields("FFA").Result
    27. nPMBAR = ActiveDocument.FormFields("PMBAR").Result
    28. nVMBAR = ActiveDocument.FormFields("VMBAR").Result
    29. nPVDTNG = ActiveDocument.FormFields("PVDTNG").Result
    30. nVVDTNG = ActiveDocument.FormFields("VVDTNG").Result
    31. nMWRKST = ActiveDocument.FormFields("MWRKST").Result
    32. nProzMed = ActiveDocument.FormFields("ProzMed").Result
    34. xlWBook.Application.Cells(nRow, 2).Value = ActiveDocument.FormFields("Gebäude").Result
    35. xlWBook.Application.Cells(nRow, 3).Value = ActiveDocument.FormFields("EquiNr").Result
    36. xlWBook.Application.Cells(nRow, 4).Value = ActiveDocument.FormFields("Typ").Result
    37. xlWBook.Application.Cells(nRow, 5).Value = ActiveDocument.FormFields("PTB").Result
    38. xlWBook.Application.Cells(nRow, 6).Value = ActiveDocument.FormFields("SNR").Result
    39. xlWBook.Application.Cells(nRow, 7).Value = ActiveDocument.FormFields("FFA").Result
    40. xlWBook.Application.Cells(nRow, 8).Value = ActiveDocument.FormFields("PMBAR").Result
    41. xlWBook.Application.Cells(nRow, 9).Value = ActiveDocument.FormFields("VMBAR").Result
    42. xlWBook.Application.Cells(nRow, 10).Value = ActiveDocument.FormFields("PVDTNG").Result
    43. xlWBook.Application.Cells(nRow, 11).Value = ActiveDocument.FormFields("VVDTNG").Result
    44. xlWBook.Application.Cells(nRow, 12).Value = ActiveDocument.FormFields("MWRKST").Result
    45. xlWBook.Application.Cells(nRow, 13).Value = ActiveDocument.FormFields("ProzMed").Result
    47. 'ActiveDocument.Protect (wdAllowOnlyFormFields)
    49. ActiveDocument.Fields(1).Select
    51. xlWBook.Close savechanges:=True


    Da wäre noch ein anderes Problem.
    Mit den Zeilen,

    Quellcode

    1. ActiveDocument.FormFields("EquiNr").Result
    etc.
    kann ich ja normale Text Form Felder und Drop Downs auslesen, Legacy Forms, alles was ich mit einem Bookmark versehen kann.
    Ich habe aber auch eine ActiveX Combo Box in das Protokoll eingebaut, die ich ebenfalls auslesen lassen möchte.
    Jedoch hab ich bisher nicht herausfinden können wie ich das anstelle.

    ComboBox1. Value oder Range oder Result etc. haben nicht funktioniert.
    Da gibt es sicher wieder irgend eine Kleinigkeit die ich übersehe. :D

    Da wäre es höchste Zeit, dass du dir mal die Objekte anschaust, die du verwendest.
    F2 ist eine Taste, die Wunder wirkt, wenn du vorher ein Objekt markiert hast.

    Oder auch einfach nur Intellisense nutzen.
    Wenn du Combobox1. eingibst, erscheinen im Editor gleich nach der Eingabe des Punktes alle Properties und Methoden dieses Objekts zur Auswahl.

    Ich habe hier auf dem momentan verwendeten Rechner keine Office-Umgebung zum Testen, aber ich könnte wetten, dass es eine Property Text gibt, die das momentan ausgewählte Element der Combobox enthält.
    Falls ich falsch liege, schau dir einfach das Objekt mal genauer an.
    Dazu könntest du einen Breakpoint setzen und es im Überwachungsfenster des Debuggers anschauen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende