Array mit Werten füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Array mit Werten füllen von: Christoph
Geschrieben am: 08.04.2005 13:06:27

Hi Leute,

ich möchte einen Array F1 mit Werten aus dem Bereich X6 - X25 im Arbeitsblatt Arbeitszeiten füllen und die Werte über eine MsgBox ausgeben.
Habt ihr ne Idee?

Gruß
Christoph

Bild


Betrifft: AW: Array mit Werten füllen von: Boris
Geschrieben am: 08.04.2005 13:28:24

Hi Christoph,

z.B. so:

Option Explicit

Sub array_fuellen_und_ausgeben()
Dim F1 As Variant
Dim str As String
Dim i As Integer
F1 = [x6:x25]
For i = LBound(F1) To UBound(F1)
    str = str & Application.Index(F1, i, 1) & Chr(10)
Next i
MsgBox str, , "Ausgabe..."
End Sub


Grüße Boris


Bild


Betrifft: AW: Array mit Werten füllen von: Christoph
Geschrieben am: 08.04.2005 13:41:15

Supi dank dir.

Kann ich die Schaltfläche auch auf ein anderes Tabellenblatt legen oder muß ich dazu den Code noch ändern?


Bild


Betrifft: Einfahc den Blattnamen mit angeben... von: Boris
Geschrieben am: 08.04.2005 15:09:17

Hi Christoph,

Option Explicit

Sub array_fuellen_und_ausgeben()
Dim F1 As Variant
Dim str As String
Dim i As Integer
F1 = [Tabelle1!x6:x25]
For i = LBound(F1) To UBound(F1)
    str = str & Application.Index(F1, i, 1) & Chr(10)
Next i
MsgBox str, , "Ausgabe..."
End Sub


Grüße Boris


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Array mit Werten füllen"