Office: (Office 2013) [vba]

sronny · 19. Juni 2015

Hallo an euch alle,

ich habe mich die letzten Wochen intensiv mit Klassen und Objekten beschäftigt und mein Programm entsprechend schon umgebaut. Doch denke ich mal, dass ich da noch lange nicht alles begriffen habe. Deshalb will ich jetzt doch mal wieder eine Frage fragen:

Ich habe mehrere Klassen - bspw. clsKlient. Diese Klasse umfasst den Namen, Strasse, PLZ, Ort und Kundennummer.
Die Klienten lese ich in einem Modul aus einer Tabelle in ein Array oKlient ein. Also ich habe dann oKlient(1).Name, oKlient(2).Name usw. dann angelegt.

In einer Userform- bspw. "Rechnung" habe ich eine Combobox cmbx_Klient_Name in der ich den jeweiligen Klient auswähle und mit dem Change-Event der Combobox (cmbx_Klient_Name_Change) werden Textboxen txb_Klient_Strasse, txb_Klient_PLZ usw gefüllt.

Derzeit ist es so, dass, wenn ich einen Klient ändere, ich erst mit einem Button den Klient speichern kann, und dann die gesamten Klienten wieder einlesen muss, damit die Änderung geändert ist. Also, ich drücke den Button speichern, dann wird oKlient(1).Name etc. in die Tabelle "Klienten" eingetragen, das gesamte Array oKlient gelöscht und neu erstellt und die Combobox neu eingelesen.

Das nimmt ja nun einige Zeit in Anspruch. Daher hatte ich versucht, in clsKlient mit Withevents txbTextbox (ich nenne die jetzt mal so) ein Changeereignis einzubauen, welches eine Änderung in einer Textbox im Userform, bspw. txb_Klient_Strasse gleich in der Variable mStrasse in dem Objekt einträgt. Dann könnte ich nämlich erst am Ende meiner Sitzung alle Änderungen in der Tabelle eintragen lassen.

Leider funktioniert das so nicht. Daher meine Frage, wie kann ich erreichen, dass zur Laufzeit ich mittels Textbox_Change das Objekt verändern kann. Ich könnte das natürlich auch in der Userform für jede einzelne Textbox machen, aber Ziel ist ja (und da liegt ja der Vorteil begründet) ich das für Global in einer Klasse programmieren kann, um bsw. in anderen Userformen (Einsatzbestätigung erstellen) nicht das Ganze noch einmal programmieren muss.

Ich danke euch schon einmal für Anregungen...

maninweb · 19. Juni 2015

Hallo,

hmm, etwas schwierig nachzuvollziehen, ohne Code. Spontan würde ich sagen, wenn Du ein Array der Objekte clsKlient hättest, könntest Du über die Array-Items direkt auf die Objekte zugreifen, Get und Set Properties aufrufen und Werte setzen. Du musst nur zur Laufzeit den Index kennen.

Gruß

sronny · 19. Juni 2015

Habe gerade gemerkt, dass ich irgendwie gar keine Überschrift angegeben habe- peinlich. Vielleicht könnte das ja ein Moderator ändern - weiß gar nicht wie das hier geht...

Also im Modul "DatenEinlesen" bilde ich mein Klienten-Array folgendermaßen (gekürzt):

Public Sub KlientenEinlesen()
Dim letztezeile As Long
Dim i As Long

'Set w1 = ThisWorkbook
With Sheets("Klienten")
letztezeile = Sheets("Klienten").Cells(Rows.Count, 1).End(xlUp).Row + 1

ReDim Preserve oKlient(letztezeile + 1)

KlIndex = 1
For i = 2 To letztezeile - 1

Set oKlient(KlIndex) = New clsKlient

oKlient(KlIndex).Name = .Cells(i, 1).Value
oKlient(KlIndex).Vorname = .Cells(i, 2).Value
oKlient(KlIndex).Strasse = .Cells(i, 5).Value
oKlient(KlIndex).PLZ = .Cells(i, 6).Value
oKlient(KlIndex).Ort = .Cells(i, 7).Value

KlIndex = KlIndex + 1

Next
KlCount = KlIndex - 1

End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dabei sind KlIndex und KlCount öffentliche Variablen. Auf das Klientarray habe ich zur Laufzeit Zugriff über den Combobox-Index.

Private Sub NamenFüllen()
Dim i As Long
Dim letztezeile As Long

cmbx_Klient_Name.Clear

With cmbx_Klient_Name
.ColumnCount = 3
.ColumnWidths = "60;60;30"
.Font.Size = 8

For i = 1 To KlCount

KlIndex = i
.AddItem oKlient(i).Name
.List(.ListCount - 1, 1) = oKlient(i).Vorname
.List(.ListCount - 1, 2) = oKlient(i).Geschlecht
Next
End With

Ebenso verkürzt:

Private Sub cmbx_Klient_Name_Change()
Dim AuswahlKlient As Long

AuswahlKlient = cmbx_Klient_Name.ListIndex

KlIndex = AuswahlKlient + 1

If Not cmbx_Klient_Name.MatchFound Then
For Each objTBox In frm_Klient.Controls
If TypeOf objTBox Is MSForms.textbox Then
intCount = intCount + 1
' ReDim Preserve objTextBox(1 To intCount)
objTBox.Value = ""
objTBox.Object.Enabled = True
End If
Next

Else

txb_Klient_Vorname.Value = oKlient(KlIndex).Vorname
txb_Klient_Strasse.Value = oKlient(KlIndex).Strasse
txb_Klient_PLZ.Value = oKlient(KlIndex).PLZ
txb_Klient_Ort.Value = oKlient(KlIndex).Ort

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meine clsKlient-Klasse:

Dim mname As String
Dim mvorname As String
Dim mStrasse As String
Dim mPLZ As String
Dim mOrt As String

Dim mklindes As Long
Dim mklCount As Long

Public WithEvents mKlTextbox as Msforms.Textbox

Public Sub mKlTextbox_Change()

Select Case mKlTextbox.Name

Case "txb_Klient_Vorname": mVorname = txb_Klient_Vorname.Value
Case "txb_Klient_Ort": mOrt = txt_Klient_Ort.Value

End Select
End Sub

Public Property Let Name(ByVal dName As String)
mname = dName
End Property

Public Property Get Name() As String
Name = mname
End Property

Public Property Let Vorname(ByVal dVorname As String)
mvorname = dVorname
End Property

Public Property Get Vorname() As String
Vorname = mvorname
End Property

Public Property Let Strasse(ByVal dStrasse As String)
mStrasse = dStrasse
End Property

Public Property Get Strasse() As String
Strasse = mStrasse
End Property

Public Property Let PLZ(ByVal dPLZ As String)
mPLZ = dPLZ
End Property

Public Property Get PLZ() As String
PLZ = mPLZ
End Property

Public Property Let Ort(ByVal dOrt As String)
mOrt = dOrt
End Property

Public Property Get Ort() As String
Ort = mOrt
End Property

Public Sub Speichern(ByVal neuerKlient As Boolean)
Dim letztezeile, zeile As Long
Dim Bereich As Range
Dim saddress As String

With Sheets("Klienten")
letztezeile = Sheets("Klienten").Cells(Rows.Count, 1).End(xlUp).Row + 1

Set Bereich = ActiveSheet.Columns("A:A").Find( _
what:=mname, LookIn:=xlValues, lookat:=xlWhole, _
searchorder:=xlByRows)

If Bereich Is Nothing Then GoTo neuerKlient

saddress = Bereich.Address

If Bereich.Offset(0, 1) = mvorname Then GoTo Klientändern

While ActiveCell.Address <> saddress
Set Bereich = Cells.FindNext(After:=Bereich)
If Bereich.Address = saddress Then GoTo neuerKlient
If Bereich.Offset(0, 1) = mvorname Then GoTo Klientändern
Wend

Klientändern:

zeile = Bereich.Row
.Cells(zeile, 1).Value = mname
.Cells(zeile, 2).Value = mvorname
.Cells(zeile, 5).Value = mStrasse
.Cells(zeile, 6).Value = mPLZ
.Cells(zeile, 7).Value = mOrt
.Cells(zeile, 8).Value = mKostenträger

Exit Sub
neuerKlient:
.Cells(letztezeile, 1).Value = mname
.Cells(letztezeile, 2).Value = mvorname
.Cells(letztezeile, 5).Value = mStrasse
.Cells(letztezeile, 6).Value = mPLZ
.Cells(letztezeile, 7).Value = mOrt

End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und dann habe ich für die Userform folgenden Code gefunden:

Private m_objTextBoxes() As New CTextBoxNum
Dim objCtl As Control
Dim nCnt As Integer

For Each objCtl In Me.Controls
If TypeOf objCtl Is MSForms.TextBox Then
nCnt = nCnt + 1
Redim Preserve m_objTextBoxes(1 To nCnt)
Set m_objTextBoxes(nCnt).g_objTextBox = objCtl
If objCtl.Name Like "Ankunft*" Or _
objCtl.Name Like "Abfahrt*" Then
Set m_objTextBoxes(nCnt).dbcl_TextBox = objCtl
End If
End If
Next objCtl

Angepasst auf mich:

Dim Klienttextbox () as new clsKlient
Dim objCtl As Control
Dim nCnt As Integer
Dim i as long

Klienteneinlesen 'die Sub zum Klienteneinlesen (siehe oben)

For Each objCtl In frm_Klient.Controls
If TypeOf objCtl Is MSForms.textbox Then
' nCnt = nCnt + 1
'ReDim Preserve Klienttextbox(1 To KlCount) habe ich mal rausgenommen, weil eigentlich ich
'mich auf oKlient beziehe
For i = 1 To KlCount
Set oKlient(i).mKlTextbox = objCtl
Next
End If
Next objCtl
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber das bekomme ich nicht hin. Muss ich doch ein eigenes Textboxobjekt erstellen - bspw. oKlienttextbox() as clsKlient? Aber dann erhalte ich ja wieder unabhängige Objekte, die mit dem oKlient-Objekt nichts zu tun haben. Stehe voll auf dem Schlauch. Hoffe, ich habe nichts vergessen...

maninweb · 19. Juni 2015

Hallo,

erstmal vielen Dank für das Einstellen des Codes. Fällt mir leider immer noch etwas schwer zu folgen. Deshalb fasse ich es mal zusammen, so wie ich es verstehe: Du hast die Klasse clsKlient mit entsprechenden Properties. Du erstellst aus der Tabelle heraus ein Array mit N Objekten des Typs clsKlient. Ok, wobei, beim Füllen, Du KIndex = i schreibst, was Du nicht bräuchtest. Dann hast Du eine UserForm mit Textboxen. Hier sieht es so aus, als hättest Du statische drin, wie z.B. txb_Klient_Vorname.Value = oKlient(KlIndex).Vorname. Wofür soll dann der Code mit den For Each Schleifen gut sein? Ist mit nicht klar.

Spontan würde ich sagen, es ginge wie folgt: Du hast die Liste der Klienten in der Combobox, woraus Du bei Auswahl den Index hast. Dann müsste in einem der Textbox-Ereignisse, wie z.B. txt_Klient_Vorname_Change() folgende einfache Zuweisung ausreichend sein:
Code:
oKlient(cmbx_Klient_Name.ListIndex+1).Vorname = txt_Klient_Vorname.Text
Das Koppeln der Textbox-Events an clsKlient ist m.E. nicht notwendig. Falls Du die Textboxen dynamisch erstellen möchtest, würde ich mir ggf. eine Klasse z.B. clsKlienten erstellen, die das Array der Klienten verwaltet und diese an die dynamischen Textboxen koppelt. In dieser Klasse könntest Du dann die Zuweisungen durchführen, das Speichern erledigen und müsstest nicht für jedes i die Zuweisung der Textboxen per Set = ... an die Basisklasse machen.

Gruß

sronny · 19. Juni 2015

Hallo maninweb,

das mit den dynamischen Textboxen hab ich mir auch schon überlegt, habe sie teilweise auch im Programm umgesetzt. Allerdings war mir dass dann bei so vielen Feldern zu umständlich, so das ich doch wieder auf einzelne Userformen zurückgegriffen habe und die Elemente festgelegt habe. Bei dynamischen Feldern muss ich ja erstmal eine Form erstellen, dann die einzelnen Koordinaten, Größen etc nehmen und diese wieder programmieren. Vorteil wäre, ich bräuchte für alles nur eine Userform. Stand aber nicht so im Verhältnis, da ich einiges vorher schon mal hatte.

Nach weiterem Probieren habe ich es allerdings jetzt auch hinbekommen:

Ich habe doch eine eigene Textbox-Klasse erstellt mit diesem Code (wiederum nur kurzgefasst):

Option Explicit

Public WithEvents mKlTextbox As MSForms.textbox

Public Sub mKlTextbox_Change()

Select Case mKlTextbox.Name

Case "txb_Klient_Vorname": oKlient(KlIndex).Vorname = mKlTextbox.Value
Case "txb_Klient_Ort": oKlient(KlIndex).Ort = mKlTextbox.Value
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann habe ich eine oTextbox() -Variable erstellt.

Und in der Userform:

Dim objCtl As Control
Dim nCnt As Long

cnt = 0
For Each objCtl In Me.Controls
If TypeOf objCtl Is MSForms.textbox Then
nCnt = nCnt + 1
ReDim Preserve oTextbox(1 To nCnt)
Set oTextbox(nCnt) = New clsTextbox
Set oTextbox(nCnt).mKlTextbox = objCtl
End If
Next objCtl
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das mit der For each-Schleife ist deshalb, da ich ja noch andere Formen in dem Frame habe und diese dann anders abfragen will. Wenn ich das nicht brauche, dann vielleicht mal nen kurzen Tip.

Mein clsKlient-Objekt bekommt noch eine Changevariable verpasst (Boolean), mit der ich dann am Schluss prüfe, ob etwas geändert wurde und falls ja, dann ich das noch speichere. Bedeutet am Schluss zwar etwas länger warten, aber während der Laufzeit ist die Verarbeitung fließender...

Ich danke aber trotzdem mal und den Rest muss ich mir noch einmal durch den Kopf gehen lassen..

Habt ein tolles, sonniges Wochenende :-)

Office: (Office 2013) [vba]

[vba]

[vba]

[vba]

[vba] - Similar Threads - vba

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Erstellung eines Dynamischen Kalenders (ggf. VBA)