Thema Datum  Von Nutzer Rating
Antwort
Rot Eigenen Typ an Function übergeben
 13.10.2015 19:34:34 Martin
NotSolved
14.10.2015 11:32:19 BigBen
NotSolved

Ansicht des Beitrags:
Von:
Martin		 Datum:
13.10.2015 19:34:34		 Views:
2041		 Rating:
     
Antwort:
  Ja
Thema:
Eigenen Typ an Function übergeben

Hallo Leute,

die Sub dumpPivot soll als Argument ein Objekt von dem Benutzerdefinierten Typ Pivot_t bekommen. Leider kommt hier immer die Fehlermeldung: "Variable erforderlich - Zuweisung an diesen Ausdruck nicht möglich". Weis jemand was hier noch fehlt?

 

 

Public Type Pivot_t
   column As Integer
   row As Integer
   value As Integer
End Type

Public Function rangeToArray(aRangeAddress As String)
    Set vRange = Range(aRangeAddress)
    
    Dim retArray
    ReDim retArray(1 To vRange.Rows.Count, 1 To vRange.Columns.Count)
    
    For i = 1 To vRange.Rows.Count
        For j = 1 To vRange.Columns.Count
            retArray(i, j) = vRange.Cells(i, j).value
        Next j
    Next i
    
    rangeToArray = retArray
End Function

Public Function getPivot() As Pivot_t
    getPivot.column = -1
    getPivot.row = -1
    getPivot.value = -1
End Function

Public Sub dumpPivot(aPivot As Pivot_t)
    MsgBox ("Geht")
    'Some output/debug messages
End Sub

Public Function Copy_YellowToRed()
    Dim a As Range
    Dim xx As Pivot_t
    Set a = Range("D5:F7")
    
    ret_array = rangeToArray(a.Address)
    
    Set b = Range("L19:K40")
    
    b.value = ret_array

    xx = getPivot()

    

    dumpPivot (xx)  'doesnt work :-(

    MsgBox (xx.value)
    
End Function

 

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:



  • 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 Eigenen Typ an Function übergeben
 13.10.2015 19:34:34 Martin
NotSolved
14.10.2015 11:32:19 BigBen
NotSolved