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"