Office: Array mit Range aus InputBox befüllen geht nicht

hallo

folgender Code macht einen Fehler.

Warum?

Code:

Die Inputbox liefert einen Range.

Der Range soll in ein Array.

Sicher, es gibt auch andere Wege. Aber hier würde ich gerne wissen, warum das hier nicht geht.

Gruss

:)

 

Hi Barbara,

Code:

 

OK, so geht es. Warum es anders nicht geht, wäre interessant.
Und warum es im Kontrast dazu hier geht:
Code:

Da wird ja genauso ein Range übergeben, oder?

 

Hallo,

wenn du den Unterschied zwischen einem "normalen" Array und einem Datenfeld nicht kennst lies es doch nach ...

Dim meinArray() As Variant

 

(1 To ..., 1 To ...) geht auch anders wie Du Dich sicherlich erinnern kannst *wink.gif*

 

Hallo Marco,

hier im Thread passt es doch --> Barbara --> Sabina --> Frauenschalter !

Merkst du was ? *biggrin.gif*

Sabina

 

Value ist der Schlüssel.
Code:

 

Hi

danke für Eure rege Anteilnahme und interessanten Antworten.

Ihr denkt, dass es an ( ) liegt. OK, mag sein.

Woran denkst Du da bitte? Online-Hilfe?

Mir war bis jetzt diese Unterscheidung nicht bewusst. Auch kenne ich den Ausdruck "normales" Array nicht und was ein "Datenarray" so besonders macht. Außer, dass es eine genaue Größe braucht, wie ich hier erfahren habe.

Und die hat es in meinem Beispiel in Beitrag #1 genauso viel wie in Beispiel in #3. Nur, dass es dort funktioniert. Trotz ( ).

Gut, Harry, mit .Value funktioniert es. Nur: Warum? Warum funktioniert es in #3 auch ohne .Value?

Barbara

 

Datenfeld und Array ist dassselbe oder mit anderen Worten Flotter Feger verbreitet Fake_News und kennt die selten gebrauchte deutsche Übersetzung von Array nicht
Arrays - Das VBA-Tutorial

Ansonsten, Stichworte sind Default Member und implizite Typenkonvertierung.
https://rubberduckvba.wordpress.com/...fault-members/

 

Hallo Barbara

Interessant aber auch die Reihenfolge der Auswertung/Weiterverarbeitung

PHP:

         Option Explicit

Sub Versuch()
Dim meinArray As Variant

Set meinArray = Application.InputBox("Bitte wähle Bereich", Type:=8)
Debug.Print "ForEach meinArray mit Set ist Type: "; TypeName(meinArray)
Call InhaltArrayForEach(meinArray)

meinArray = Application.InputBox("Bitte wähle Bereich", Type:=8)
Debug.Print "ForEach meinArray ohne Set ist Type: "; TypeName(meinArray)
Call InhaltArrayForEach(meinArray)

meinArray = Application.InputBox("Bitte wähle Bereich", Type:=8)
Debug.Print "For meinArray ohne Set ist Type: "; TypeName(meinArray)
Call InhaltArrayFor(meinArray)

End Sub

Sub InhaltArrayForEach(var As Variant)
Dim x As Variant

For Each x In var
Debug.Print "Type ist :"; TypeName(x), "Inhalt :"; x
Next
Debug.Print "------------------------------------------"

End Sub

Sub InhaltArrayFor(var As Variant)

If TypeName(var) = "Range" Then Exit Sub

Dim i As Long, k As Long

For i = LBound(var, 1) To UBound(var, 1)
For k = LBound(var, 2) To UBound(var, 2)

Debug.Print "Type ist :"; TypeName(var), "Inhalt :"; var(i, k)

Next
Next
Debug.Print "------------------------------------------"

End Sub


 

Hallo Barbara,

Falsch von mir.
Ohne Value funktioniert es auch.

Code:

 

Ok, um die Verwirrung zu erhöhen.

Beide Varianten funktionieren

Code:

Code:

 

Sowie.
Code:

Code:

Weil 'as Variant' Default ist.

 

Ja und Value ist auch default wenn man sonst nichts angibt.

 

Hallo,

darauf sollte man nicht vertrauen. Siehe z.B. hier.