Thema Datum  Von Nutzer Rating
Antwort
16.02.2016 07:38:46 Christof
NotSolved
Blau Quelltext mit mehreren Variablen einfach kopieren
 17.02.2016 06:56:59 Christof
NotSolved

Ansicht des Beitrags:
Von:
Christof		 Datum:
17.02.2016 06:56:59		 Views:
733		 Rating:
     
Antwort:
  Ja
Thema:
Quelltext mit mehreren Variablen einfach kopieren

Hallo,

 

Da es anscheinend kaum einen Lösungsansatz gibt zum Kopieren der Tabelle, habe ich eine Idee wie ich das vielleicht mit Arrays lösen kann.

Das Array habe ich mit Daten gefüllt. Jetzt möchte in diese Daten in eine vorhandene Tabelle in einem Word - Dokument ausgeben. Wie kann ich das realisieren?

Oder kann ich einzelne Daten aus dem Array in Textmarken ablegen?

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub Dokument_öffnen()
 
Dim Constant_Current As Variant
 
Constant_Current = Range("C5:C10").Value
 
 
'MsgBox "Dokument 1 wird geöffnet"
'___________________________________________________________________________
'In Variablen schreiben, was in den einzelnen Zellen steht. Das geht so nicht wegen der Kopierbarkeit, zu viele Daten und Spalten müssen ergänzbar sein
'Component = ActiveSheet.Range("B5")
'Component_eintrag1 = ActiveSheet.Range("C5")
'Component_eintrag2 = ActiveSheet.Range("C12")
'___________________________________________________________________________
'Öffnen des Word Dokuments
Dim Doku1 As Object
On Error Resume Next
Set Doku1 = GetObject(, "Word.Application")
If Doku1 Is Nothing Then Set Doku1 = CreateObject("Word.Application")
On Error GoTo 0
With Doku1
    .Visible = True
    '.Documents.Open "C:\Users\pby891\Desktop\Excel Projekt\PLT-3 IQ 2x2-24DC-P wo PKG - 1.dotm"
    .Documents.Open "C:\Users\pby891\Desktop\Testinstruction.dotm"
End With
 
'___________________________________________________________________________
'Abfrage ob die Textmarke vorhanden ist, dann eintragen der Variablen
'Wenn die Textmarke nicht vorhanden ist, anzeigen eines Fehlers
If Doku1.ActiveDocument.Bookmarks.Exists("Component_1") = True Then
'Fall Abfrage ob die Textmarke "..." exitiert
    If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag1") = False Then
            Component_eintrag1 = "component_eintrag1"
            MsgBox "Felher - Textmarke " & Component_eintrag1 & " nicht vorhanden", vbkOKonly, "FEHLER"
            Else
  
            'Hier soll das Array ausgebeben werden
            Doku1.ActiveDocument.Bookmarks("Component_eintrag1").Range = 'Hier will ich das Array ausgeben. Am besten nur den ersten EIntrag
               
 
 
                If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag2") = False Then
                Component_eintrag2 = "component_eintrag2"
                MsgBox "Felher - Textmarke " & Component_eintrag2 & " nicht vorhanden", vbkOKonly, "FEHLER"
                Else
                Doku1.ActiveDocument.Bookmarks("Component_eintrag2").Range = Component_eintrag2
                    If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag3") = False Then
                    Component_eintrag3 = "component_eintrag3"
                    MsgBox "Felher - Textmarke " & Component_eintrag3 & " nicht vorhanden", vbkOKonly, "FEHLER"
                    Else
                    Doku1.ActiveDocument.Bookmarks("Component_eintrag3").Range = Component_eintrag3
                    End If
                        If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag4") = False Then
                        component_eintrag4 = "component_eintrag4"
                        MsgBox "Felher - Textmarke " & component_eintrag4 & " nicht vorhanden", vbkOKonly, "FEHLER"
                        Else
                        Doku1.ActiveDocument.Bookmarks("Component_eintrag4").Range = component_eintrag4
                        End If
            End If
    End If
Else: MsgBox "Felher - Textmarke nicht vorhanden", vbkOKonly, "FEHLER"
End If
 
End Sub

 

 

Die If Abfragen stellen nur fest ob die Textmarke vorhanden ist oder nicht.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.02.2016 07:38:46 Christof
NotSolved
Blau Quelltext mit mehreren Variablen einfach kopieren
 17.02.2016 06:56:59 Christof
NotSolved