Range oder String

Hallo,
ich werde noch wahnsinnig.
Folgendes Problem:
Im ersten Codeteil starte ich mit der Sortierung meiner Tabelle. Da dieser Code auf verschiedene Tabellen angewendet wird dachte ich, es wäre gut den Tabellennamen und -bereich jeweils in einer Variable (WSName as string, rngBereich as range) zu speichern.
Dim WsName As String
Dim ls As Long, lz As Long, rngBereich As Range
With ActiveWorkbook.Worksheets(WsName)
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
lz = .Cells(.Rows.Count, 1).End(xlUp).Row
ls = .Cells(lz, .Columns.Count).End(xlToLeft).Column
MsgBox ("letzte Zeile ist:" & lz)
MsgBox ("letzte Spalte ist:" & ls)
Set rngBereich = .Range(.Cells(1, 1), .Cells(lz, ls))
End With
Dieser erste Teil funktioniert.
Aber jetzt scheitere ich an dem folgenden Teil:
With ActiveWorkbook.Worksheets(WsName).Sort
.SetRange Range("A1:A2797")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Frage 1: Wie kann ich das Problerm lösen?
Frage 2: Ich glaube ich habe ein grundsätzliches Problem, wann ich etwas als Range, Worksheet oder String deklarieren muss. Vielleicht schmeisse ich ja auch die verschiedenen Methoden irgendwie durcheinander. Zumindest herrscht diesbezüglich in meinem Kopf ein vollkommenes Chaos. Kann mir jemand eine gute Erklärung in Form von Quellen im Netz oder Büchern empfehlen, die den gordischen Knoten in meinem Kopf zerschlagen?
Vollkommen zerknirscht,
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Sort_ Tabelle1.Range("A:C"), 1, xlNo, xlAscending End Sub Sub Sort_(rngBereich As Range, lngSortColum&, xlHeader As XlYesNoGuess, xlSortOrder As xlSortOrder) With rngBereich.Parent.Sort .SortFields.Clear .SortFields.Add Key:=rngBereich.Cells(1, lngSortColum), _ SortOn:=xlSortOnValues, Order:=xlSortOrder, DataOption:=xlSortNormal .SetRange rngBereich .Header = xlHeader .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply .SortFields.Clear End With End Sub

…Peter?
Viell dann auch mal ins Objektmodell schauen und den Unterschied zwischen Objekten und normalen Daten eruieren! Objekte wie Range können Daten enthalten, die ein Text (String=Zeichenkette), eine Zahl (inkl Sonderfall Datum/Zeit), ein Datenfeld (aus MatrixFml), ein Wahrheits- oder Fehlerwert sein können. Objekte können 2 Arten von Eigenschaften haben, welche, die in irgendeiner Form einen Datenwert bezeichnen, und solche, die selbst wieder (nachgeordnete Kind-)Objekte begründen. Solche „Kinder“ (in anderen Sprachen auch über child erreichbar) haben also „Eltern“, weshalb man mit Range(…).Parent das jeweilige Worksheet (als Objekt) erhält. Demggüber haben Daten keine Eigenschaften, nur (vordefinierte) Wertebereiche, eben String, Long, Double u.a., als Datenfeld auch noch Dimensionen. Lässt man die Eigenschaftsdefinition/-deklaration weg, erhält man Daten vom Typ Variant, die Daten aller Typen umfassen können. Handelt es sich dabei um ein komplettes Datenfeld, spricht man in VBA von einem Variant, der ein Datenfeld enthält, was nicht dasselbe wie ein vordefiniertes Datenfeld bestimmten Typs und ebensolcher Dimensionierung ist. In anderen Sprachen sind diese Variants nämlich ebenfalls Objekte (Arrays ), in VBA haben sie wohl eher einen „Quasi-Objekt-Status“, sind also offiziell keine, während das Sammlungen (Collections ) und das Dictionary-Objekt, denen diese Arrays ähneln, durchaus sind. Die mehrdimensionale Standard-Array-Form in VBA hat damit allerdings nichts zu tun.
Gruß + schöSo, Luc :-?

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread