Array übergeben

Public Sub PortfolioDateien_Erstellen() Dim pfad As String Dim NeueDatei As String pfad = ThisWorkbook.Path & "\" NeueDatei = "Daten_201709.xlsx" Application.Workbooks.Open pfad & NeueDatei Sheets("Rohdaten").Select Call BossIDs_Einlesen DatenEinkauf_Einlesen MatrixListeBossID(), ZaehlerFam End Sub

Public Sub BossIDs_Einlesen() Dim i As Integer Dim j As Integer Dim ZeileDaten As Integer Dim strZeileBoss As String Dim ZaehlerFam As Integer Dim MatrixListeBossID() As Variant ReDim strLetters(1 To 1) ZeileDaten = FreeFile Open "G:\MeineDaten\bossIDs.txt" For Input As ZeileDaten Do While Not EOF(ZeileDaten) ZaehlerFam = ZaehlerFam + 1 Line Input #ZeileDaten, strZeileBoss ReDim Preserve strLetters(1 To ZaehlerFam) strLetters(ZaehlerFam) = Split(strZeileBoss, ";") Loop Close ZeileDaten ReDim MatrixListeBossID(1 To ZaehlerFam, 0 To 4) As Variant For i = 1 To ZaehlerFam For j = 0 To 4 If i = 1 Then MatrixListeBossID(i, j) = strLetters(i)(j) Else MatrixListeBossID(i, j) = CDbl(strLetters(i)(j)) End If Next j Next i PortfolioDateien_Erstellen MatrixListeBossID(), ZaehlerFam End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
ich frage mich, warum hier so viele Leute globale Variablen verwenden und auch noch empfehlen, als wenn das total klasse ist. Vor allem wundere ich mich, wenn es Leute sind, die nachweislich echt richtig gute Lösungen liefern, von denen auch ich schon viel gelernt habe, was VBA für Excel angeht. Bitte bitte, nehmt Euch ein beliebiges Skript zur Einführung in die Programmierung einer beliebigen Hochschule und ich verwette meinen Arsch darauf, dass zu den beiden Pestbringern des Spaghettiocodes GoTo und globale Variablen, erklärt wird, dass sie mindestens schlechter Programmierstil sind. In allen mir bekannten Kursen sind sie verboten und wer sie verwendet, dem fliegt sein Code um die Ohren. Das ist auch keine neue Erkenntnis, dass habe ich bereits in der 90 Jahren an der FH Kiel so kennengelernt.
Auszug aus dem Skript Einführung in die imperative Programmierung, Seite 163, Kurs 01613 der Feruni Hagen:
3. Prozeduren unterstützen die Wiederverwendung von Programmkomponenten
in verschiedenen Programmen. Die einfachsten Beispiele bilden die in Pascal
vordefinierten Standardfunktionen wie z.B. abs, sqr, succ, ord sowie die
Standardprozeduren read und write. Jeder Programmierer kann und sollte
sich eine Bibliothek von Prozeduren einrichten, die er typischerweise für seinen
Anwendungsbereich benötigt. (Im Fall einer Softwarefirma sollte eine
einzige Bibliothek angelegt werden, die von allen Programmierern gemeinsam
benutzt wird.) Diese vorgefertigten Bausteine erleichtern und beschleunigen
nicht nur die Programmentwicklung, sondern unterstützen auch die
Fehlerfreiheit des Programms (vorausgesetzt, die Bausteine selbst sind fehlerfrei).
Eine solche Bibliothek könnte z.B. die Prozedur FeldSortieren aus
dem Programm FeldSort4 (vgl. Aufgabe 5.1.2.1 ) enthalten, mit der Felder
(von integer-Zahlen) unterschiedlicher Länge sortiert werden können. Die
Wiederverwendung solcher Bausteine funktioniert aber nur effizient, wenn
sämtliche benötigte Information über die Baustein-Schnittstelle fließt und
keine Annahmen über globale Variablen getroffen werden müssen. Wäre das
nämlich der Fall, dann müßte der Programmierer zunächst den Programmcode
des Bausteins aus der Bibliothek untersuchen, um die global benutzten Variablen
zu finden, damit er sie in seinem Programm entsprechend deklariert.
Bei Vermeidung globaler Variablen genügt ein Blick auf die Schnittstelle, um
die benötigte Information zu identifizieren; das lästige, mit Fehlern behaftete
Lesen des Programmcodes entfällt (vgl. dazu auch den Abschnitt über "Seiteneffekte"
in den Programmierstilausführungen).
Globale Variablen sind die Pest und sollten niemals verwendet werden! (Dieser Satz ist nicht mehr aus dem Skript ;-))
Ein umfangreicheres Programm hat immer eine Hauptroutine und Unterprogramme. In VBA ist die Hauptroutine immer eine Sub, während Unterprogramme eine Sub oder eine Funktion sein können.
Der Unterschied ist, das eine Sub lediglich Code ausführt und dann zur aufrufenden Routine zurückkehrt, während eine Funktion eine Variable an die aufrufende Routine zurückgibt. Die aufrufende Routine muss dabei nicht die Hauptfunktion sein. Eine zurückgegebene Variable (der Rückgabeparameter) kann natürlich auch ein Array sein.
Um die zurückgegebene Variable aufnehmen zu können, muss in der aufrufenden Routine eine entsprechende Variable deklariert sein. Im vorliegenden Fall heißt dass, in der Sub Dateien_Erstellen() muss zusätzlich ein Array deklariert werden, welches dann durch den Rückgabewert der von einer Sub zu einer Funktion zu wandelnden Routine BossIDs_Einlesen gefüllt wird. Wird aus DatenEinkauf_Einlesen und DatenLager_Einlesen auch ein Rückgabeparameter erwartet, muss es sich ebenfalls um Funktionen handeln.
Ich nehme im folgenden mal PortfolioDateien_Erstellen() als aufrufende Routine und BossIDs_Einlesen() als zurückgebende Funktion:


Sub PortfolioDateien_Erstellen()
Dim pfad As String
Dim NeueDatei As String
Dim rueckgabeArrayAufnehmen() As Variant 'Zusätzliches Array
pfad = ThisWorkbook.Path & "\"
NeueDatei = "Daten_201709.xlsx"
Application.Workbooks.Open pfad & NeueDatei
Sheets("Rohdaten").Select
'Zusätzlich deklariertes Array durch Funktion befüllen
rueckgabeArrayAufnehmen = BossIDs_Einlesen()
'Sollte durch die folgenden Aufrufe ein Rückgabewert erwartet
'werden, muss statt Call eine Variable geschrieben werden die
'so wie das Array in dieser Routine deklariert werden muss.
'Auf den Datentyp achten!
'PortfolioDateien_Erstellen() aus BossIDs_Einlesen() hier her
'verfrachtet. Sofern möglich, Prozeduraufrufe immer aus der
'Hauptroutine durchführen, das dient der Übersichtlichkeit
'und ggf. der Wiederverwendbarkeit von Code.
'Es ist einfacher eine Routine wiederzuverwenden, die nicht an den
'Aufruf einer weiteren Routine gekoppelt ist.
Call PortfolioDateien_Erstellen(rueckgabeArrayAufnehmen(), ZaehlerFam)
Call DatenEinkauf_Einlesen(rueckgabeArrayAufnehmen(), ZaehlerFam)
End Sub


Function BossIDs_Einlesen() As Variant
Dim i As Integer
Dim j As Integer
Dim ZeileDaten As Integer
Dim strZeileBoss As String
Dim ZaehlerFam As Integer
Dim MatrixListeBossID() As Variant
ReDim strLetters(1 To 1)
ZeileDaten = FreeFile
Open "G:\MeineDaten\bossIDs.txt" For Input As ZeileDaten
Do While Not EOF(ZeileDaten)
ZaehlerFam = ZaehlerFam + 1
Line Input #ZeileDaten, strZeileBoss
ReDim Preserve strLetters(1 To ZaehlerFam)
strLetters(ZaehlerFam) = Split(strZeileBoss, ";")
Loop
Close ZeileDaten
ReDim MatrixListeBossID(1 To ZaehlerFam, 0 To 4) As Variant
For i = 1 To ZaehlerFam
For j = 0 To 4
If i = 1 Then
MatrixListeBossID(i, j) = strLetters(i)(j)
Else
MatrixListeBossID(i, j) = CDbl(strLetters(i)(j))
End If
Next j
Next i
'Hier wird das Array an die aufrufende Routine zurückgegeben
BossIDs_Einlesen = MatrixListeBossID
End Function

Hinweis: Ich habe den Code der vorgegebenen Routinen nicht auf Fehler geprüft. Es geht mir hier nur um das Prinzip, wie Arrays übergeben werden, ohne globale Variablen einzusetzen.
Viele Grüße,
Zwenn

…die unterschiedlichen Array-Typen, Zwenn,
und nicht nur die, die auf gewissen VBA-Spar- bzw -Anfänger-WebSites vorgestellt wdn. Schon die VBE-Hilfe kennt auch einen Variant mit einem Array, der hier vom Fragesteller verwendet wurde, nur erwähnt sie nur den Unterschied ohne auf weitere Besonderheiten einzugehen (auch bei ParamArray nicht!): Obwohl ein Variant, der ein Datenfeld enthält, sich konzeptionell von einem Datenfeld unterscheidet, dessen Elemente vom Typ Variant sind, erfolgt der Zugriff auf die DatenfeldElemente in gleicher Weise.
Das VBE-Hilfe-Zitat berücksichtigt gerade diese Art von Datenfeldern, zu denen auch das hier benutzte gehört, nicht ausreichend. Man könnte ja auch ein solches auf diese Weise erzeugen:
Dim arVar As Variant
arVar = Array(Array(1, 2, 3), Array(4, 5, 6))
Wieviele Dimensionen hat dann wohl arVar…? ;-]
An der Diskussion um GlobalVariablen beteilige ich mich nicht, denn meine Meinung kennst du bereits. Hier nur soviel, ich benutze sowohl diese als auch Variablen-Übergabe. Da ich überwiegend UDFs schreibe, fallen GlobalVariablen eher in Form von Enumerationen oder (Text-)Konstanten, die ich nicht in einem Pgm unterbringen kann u/o will, an. Das alles müsste ich unterlassen, wenn ich modischen Dogmen folgen wollte. Ich pgmmiere seit 1969/70 und schon damals waren Spaghetti-Codes eine deutliche Warnung wert. Folglich pgmmiere ich auch keine, obwohl ich in VBA auch (On xyz )GoTo und (~)GoSub verwende. Ich lasse mir doch nichts verbieten, was zum Inventar einer PgmmierSprache gehört. Auch hier kommt's doch in 1.Linie darauf an, wofür das bestimmt ist und wie das ArbeitsUmfeld aussieht. Die Enumerationen in VBA zB wurden ja auch geschaffen, um Team-Pgmmierern die Arbeit zu erleichtern! Und gerade in VBA ist auch nicht viel mit Bibliotheken, es sei denn, man nutzt die WinAPI oder gleich VB.Net! Anderenfalls muss man die selbst anlegen, was (vor allem im Rahmen eines größeren Projekts in TeamWork) sehr sinnvoll sein kann (aber nicht zwingend muss).
Hier im Forum dominieren allerdings die EinzelAnfertigungen, quasi auf Zuruf (vor Nutzung des Archivs), weil nahezu jeder VBA-Kundige sich (auch mal) beweisen will, was verständlich ist, aber von den Fragern berücksichtigt wdn sollte!
🙈 🙉 🙊 🐵 Morrn, Luc :-?

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

2 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array übergeben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

2 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread