Das war mit abstand das lehrreichste Tutorial was ich zur OOP in VBA gesehen habe. Besonders gut hat mir die klare Struktur und das nachvollziehbare Vorgehen gefallen. Es fühlt sich an wie eine richtig gute Vorlesung, in der man direkt Hand am eigenen Projekt anlegen kann :) Gerne weitere Tutorials!
Hi. Vielen Dank für dein tolles Lob. Ich werde mir Mühe geben die Qualität hoch zu halten. Es gibt viele Dinge in der Programmierung die man erst richtig versteht, wenn man auch die Zusammenhänge beleuchtet. Viel Spaß bei den nächsten Tutorials.
TOP! Lieber Alex, das war WIRKLICH ein SEHR SEHR GEILES Tutorial! Vielen Dank, ich habe alles nachgebaut! Es hat mir sehr geholfen und mich weitergebracht! Nun Teil 2.... 😀. LG Chris
Hi. Das freut mich mega. Weiterhin viel Spaß bei den nächsten Tutorials. Wenn ihr Wünsche oder Fragen habt, nehme ich das Gerne in mein Portfolio auf. Gruß Alex
Sehr gerne. Ich habe in meinen frühen VBA Projekten, leider viel zu wenig die Vorteile von Klassenmodulen nutzen können. Auch in der früher sehr beliebten und einschlägigen Literatur (Microsoft Press Verlag) war so gut wie nichts von Klassenmodulen zu lesen.
Hallo Leonard, ich bin unterwegs und habe keinen Zugriff auf meinen Rechner und den Quellcode. Aber insofern ich dich richtig verstanden habe und du die Spaltenreihenfolge flexibel gestalten möchtest hätte ich folgenden Vorschlag. In der Klasse müsste über eine private function der Spaltenindex ermittelt werden. Die Wertzuweisung zum Abschluss müsste über "Cells(Zeilenindex, Spaltenindex)" erfolgen. In etwa: Private Function GetColumnIndex(inpColumnName as String) as Long Dim i as long For i = 1 to tabKunden.Columns.Count If tabKunden.Cells(1, i).value = inpColumnName then GetColumnIndex = i Exit Function End if Next i End Function Dann den ermittelten Wert zuweisen. tabKunden.Cells(lngFreieZeile, lngZeilenindex).value = varWert Das ganze kann aber nur funktionieren wenn die Spaltenüberschriften geschützt bzw. gesperrt sind, da sonst Spaltenname und interner Bezeichner im Quellcode abweichen und die Function 0 zurück gibt. Ich hoffe das hilft dir schon mal ungefähr weiter.
Das war mit abstand das lehrreichste Tutorial was ich zur OOP in VBA gesehen habe. Besonders gut hat mir die klare Struktur und das nachvollziehbare Vorgehen gefallen. Es fühlt sich an wie eine richtig gute Vorlesung, in der man direkt Hand am eigenen Projekt anlegen kann :) Gerne weitere Tutorials!
Hi. Vielen Dank für dein tolles Lob. Ich werde mir Mühe geben die Qualität hoch zu halten. Es gibt viele Dinge in der Programmierung die man erst richtig versteht, wenn man auch die Zusammenhänge beleuchtet. Viel Spaß bei den nächsten Tutorials.
TOP! Lieber Alex, das war WIRKLICH ein SEHR SEHR GEILES Tutorial! Vielen Dank, ich habe alles nachgebaut! Es hat mir sehr geholfen und mich weitergebracht! Nun Teil 2.... 😀. LG Chris
Hi. Das freut mich mega. Weiterhin viel Spaß bei den nächsten Tutorials. Wenn ihr Wünsche oder Fragen habt, nehme ich das Gerne in mein Portfolio auf. Gruß Alex
Super erklärt. Danke!
Sehr gerne. Ich habe in meinen frühen VBA Projekten, leider viel zu wenig die Vorteile von Klassenmodulen nutzen können. Auch in der früher sehr beliebten und einschlägigen Literatur (Microsoft Press Verlag) war so gut wie nichts von Klassenmodulen zu lesen.
Wie könnte man die Klasse variabel, anhand der Tabellen Überschriften, gestalten?
Hallo Leonard,
ich bin unterwegs und habe keinen Zugriff auf meinen Rechner und den Quellcode.
Aber insofern ich dich richtig verstanden habe und du die Spaltenreihenfolge flexibel gestalten möchtest hätte ich folgenden Vorschlag.
In der Klasse müsste über eine private function der Spaltenindex ermittelt werden. Die Wertzuweisung zum Abschluss müsste über "Cells(Zeilenindex, Spaltenindex)" erfolgen.
In etwa:
Private Function GetColumnIndex(inpColumnName as String) as Long
Dim i as long
For i = 1 to tabKunden.Columns.Count
If tabKunden.Cells(1, i).value = inpColumnName then
GetColumnIndex = i
Exit Function
End if
Next i
End Function
Dann den ermittelten Wert zuweisen.
tabKunden.Cells(lngFreieZeile, lngZeilenindex).value = varWert
Das ganze kann aber nur funktionieren wenn die Spaltenüberschriften geschützt bzw. gesperrt sind, da sonst Spaltenname und interner Bezeichner im Quellcode abweichen und die Function 0 zurück gibt.
Ich hoffe das hilft dir schon mal ungefähr weiter.