Microsoft Excel

Herbers Excel/VBA-Archiv

Datenfeld mit Elementen füllen

Betrifft: Datenfeld mit Elementen füllen von: Rudi
Geschrieben am: 18.08.2004 14:01:14

Hallo zusammen

Ich habe da ein klitzekleines Problem:

Ich habe auf einem Arbeitsblatt einen Namen ("Länder") definiert aus 1 Spalte und 30 Zeilen. Nun möchte ich im VBA die Einträge dieses Namens (Datentyp String) in ein Datenfeld ("df") übertragen. Der aktuelle Code geht aber nicht.

Auszug aus Makro:
Dim df() As String
...
Application.Goto reference:="Länder"
ReDim df(Selection.Rows.Count)

For y = 1 To Selection.Rows.Count
df(y) = Selection.Item(y)
Next
...

Was mache ich falsch? Vielen Dank für eure Hilfe.

Rudi

  


Betrifft: AW: Datenfeld mit Elementen füllen von: Uwe Küstner
Geschrieben am: 18.08.2004 14:10:40

Hallo Rudi,

probiers mal so:

Dim df() As String
Dim y As Integer

With Range("Länder")
ReDim df(.Rows.Count)
For y = 1 To UBound(df)
df(y) = .Cells(y)
Next
End With

Gruß Uwe


  


Betrifft: AW: Datenfeld mit Elementen füllen von: Rudi
Geschrieben am: 18.08.2004 14:17:27

Hallo Uwe

Funktioniert bestens. Vielen Dank!

Gruss Rudi


 

Beiträge aus den Excel-Beispielen zum Thema "Datenfeld mit Elementen füllen"