sichtbaren Bereich einer eingebettete Excel Tabelle mit VBA verändern

Hallo Sat_046,

Vielen Dank, dass Sie Ihre Anfrage gepostet haben. Mein Name ist Clarence, ich helfe Ihnen gerne bei Ihrem Anliegen.

Um Ihre Anfrage zu lösen, führen Sie bitte die folgenden Schritte aus.

Öffnen Sie den VB-Editor, klicken Sie mit der rechten Maustaste auf ThisWorkbook, zeigen Sie Code an, fügen Sie Folgendes ein:

Privates Sub Workbook_Open()
Sheet1.ScrollArea = "A1:Z54"
Ende Sub

Sie müssen den Blattnamen anpassen. Sheet1 ist der vb-Name.

Sie können auch verwenden

Blätter("Blatt1"). ScrollArea = "A1:Z54"

Möglicherweise müssen Sie auch den Bereich anpassen, abhängig von Ihrer Bildschirmauflösung.

Oder

Öffnen Sie den VB-Editor, klicken Sie mit der rechten Maustaste auf ThisWorkbook, zeigen Sie Code an, fügen Sie Folgendes ein:

Privates Sub Workbook_Open()
Sheet1.ScrollArea = "A1:Z54"
Ende Sub

Sie müssen den Blattnamen anpassen. Sheet1 ist der vb-Name.

Sie können auch verwenden

Blätter("Blatt1"). ScrollArea = "A1:Z54"

Möglicherweise müssen Sie auch den Bereich anpassen, abhängig von Ihrer Bildschirmauflösung.

Klicken Sie auf diesen Link, um Ihre Referenz und andere Fehlerbehebungsverfahren https://stackoverflow.com/questions/56876818/excel-vba-set-range-filtered-table-visible-cells anzuzeigen

Hinweis: Dies ist eine Nicht-Microsoft-Website. Die Seite scheint genaue und sichere Informationen zu liefern. Achten Sie auf Anzeigen auf der Website, die Produkte bewerben können, die häufig als PUP (potenziell unerwünschte Produkte) klassifiziert sind. Recherchieren Sie jedes auf der Website beworbene Produkt gründlich, bevor Sie sich entscheiden, es herunterzuladen und zu installieren. "

Zögern Sie nicht, uns eine Nachricht zu senden, wenn Sie weitere Hilfe benötigen.

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person, die dieses Problem hat, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Alles Gute
Clarence

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.
<br />

Private Sub Worksheet_Change(ByVal Target As Range)

Dim n As Integer
Dim n1 Als ganze Zahl

"Nichts tun, wenn mehr als eine Zelle geändert oder Inhalte gelöscht werden

Wenn Target.Cells.Count > 1 oder IsEmpty(Target) ist, beenden Sie Sub
Wenn target.address = "$A$102" dann
Wenn IsNumeric(Target) dann
n = 0

While Range("A103"). Offset(n, 0) = ""
n = n + 1
Wend

Beenden, wenn

Für n1 = 1 Bis n
Zeilen("103:103"). Auswählen
Selection.Delete Umschalt:=xlUp
Nächster

Für n1 = 1 Bis Bereich("A102")
Zeilen("103:103"). Auswählen
Selection.Insert Shift:=xlDown
Nächster

Beenden, wenn

Ende Sub

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.
<br />

Vielen Dank für die schnelle Antwort!
<br />Die Prozedur gibt mir den Bereich zurück, den die eingebettete Tabelle anzeigen soll. Aber wie stelle ich die Größe der in Word eingebetteten Tabelle auf diesen Bereich ein?
<br />Ich möchte die Anzahl der in Word angezeigten Zeilen der eingebetteten Tabelle mit VBA anpassen.
<br />

Hallo Sat_046,

Vielen Dank, dass Sie sich heute an uns gewandt haben. Ich bin Kevin und helfe Ihnen heute gerne bei Ihrer Frage.

Sie können dies verwenden, um die Zellen einer Tabelle zu suchen und anzuzeigen:

Sub GetVisibleRangeOnly()
Dim tbl As ListObject
Dim rng As Range

'Ändern Sie den Namen der Tabelle und des Arbeitsblatts nach Bedarf
Setzen Sie tbl = Arbeitsblätter ("Sheet1"). ListObjects("Table1")

"Wenn es keine sichtbare Zelle nach Filtraton gibt, wird rng NICHTS WAHR sein
Setzen Sie rng = tbl. DataBodyRange.SpecialCells(xlCellTypeVisible)

Ende Sub

Ich hoffe, diese Informationen sind hilfreich. Wenn Sie weitere Fragen haben oder zusätzliche Hilfe benötigen, wenden Sie sich bitte an uns und ich helfe Ihnen gerne weiter.

Alles Gute
Kevin

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person, die dieses Problem hat, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.
<br />

Ich habe es jetzt anders gelöst. Der anzuzeigende Bereich der Tabelle wird nach dem Bearbeiten kopiert und neu als OLEObject eingefügt. Die vorhandene Tabelle wird gelöscht.
<br />Sub TabelleBearbeitenUndErsetzen()
<br />dim oDoc as Word.Document
<br />dom oWb as Excel.Workbook
<br />set oDoc=ActiveDocument
<br />oDoc.InlineShapes(1).OLEFormat.Edit
<br />set oWb = oDoc.InlineShapes(1).OLEFormat.Object
<br />' Anpassungen an der Tabelle oWb vornehmen
<br />...
<br />' Anzuzeigenden Tabellenbereich kopieren
<br />oWb.Range(...).Copy
<br />' Kopierten Bereich vor der vorhandenen Tabelle als OLEObject einfügen
<br />oDoc.InlineShapes(1).Range.PasteSpecial Link:=False, Placement:=wdInLine, DisplayAsIcon:=False, DataType:=0
<br />' vorhandene Tabelle löschen
<br />oDoc.InlineShapes(2).Delete
<br />set oWb=nothing
<br />set oDoc=nothing
<br />end Sub
<br />