Klasse Range (Excel VBA)

Die Klasse Range stellt eine Zelle, eine Zeile, eine Spalte, eine Auswahl von Zellen aus einem oder mehreren zusammenhängenden Zellblöcken oder einen 3D-Bereich dar.

Die wichtigste Prozeduren der Klasse Range sind Activate, Copy, Delete und Select

Set

Um eine Range -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim rng as Range
Set rng = ActiveCell

Die folgenden Prozeduren können zum Festlegen der Range Klassenvariablen verwendet werden : Areas, AboveAverage.AppliesTo, AllowEditRange.Range, Application.ActiveCell, Application.Cells, Application.Columns, Application.Intersect, Application.Range, Application.Rows, Application.Union, Application.PreviousSelections, Application.ThisCell, Areas.Item, AutoFilter.Range, Axis.CategoryNames, ChartObject.BottomRightCell, ChartObject.TopLeftCell, ColorScale.AppliesTo, Databar.AppliesTo, DisplayFormat.NumberFormat, DisplayFormat.AddIndent, DisplayFormat.HorizontalAlignment, DisplayFormat.Orientation, DisplayFormat.VerticalAlignment, DisplayFormat.FormulaHidden, DisplayFormat.IndentLevel, DisplayFormat.MergeCells, DisplayFormat.NumberFormatLocal, DisplayFormat.ShrinkToFit, FormatCondition.AppliesTo, HPageBreak.Location, Hyperlink.Range, IconSetCondition.AppliesTo, ListColumn.Range, ListColumn.DataBodyRange, ListColumn.Total, ListObject.Range, ListObject.DataBodyRange, ListObject.HeaderRowRange, ListObject.InsertRowRange, ListObject.TotalsRowRange, ListRow.Range, Name.RefersToRange, OLEObject.BottomRightCell, OLEObject.TopLeftCell, Pane.VisibleRange, Parameter.SourceRange, PivotCell.Range, PivotField.DataRange, PivotField.LabelRange, PivotItem.DataRange, PivotItem.LabelRange, PivotTable.DataBodyRange, PivotTable.ColumnRange, PivotTable.DataLabelRange, PivotTable.GetPivotData, PivotTable.PageRange, PivotTable.PageRangeCells, PivotTable.RowRange, PivotTable.TableRange1, PivotTable.TableRange2, QueryTable.Destination, QueryTable.ResultRange, Cells, Columns, Range, Rows, Item, Next, Previous, Resize, ColumnDifferences, CurrentArray, CurrentRegion, Dependents, DirectDependents, DirectPrecedents, End, EntireColumn, EntireRow, Find, FindNext, FindPrevious, MergeArea, Offset, Precedents, RowDifferences, SpecialCells, SpillingToRange, SpillParent, Ranges.Item, Scenario.ChangingCells, Shape.BottomRightCell, Shape.TopLeftCell, Sort.Rng, SortField.Key, Sparkline.Location, SparklineGroup.Location, SparklineGroups.Parent, TableObject.Destination, TableObject.ResultRange, Top10.AppliesTo, UniqueValues.AppliesTo, VPageBreak.Location, Window.ActiveCell, Window.VisibleRange, Window.RangeFromPoint, Window.RangeSelection, Worksheet.Cells, Worksheet.Columns, Worksheet.Range, Worksheet.Rows, Worksheet.CircularReference, Worksheet.UsedRange, Worksheet.XmlDataQuery, Worksheet.XmlMapQuery und WorkbookConnection.Ranges

For Each

Hier ist ein Beispiel für die Verarbeitung der Range -Elemente in einer Sammlung

Dim rng As Range: Set rng = 
Dim rngArea As Range
For Each rngArea In rng.Areas
	With rngArea
		
	End With
Next rngArea

Themas

Einige Prozeduren in dieser Klasse wurden in Themen zusammengefasst und auf separaten Themenseiten beschrieben

Name with its procedures ApplyNames, CreateNames und ListNames
Format with its procedures ApplyOutlineStyles, BorderAround, Borders, ClearFormats, ColumnWidth, DisplayFormat, Font, FormatConditions, Height, Left, NumberFormat, NumberFormatLocal, RowHeight, Style, Top, UseStandardHeight, UseStandardWidth und Width
Row with its procedures CalculateRowMajorOrder, EntireRow, ListHeaderRows, Row, RowDifferences und Rows
Cell with its procedures Cells, MergeCells, PivotCell, SetCellDataTypeFromCell und SpecialCells
Column with its procedures Column, ColumnDifferences, Columns, EntireColumn und TextToColumns
Copy with its procedures Copy, CopyFromRecordset und CopyPicture
Formula with its procedures Formula2, Formula2Local, Formula2R1C1, Formula2R1C1Local, FormulaArray, FormulaHidden, FormulaLocal, FormulaR1C1, FormulaR1C1Local und HasFormula
Show/Hide with its procedures Hidden, Show, ShowCard, ShowDependents, ShowDetail, ShowErrors und ShowPrecedents
Print with its procedures PageBreak, PrintOut und PrintPreview
Sort/Order with its procedures ReadingOrder, Sort und SortSpecial

Methoden

Die Hauptmethoden der Klasse Range sind

Activate - Aktiviert eine einzelne Zelle, die sich innerhalb der aktuellen Markierung befinden muss.

ActiveCell.Activate

Delete - Löscht das Objekt.

ActiveCell.Delete

Select - Markiert das Objekt.

ActiveCell.Select

Andere Methoden

AddComment - Fügt dem Bereich einen Kommentar hinzu.

AddCommentThreaded - Fügt dem Bereich einen neuen modernen Threaded-Kommentar hinzu, wenn kein Kommentar bereits vorhanden ist.

AdvancedFilter - Filtert oder kopiert Daten aus einer Liste auf Grundlage eines Kriterienbereichs.

AllocateChanges - Führt einen Rückschreibevorgang für alle bearbeiteten Zellen in einem auf einer OLAP-Datenquelle basierenden Bereich aus.

AutoComplete - Gibt eine AutoComplete-Übereinstimmung aus der Liste zurück.

AutoFill - Füllt die Zellen im angegebenen Bereich automatisch aus.

AutoFilter - Filtert eine Liste mithilfe von AutoFilter.

AutoFit - Ändert die Breite der Spalten oder die Höhe der Zeilen in dem jeweiligen Bereich, um sie optimal anzupassen.

AutoOutline - Erstellt automatisch eine Gliederung für den angegebenen Bereich.

Calculate - Berechnet alle geöffneten Arbeitsmappen, ein bestimmtes Arbeitsblatt in einer Arbeitsmappe oder einen bestimmten Zellbereich in einem Arbeitsblatt, wie in der Tabelle im Abschnitt "Hinweise" dargestellt.

CheckSpelling - Prüft die Rechtschreibung eines Objekts.

Clear - Löscht das gesamte Objekt.

ClearComments - Löscht alle Zellkommentare aus dem angegebenen Bereich.

ClearContents - Löscht Formeln und Werte aus dem Bereich.

ClearHyperlinks - Entfernt alle Hyperlinks aus dem angegebenen Bereich.

ClearNotes - Löscht Notizen und Audionotizen aus allen Zellen des angegebenen Bereichs.

ClearOutline - Entfernt die Gliederung für den angegebenen Bereich.

Consolidate - Konsolidiert Daten aus mehreren Bereichen verschiedener Arbeitblätter zu einem einzigen Bereich in einem einzelnen Arbeitsblatt.

ConvertToLinkedDataType - Versucht, alle Zellen im Bereich in einen verknüpften Datentyp wie Aktien oderGeografie umzuwandeln.

Cut - Schneidet das Objekt aus, legt es in die Zwischenablage oder fügt es an einer angegebenen Stelle ein.

DataSeries - Erstellt im angegebenen Bereich eine Datenreihe.

DataTypeToText - Wenn eine der Zellen im Bereich ein verknüpfter Datentyp ist, wie Aktien oderGeografie, konvertiert dieser Aufruf ihre Werte in Text.

Dirty - Bestimmt einen Bereich, der bei der nächsten Neuberechnung erneut berechnet werden soll.

DiscardChanges - Verwirft alle Änderungen in den bearbeiteten Zellen des Bereichs.

ExportAsFixedFormat - Exportiert in eine Datei mit dem angegebenen Format.

FillDown - Füllt die Zellen eines Bereichs beginnend mit der oder den oberste(n) Zellen nach unten hin auf.

FillLeft - Füllt die Zellen eines Bereichs beginnend mit der oder den rechten Zelle(n) bis zum linken Ende auf.

FillRight - Füllt die Zellen eines Bereichs beginnend mit der oder den linken Zelle(n) bis zum rechten Ende auf.

FillUp - Füllt die Zellen eines Bereichs beginnend mit der oder den unteren Zelle(n) nach oben hin auf.

Find - Sucht bestimmte Informationen in einem Bereich.

FindNext - Setzt eine Suche fort, die mit der Find -Methode begonnen wurde.

FindPrevious - Setzt eine Suche fort, die mit der Find -Methode begonnen wurde.

FlashFill - True gibt an, dass die Excel-Flash-Füllfunktion aktiviert und aktiv ist.

FunctionWizard - Aktiviert den Funktions-Assistenten für die linke obere Zelle des Bereichs.

Group - Wenn das Range -Objekt eine einzelne Zelle im Datenbereich eines PivotTable-Felds darstellt, führt die Group -Methode in diesem Feld eine numerische oder datumsbasierte Gruppierung aus.

Insert - Fügt eine Zelle oder einen Zellbereich in das Arbeitsblatt oder die Makrovorlage ein und verschiebt die anderen Zellen entsprechend.

InsertIndent - Fügt dem angegebenen Bereich einen Einzug hinzu.

Justify - Ordnet den Text in einem Bereich neu an, sodass er den Bereich gleichmäßig ausfüllt.

Merge - Erstellt eine verbundene Zelle aus dem angegebenen Range -Objekt.

NavigateArrow - Navigiert einen Spurpfeil des angegebenen Bereichs zu der oder den Vorgänger-, Nachfolger- oder fehlerverursachenden Zelle(n).

NoteText - Gibt den mit der oberen linken Zelle des Bereichs verbundenen Zellkommentar zurück oder legt ihn fest.

Parse - Analysiert einen Datenbereich und teilt ihn auf mehrere Zellen auf.

PasteSpecial - Fügt ein Range -Objekt ein, das in den angegebenen Range-Wert kopiert wurde.

RemoveDuplicates - Entfernt doppelt vorhandene Werte aus einem Wertebereich.

RemoveSubtotal - Entfernt Teilergebnisse aus einer Liste.

Replace - Gibt einen BooleanBoolean-Wert zurück, der Zeichen in Zellen des angegebenen Bereichs kennzeichnet.

Run - Führt das Microsoft Excel-Makro an der aktuellen Position aus.

SetPhonetic - Erstellt phonetische Objekte für alle Zellen im angegebenen Bereich.

Speak - Führt dazu, dass die Zellen des Bereichs in Zeilen- oder Spaltenreihenfolge sprachlich ausgegeben werden.

Subtotal - Erstellt Teilergebnisse für den Bereich (bzw. für die aktuelle Region, wenn der Bereich nur aus einer Zelle besteht).

Table - Erstellt eine Datentabelle basierend auf Eingabewerten und Formeln, die in einem Arbeitsblatt definiert sind.

Ungroup - Stuft einen Bereich in einer Gliederung herauf (das heißt, seine Gliederungsebene wird verringert).

UnMerge - Löst einen zusammengeführten Bereich in einzelne Zellen auf.

Eigenschaften

Areas.Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveCell.Areas.Count

Areas.Item Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Dim rngItem As Range
Set rngItem = ActiveCell.Areas(Index:=1)

Areas.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveCell.Areas.Parent

AddIndent Gibt einen Variant -Wert zurück, der angibt, ob Text automatisch eingezogen wird, wenn die Textausrichtung in einer Zelle auf gleiche Verteilung (horizontal oder vertikal) festgelegt ist, oder legt diesen fest.

ActiveCell.AddIndent = True

Address Gibt einen Wert String zurück, der den Bereichsbezug in der Sprache des Makros repräsentiert.

Dim strAddress As String
strAddress = ActiveCell.Address

AddressLocal Gibt den Bereichsbezug für den angegebenen Bereich in der Sprache des Benutzers zurück.

Dim strAddressLocal As String
strAddressLocal = ActiveCell.AddressLocal

AllowEdit Gibt einen Boolean-Wert zurück, der angibt, ob der Bereich in einem geschützten Arbeitsblatt bearbeitet werden kann.

Dim booAllowEdit As Boolean
booAllowEdit = ActiveCell.AllowEdit

Areas Gibt eine Areas -Auflistung zurück, die alle Bereiche in einer Auswahl mit mehreren Bereichen darstellt.

Dim arsAreas As Areas
Set arsAreas = ActiveCell.Areas

Characters Gibt ein Characters -Objekt zurück, das einen Bereich von Zeichen innerhalb des Objekt Texts darstellt.

Dim chrsCharacters As Characters
Set chrsCharacters = ActiveCell.Characters

Comment Gibt ein comment -Objekt zurück, das den Kommentar darstellt, der der Zelle in der oberen linken Ecke des Bereiches zugeordnet ist.

Dim cmmComment As Comment
Set cmmComment = ActiveCell.Comment

CommentThreaded Gibt ein CommentThreaded -Objekt zurück, das den threadbezogenen Kommentar darstellt, der mit der Zelle in der oberen linken Ecke des Bereichs verknüpft ist.

Dim ctdCommentThreaded As CommentThreaded
Set ctdCommentThreaded = ActiveCell.CommentThreaded

Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveCell.Count

CountLarge Gibt einen Wert vom Typ zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCountLarge As Long
lngCountLarge = ActiveCell.CountLarge

CurrentArray Wenn die angegebene Zelle Teil eines Arrays ist, wird ein Range -Objekt zurückgegeben, das das gesamte Array darstellt.

Dim rngCurrentArray As Range
Set rngCurrentArray = ActiveCell.CurrentArray

CurrentRegion Gibt ein Range -Objekt zurück, das den aktuellen Bereich darstellt.

Dim rngCurrentRegion As Range
Set rngCurrentRegion = ActiveCell.CurrentRegion

Dependents Gibt ein Range -Objekt zurück, das den Range-Wert darstellt, der alle Nachfolger einer Zelle enthält.

Dim rngDependents As Range
Set rngDependents = ActiveCell.Dependents

DirectDependents Gibt ein Range -Objekt zurück, das den Bereich darstellt, der alle direkten Nachfolgerzellen einer Zelle enthält.

Dim rngDirectDependents As Range
Set rngDirectDependents = ActiveCell.DirectDependents

DirectPrecedents Gibt ein Range -Objekt zurück, das den Range-Wert darstellt, der alle direkten Vorgänger einer Zelle enthält.

Dim rngDirectPrecedents As Range
Set rngDirectPrecedents = ActiveCell.DirectPrecedents

End Gibt ein Range-Objekt zurück, das die Zelle am Ende des Bereichs repräsentiert, die den Quellbereich enthält.

Dim rngEnd As Range
Set rngEnd = ActiveCell.End(Direction:=xlDown)

Errors Ermöglicht es dem Benutzer, auf Fehlerüberprüfungsoptionen zuzugreifen.

Dim errsErrors As Errors
Set errsErrors = ActiveCell.Errors

HasArray True, wenn die angegebene Zelle Teil einer Arrayformel ist.

Dim booHasArray As Boolean
booHasArray = ActiveCell.HasArray

HasRichDataType True, wenn alle Zellen im Bereich einen Rich-Datentyp enthalten.

Dim booHasRichDataType As Boolean
booHasRichDataType = ActiveCell.HasRichDataType

HasSpill True , wenn alle Zellen im Bereich Teil eines verschütteten Bereichs sind; andernfalls false. False , wenn keine der Zellen im Bereich Teil eines verschütteten Bereichs sind; andernfalls null .

Dim booHasSpill As Boolean
booHasSpill = ActiveCell.HasSpill

HorizontalAlignment Gibt einen Variant-Wert zurück, der die horizontale Ausrichtung für das angegebene Objekt darstellt, oder legt diesen Wert fest.

ActiveCell.HorizontalAlignment = xlHAlignCenter

Hyperlinks Gibt eine Hyperlinks -Auflistung zurück, die die Hyperlinks für den Range darstellt.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActiveCell.Hyperlinks

ID Gibt zurück oder legt einen String -Wert, der die identifizierende Bezeichnung für die angegebene Zelle darstellt, wenn die Seite als Webseite gespeichert wird.

ActiveCell.ID =

IndentLevel Gibt einen Variant-Wert zurück, der die Einzugsebene für die Zelle oder den Bereich darstellt oder legt diesen fest.

ActiveCell.IndentLevel = 15

Interior Gibt ein Interior-Objekt zurück, das den Innenbereich des angegebenen Objekts darstellt.

Dim intInterior As Interior
Set intInterior = ActiveCell.Interior

Item Gibt ein Range -Objekt zurück, das einen versetzten Bereich in Bezug zum angegebenen Bereich darstellt.

ActiveCell(RowIndex:=1) =

LinkedDataTypeState Gibt Informationen über den Status der verknüpften Datentypen im Bereich zurück, z. B. Aktien oder Geografie.

Dim xldLinkedDataTypeState As XlLinkedDataTypeState
xldLinkedDataTypeState = ActiveCell.LinkedDataTypeState

ListObject Gibt ein ListObject -Objekt für das Range -Objekt zurück.

Dim lstobjListObject As ListObject
Set lstobjListObject = ActiveCell.ListObject

LocationInTable Gibt eine Konstante, die den Teil des PivotTable -Berichts beschreibt, der die obere linke Ecke des angegebenen Bereich enthält.

Dim xliLocationInTable As XlLocationInTable
xliLocationInTable = ActiveCell.LocationInTable

Locked Gibt einen Variant-Wert zurück, der angibt, ob das Objekt gesperrt ist, oder legt diesen fest.

ActiveCell.Locked = True

MDX Gibt den MDX-Namen für das angegebene Range-Objekt zurück.

Dim strMDX As String
strMDX = ActiveCell.MDX

MergeArea Gibt ein Range-Objekt zurück, das den zusammengeführten Bereich mit der angegebenen Zelle darstellt.

Dim rngMergeArea As Range
Set rngMergeArea = ActiveCell.MergeArea

Name Gibt einen Variant -Wert zurück, der den Namen des Objekts darstellt, oder legt diesen fest.

ActiveCell.Name =

Next Gibt ein Range-Objekt zurück, das die nächste Zelle darstellt.

Dim rngNext As Range
Set rngNext = ActiveCell.Next

Offset Gibt ein Range-Objekt zurück, das einen von dem angegebenen Bereich versetzten Bereich repräsentiert.

Dim rngOffset As Range
Set rngOffset = ActiveCell.Offset

Orientation Gibt einen Variant-Wert zurück, der die Textausrichtung darstellt, oder legt diesen Wert fest.

ActiveCell.Orientation = xlDownward

OutlineLevel Gibt die aktuelle Zeilen- oder Spaltengliederungsebene für die angegebene Zeile oder Spalte zurück oder legt sie fest.

ActiveCell.OutlineLevel =

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim wsParent As Worksheet
Set wsParent = ActiveCell.Parent

Phonetic Gibt das phonetische Objekt zurück, das Informationen zu einer bestimmten phonetischen Textzeichenfolge in einer Zelle enthält.

Dim phnPhonetic As Phonetic
Set phnPhonetic = ActiveCell.Phonetic

Phonetics Gibt die phonetische Auflistung des Range zurück.

Dim phnsPhonetics As Phonetics
Set phnsPhonetics = ActiveCell.Phonetics

PivotField Gibt ein PivotField -Objekt zurück, das das PivotTable-Feld darstellt, das die linke obere Ecke des angegebenen Bereichs enthält.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotField

PivotItem Gibt ein PivotItem -Objekt zurück, das das PivotTable-Element darstellt, das die linke obere Ecke des angegebenen Bereich enthält.

Dim pvtiPivotItem As PivotItem
Set pvtiPivotItem = ActiveCell.PivotItem

PivotTable Gibt ein PivotTable -Objekt zurück, das den PivotTable-Bericht darstellt, der die linke obere Ecke des angegebenen Bereich enthält.

Dim pvtPivotTable As PivotTable
Set pvtPivotTable = ActiveCell.PivotTable

Precedents Gibt ein Range -Objekt zurück, das alle Vorgänger einer Zelle darstellt.

Dim rngPrecedents As Range
Set rngPrecedents = ActiveCell.Precedents

PrefixCharacter Gibt das Präfixzeichen für die Zelle zurück.

Dim strPrefixCharacter As String
strPrefixCharacter = ActiveCell.PrefixCharacter

Previous Gibt ein Range -Objekt zurück, das die vorherige Zelle darstellt.

Dim rngPrevious As Range
Set rngPrevious = ActiveCell.Previous

QueryTable Gibt ein Queryable -Objekt zurück, das die Abfragetabelle darstellt, die das angegebene Range -Objekt überschneidet.

Dim qrytblQueryTable As QueryTable
Set qrytblQueryTable = ActiveCell.QueryTable

Range Gibt ein Range-Objekt zurück, das eine Zelle oder einen Zellbereich darstellt.

Dim lngCell1 As Long: lngCell1 = "A1"
Dim rngRange As Range
Set rngRange = ActiveCell.Range(Cell1:=lngCell1)

Resize Ändert die Größe des angegebenen Bereichs.

Dim rngResize As Range
Set rngResize = ActiveCell.Resize

SavedAsArray True , wenn alle Zellen im Bereich in der Datei als Arrayformel gespeichert werden; andernfalls false. False , wenn keine der Zellen im Bereich in der Datei als Legacy Arrayformel gespeichert werden würde; andernfalls false. andernfalls null .

Dim booSavedAsArray As Boolean
booSavedAsArray = ActiveCell.SavedAsArray

ServerActions Gibt die Aktionen an, die auf dem SharePoint-Server für ein Range-Objekt ausgeführt werden können.

Dim actsServerActions As Actions
Set actsServerActions = ActiveCell.ServerActions

ShrinkToFit Gibt einen Variant -Wert zurück, der angibt, ob der Text automatisch verkleinert wird, um in die verfügbare Spaltenbreite einzufügen, oder legt diesen fest.

ActiveCell.ShrinkToFit = True

SoundNote Diese Eigenschaft sollte nicht verwendet werden.

Dim sneSoundNote As SoundNote
Set sneSoundNote = ActiveCell.SoundNote

SparklineGroups Gibt ein SparklineGroups -Objekt zurück, das eine vorhandene Gruppe von Sparklines aus dem angegebenen Bereich darstellt.

Dim sgsSparklineGroups As SparklineGroups
Set sgsSparklineGroups = ActiveCell.SparklineGroups

SpillingToRange

Dim rngSpillingToRange As Range
Set rngSpillingToRange = ActiveCell.SpillingToRange

SpillParent Wenn eine Zelle ein Element eines Spills ist, gibt die Zelle zurück, die die Formel enthält, die verantwortlich ist.

Dim rngSpillParent As Range
Set rngSpillParent = ActiveCell.SpillParent

Summary True, wenn es sich bei dem Bereich um eine Hauptzeile oder Hauptspalte einer Gliederung handelt.

Dim booSummary As Boolean
booSummary = ActiveCell.Summary

Text Gibt den formatierten Text für das angegebene Objekt zurück.

Dim strText As String
strText = ActiveCell.Text

Validation Gibt das Validation -Objekt zurück, das die Datenüberprüfung für den angegebenen Zeitraum darstellt.

Dim vldValidation As Validation
Set vldValidation = ActiveCell.Validation

Value Gibt einen Variant-Wert zurück, der den Wert des angegebenen Bereichs darstellt, oder legt ihn fest.

ActiveCell.Value =

Value2 Gibt den Zellwert zurück oder legt ihn fest.

ActiveCell.Value2 =

VerticalAlignment Gibt einen Variant-Wert zurück, der die vertikale Ausrichtung des angegebenen Objekts darstellt, oder legt diesen Wert fest.

ActiveCell.VerticalAlignment = xlVAlignBottom

Worksheet Gibt ein Worksheet -Objekt zurück, das das Arbeitsblatt mit dem angegebenen Range darstellt.

Dim wsWorksheet As Worksheet
Set wsWorksheet = ActiveCell.Worksheet

WrapText Gibt einen Variant-Wert zurück, der angibt, ob der Text im Objekt in Microsoft Excel umbrochen wird, oder legt diesen fest.

ActiveCell.WrapText = True

XPath Gibt ein XPath -Objekt zurück, das den XPath des Elements darstellt, das dem angegebenen Range -Objekt zugeordnet ist.

Dim xphXPath As XPath
Set xphXPath = ActiveCell.XPath

Ranges.Count Gibt die Anzahl der Objekte in der Auflistung zurück.

Dim lngCount As Long
lngCount = ActiveWorkbook.Connections(1).Ranges.Count

Ranges.Item Gibt ein Range -Objekt zurück, das einen Bereiche von Elementen in einer Arbeitsmappe darstellt.

Dim rngItem As Range
Set rngItem = ActiveWorkbook.Connections(1).Ranges(Index:=1)

Ranges.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWorkbook.Connections(1).Ranges.Parent