Herbers Excel-Forum - das Archiv

Array mit Werten füllen

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
Excel-Beispiele zum Thema "Array mit Werten füllen"
Anzeigen von Werten und Formeln Zellen bei Minuswerten schraffieren
MsgBox mit Werten aus geschlossener Arbeitsmappe Wiederherstellung des alten Zellinhaltes bei unerlaubten Werten
Stempelkarten auswerten Übernahme von Werten mit "x" in eine zweite Tabelle
Mit TextBox-Werten in UserForm rechnen Wahrheitsprüfung einer mit Zellwerten zusammengestzten Formel
Fußballwette auswerten Assistent zum Dialog aufrufen und Eingaben auswerten