Thema Datum  Von Nutzer Rating
Antwort
Rot Array (Benutzderdefinierten Datentyp) in Funktion übergeben
 22.02.2012 15:03:38 Sophie
NotSolved
22.02.2012 19:41:32 Till
NotSolved
23.02.2012 08:42:19 Sophie
NotSolved
23.02.2012 10:54:48 Till
NotSolved
23.02.2012 12:37:21 Gast27885
NotSolved
24.02.2012 00:38:06 Till
NotSolved

Ansicht des Beitrags:
Von:
Sophie		 Datum:
22.02.2012 15:03:38		 Views:
2859		 Rating:
     
Antwort:
  Ja
Thema:
Array (Benutzderdefinierten Datentyp) in Funktion übergeben
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Hallo!
 
Ich bin zienlich neu mit VBA. Nun wollte ich eigentlich nur eine ganz einfache Funktion zum Aufsummieren und den zugehörigen Aufruf in VBA schreiben.
Dabei trat leider ein Problem mit benutzerdefinierten Datentypen auf.
 
    Function summe(summand As Variant) As Variant
    Dim lsg(2010 To 2060) As Variant
    Dim i, j As Integer
    Erase lsg
    For j = 2010 To 2060
         For i = 1 To 30
             lsg(j) = summand(i, j) + lsg(j)
         Next i
    Next j
    summe = lsg
    End Function
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Die Funktion summe wird dann im sub-Programm folgendermaßen aufgerufen:
 
    Sub bla()
    Dim a(2010 To 2060) As Double
    Dim Vara As Variant
    Dim Varb As Variant
     
    Public Type blub
              b As Double
    end type
    Public test(1 To 30, 2010 To 2060) As blub
 
    Vara = a
    Varb = test.b
    Vara = summe(Varb)
    End Sub
 
 
(Ich habe gelesen, die Umdefinierung der Arrays als Variant sei nötig.)
Daraufhin erhalte ich die Meldung 'Fehler beim Kompilieren: Ungültiger Bezeichner' für Varb = test.b.
Für 'normale', d.h. nicht-benutzerdefinierte Variablen hat die Ausführung bereits geklappt...War das nur Zufall bzw gibt es etwas was ich noch beachten muss?
 
Vielen Dank schonmal für die Hilfe!
 
Sophie

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Array (Benutzderdefinierten Datentyp) in Funktion übergeben
 22.02.2012 15:03:38 Sophie
NotSolved
22.02.2012 19:41:32 Till
NotSolved
23.02.2012 08:42:19 Sophie
NotSolved
23.02.2012 10:54:48 Till
NotSolved
23.02.2012 12:37:21 Gast27885
NotSolved
24.02.2012 00:38:06 Till
NotSolved