Office: Ausgeblendete Tabellen ansprechen

Guten Tag in die Runde.

Habe mal eine Verständnisfrage. Haben mehrere Tabellen von wo ich bestimmte Daten in ein Word- Dokument übertrage. Nun hatte ich diese Tabellen aber ausgeblendet. (Sieht besser aus)
Jetzt mein Problem: Wenn ich aus dieser Tabelle mittels Makro Informationen in das Word- Dokument auswähle und übertragen will, mach EXCEL das nicht.
Es geht nur wenn die Tabelle wieder eingeblendet ist. Gibt es hier nur diese Möglichkeit (Eingeblendete Tabelle) ????

Danke für Informationen hierzu.

Gruß Culli

:)

 

das musst Du jemand Fragen der neben Dir sitzt der sieht den Code.

Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Online-Excel.de

 

Hall Culli,

wie sieht dennn der Code für den Zugriff auf das ausgeblendete Tabellenblatt aus ?

Zum Beispiel kannst Du mit Find auf keine ausgeblendeten Daten zugreifen.

Gruß
Aloys

 

Hier mein Kode:

Private Sub CommandButton4_Click()
Dim Bereich As Range
Dim Gruppe As String
Dim appWord As Object, wordDoku As Object
Set Bereich = ThisWorkbook.Worksheets("AuswWasser").Cells(1, 1).CurrentRegion
Gruppe = Application.InputBox("Geben Sie die Nummer der Gruppe ein, die Sie sehen wollen:", Type:=1)
Bereich.AutoFilter Field:=6, Criteria1:=Gruppe '** die 6 musst du kontrollieren. Ich weiß nicht, in welcher Spalte aktuell die Gruppe steht.
Bereich.Copy
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set wordDoku = appWord.documents.Add
With wordDoku
'noch leeres Dokument formatieren
.Content.Font.Size = 13
'Texte reinschreiben lassen
.Content.InsertAfter "Wassergruppe __ Tag:_____________ Uhr____________ __.Hl 20__" & vbCr & "Listenführer:_______________,_______________,_________________" & vbCr
.Paragraphs(1).Range.Font.Size = 13
.Paragraphs(2).Range.Font.Size = 13
'die kopierte gefilterte Tabelle einfügen
.Paragraphs(3).Range.Paste
'und weiter im Text
.Content.InsertAfter vbCr & "Gelber Text: Verordnung im 2. Halbjahr abgelaufen." & vbCr & "Bitte nach Ablauf neues Unterschriftsblatt benutzen." _
& vbCr & "Falls nach Ablauf keine neue Verordnung vorliegt gilt Teilnehmer als Selbstzahler." & vbCr & _
"Verfahrensweise bei Selbstzahler s. (Grüner Text)." & vbCr & _
"Grüner Text: Selbstzahler. Verpflichtserklärung unterschreiben lassen. Überweisung mitgeben." & vbCr & _
"Rote Schrift: Teilnehmer bringt neue Verordnung, andernfalls Selbstzahler." & vbCr & _
"(Verfahrensweise bei Selbstzahler s. (Grüner Text)."
'Tabelle um die letzte Spalte kürzen
.tables(1).Columns.last.Delete
'Speichern, drucken etc (erst wieder aktivieren, wenn alles vorher läuft)
'.SaveAs "F:Zuza Wasser1.docx"
'.PrintOut
'.Close savechanges:=false
End With
'gesetzten Filter entfernen
Bereich.AutoFilter

End Sub

Vielleicht sind es ja keine größeren Umstände um dies zu ermöglichen?

Danke und Gruß jetzt schon fürs gezeigte Interesse.

Gruß Culli

 

Wollte meinen Beitrag noch mal in den Focus rücken, um vielleicht doch jemanden für meiner Frage zu interessieren.

Danke und Gruß

Culli

 

Hallo Culli,

im Normalfall solltest du Beginn des Makros, die Bildschirmaktualisierung aussschalten, das Tabellenblatt einblenden, alle Berechnungen und Zugriffe durchführen, danach wieder ausblenden und die Bildschirmakualisierung wieder einschalten.

 

Danke, aber ich glaube deine Lösung trifft bei meinem Gedanken nicht zu.
Ich brauche den "Pfad" zur entsprechenden Tabelle, damit die darin vorhandenen Werte in das Word Dokument mit einfließen.

Gruß Culli

 

Hallo zusammen,versuche einfach nochmal Unterstützung auf meine Frage zu erhalten.

Vielleicht kann jemand meine "VBA Einleitung" mit entsprechender Kodezeile ergänzen bzw. berichtigen.

Danke und Gruß Culli

Private Sub CommandButton4_Click()
Dim Bereich As Range
Dim Gruppe As String
Dim appWord As Object, wordDoku As Object
Set Bereich = ThisWorkbook.Worksheets("AuswWasser").Cells(1, 1).CurrentRegion
Gruppe = Application.InputBox("Geben Sie die Nummer der Gruppe ein, die Sie sehen wollen:", Type:=1)
Bereich.AutoFilter Field:=6, Criteria1:=Gruppe '** die 6 musst du kontrollieren. Ich weiß nicht, in welcher Spalte aktuell die Gruppe steht.
Bereich.Copy
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set wordDoku = appWord.documents.Add
With wordDoku
'noch leeres Dokument formatieren
.Content.Font.Size = 13