Eigenschaften einer klasse

Barbara · 2014-12-27T21:51:25+00:00

Hi ich versuche gerade, hinter das Geheimnis von Klassenmodulen zu kommen. Was bedeuten die einzelnen Elemente in diesem Ausdruck? ActiveCell.Offset(-1, 0).Value ActiveCell ist wohl ein Objekt einer Klasse. Ist diese Klasse bereits angelegt oder ist sie immer vorhanden? Was ist Offset? Ist das Funktion? Gibt es dazu einen Code zum Nachvollziehen? Value: Das ist vermutlich eine Eigenschaft. Gibt es dazu einen Code zum Nachvollziehen? LG, Barbara

Hi Barbara,
zu welcher Klasse das Objekt ActiveCell gehört, hatte ich doch bereits geschrieben - zur Klasse Arbeitsblatt.
Man kann selbstverständlich auch eigene Klassen erstellen und ihnen definierte Eigenschaften zuweisen und Events programmieren. Ansprechen kann man die Eigenschaften bzw. programmieren kann man die Events dann in einem Klassenmodul für diese Klasse.
Hier ein Beispiel für eine eigene Klasse vom Typ Arbeitsblatt und mit Namen clsTabellen:
dazu folgenden Code ins Workbook_Open-Ereignis, um beim Öffnen die Klasse zu erstellen (initialisieren):

Option Explicit
Private Sub Workbook_Open()
TabellenInit
End Sub

In ein allgemeines Modul diesen Code - er initialisiert die Klasse, trägt im Beispiel also alle Objekte Arbeitsblatt der Arbeitsmappe in die Klasse ein:

Option Explicit
Public arrTabellen() As New clsTabellen
Sub TabellenInit()
Dim wskTab As Worksheet
Dim intTabellen As Integer
intTabellen = 1
' Schleife über alle Tabellen
For Each wskTab In Worksheets
ReDim Preserve arrTabellen(1 To intTabellen)
' jedes Tabellenblatt in die Klasse eintragen
Set arrTabellen(intTabellen).clTab = wskTab
intTabellen = intTabellen + 1
Next wskTab
End Sub

In einem z.B. als clsTabellen benannten/definierten Klassenmodul spricht man dann die Eigenschaften und Events der betreffenden Klasse an - dazu z.B. folgenden Code in das Klassenmodul clsTabellen, mit dem das Worksheet_Change-Ereignis der Klasse clsTabellen ausgeführt wird:

Option Explicit
Public WithEvents clTab As Worksheet
Private Sub clTab_Change(ByVal Target As Range)
If Target.Address = "$B$10" Then MsgBox "Ich reagiere auf Eingabe in der Tabelle1"
End Sub

…Barbara;
ansonsten glaube ich, dass Beverly etwas übers Ziel hinausgeschossen ist, denn dir geht's ja wohl immer noch ums GrundVerständnis. Das, was dir jetzt alles geantwortet wurde (auch von mir), könnte durchaus dein Verständnis überfordern.
Ja, alle deine neuen Fragen wurden schon von uns beantwortet, aber du scheinst immer noch im Dunkel herumzuirren. Ich hatte mir seinerzeit als ziemlich Erstes das ObjektModell von Xl angesehen, da wdn die allermeisten Zusammenhänge deutlich.
Im Grunde genommen kann man sich Xl auch wie eine relationale Datenbank vorstellen, denn die weist eine ähnliche Struktur auf. Alle Begriffe (Identifikatoren), die in einer DB in Relation zueinander stehen, sind in Xl-VBA Objekte, die bestimmten Klassen angehören. In einer DB können selbständige Identifikatoren auch bestimmten anderen als DatensatzElemente beigegeben wdn. Dadurch können die verschiedensten Datengruppierungen bei der DB-Auswertung erreicht wdn, denn daneben gibt's noch einfache Daten, die bestimmten IdentifikatorTypen zugeordnet sind. Vgln mit Xl-VBA entspräche der HptIdentifikator eines Datensatzes dem HptObjekt, alle anderen Elemente desselben Eigenschaften dieses HptObjekts, die, sofern sie in anderem Zusammenhang als selbständige DB-Identifikatoren resp in Xl-VBA als eigene Objekte auftreten, auch ebensolche sind und wieder eigene Eigenschaften haben können.
Das alles überschneidet sich in Xl vielfältig (ähnlich besagter DB), so dass ActiveCell zwar eine Eigenschaft der Application ist (quasi ein Element im „HptDatensatz von Xl“), aber letztlich ein Objekt des Typs Range darstellt, das der Klasse Worksheet nachgeordnet ist. Die entsprd objekt-begründende Eigenschaft dieser Objekte heißt dann auch Range. ActiveCell ist insofern sowohl Eigenschaft als auch Objekt. Als Eigenschaft gehört es zu Application, als Objekt ist es Worksheet nachgeordnet, das sein Parent ist. Offset dagegen verweist auf ein gleichartiges, aber nicht identisches Objekt mit derselben Eltern-Kind-Beziehung.
Damit habe ich auch zum Ausdruck bringen wollen, dass in Xl-VBA durchaus nicht alles ein Objekt ist. Es gibt noch viele Eigenschaften, die kein Objekt begründen, ebenso wie eine DB nicht nur aus Identifikatoren besteht.
Es gibt in VBA auch noch selbständige StrukturElemente, die aus dem Xl-ObjektModell herausfallen und wohl deshalb in VBA keine Objekte sind wie bspw ein (klassisches) VBA-Array. In anderen PgmierSprachen sind Arrays idR auch Objekte.
Aber ich glaube, das war jetzt auch wieder zuviel. Sieh dir das ObjektModell an und vertiefe dich in die VBA-Grundlagen bevor du dich eingehender mit Klassen und ihren Möglichkeiten beschäftigst! ;-)
Gruß, Luc :-?

Forumthread: Eigenschaften einer klasse

30
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial