mehrere Arrays verschmelzen

Forumthread: mehrere Arrays verschmelzen

07.02.2006 18:20:17

Matthias

Liebe Freunde,
wie kann man mehrere Arrays miteinander verschmelzen?
Also vier Arrays in einen ?
Es handelt sich nur um einfache (1D) Arrays!
MfG
Matthias

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: mehrere Arrays verschmelzen

07.02.2006 18:45:30

Nepumuk

Hallo Matthias,
entweder durch umschaufeln in einer Schleife, oder du gibst die Arrays in einer Tabelle aus und liest es wieder ein.

Public Sub test()
    Dim sArray1() As String
    Dim sArray2() As String
    Dim sArray3() As String
    Dim sArray4() As String
    Dim vArrayGesamt As Variant
    Dim intIndex As Integer
    Redim sArray1(1 To 10)
    Redim sArray2(1 To 10)
    Redim sArray3(1 To 10)
    Redim sArray4(1 To 10)
    For intIndex = 1 To 10
        sArray1(intIndex) = "A" & CStr(intIndex)
        sArray2(intIndex) = "B" & CStr(intIndex)
        sArray3(intIndex) = "C" & CStr(intIndex)
        sArray4(intIndex) = "D" & CStr(intIndex)
    Next
    Range(Cells(1, 1), Cells(10, 1)) = WorksheetFunction.Transpose(sArray1)
    Range(Cells(1, 2), Cells(10, 2)) = WorksheetFunction.Transpose(sArray2)
    Range(Cells(1, 3), Cells(10, 3)) = WorksheetFunction.Transpose(sArray3)
    Range(Cells(1, 4), Cells(10, 4)) = WorksheetFunction.Transpose(sArray4)
    sArrayGesamt = WorksheetFunction.Transpose(Range(Cells(1, 1), Cells(10, 4)).Value)
End Sub

Gruß
Nepumuk

HILFE - Kapiere überhaupt nichts

07.02.2006 18:51:00

Matthias

Also. Bin für die eine Function OHNE Tabelle.
Bitte mach mir eine Beispielsfunction, die 5 Arrays aufnehmen kann!
Ich wäre Dir echt dankbar, Nepumuk!
( P.S. : Heisst Du auch in Wirklichkeit "Nepumuk"? )
MfG
Matthias

AW: HILFE - Kapiere überhaupt nichts

07.02.2006 18:57:40

Nepumuk

Hallo Matthias,
1. Dann so:

Public Sub test()
    Dim sArray1() As String
    Dim sArray2() As String
    Dim sArray3() As String
    Dim sArray4() As String
    Dim sArrayGesamt() As String
    Dim intIndex As Integer
    Redim sArray1(1 To 10)
    Redim sArray2(1 To 10)
    Redim sArray3(1 To 10)
    Redim sArray4(1 To 10)
    For intIndex = 1 To 10
        sArray1(intIndex) = "A" & CStr(intIndex)
        sArray2(intIndex) = "B" & CStr(intIndex)
        sArray3(intIndex) = "C" & CStr(intIndex)
        sArray4(intIndex) = "D" & CStr(intIndex)
    Next
    Redim sArrayGesamt(1 To 10, 1 To 4)
    For intIndex = 1 To 10
        sArrayGesamt(intIndex, 1) = sArray1(intIndex)
        sArrayGesamt(intIndex, 2) = sArray2(intIndex)
        sArrayGesamt(intIndex, 3) = sArray3(intIndex)
        sArrayGesamt(intIndex, 4) = sArray4(intIndex)
    Next
End Sub

2. Das verrate ich nicht. :-)
Gruß
Nepumuk

AW: HILFE - Kapiere überhaupt nichts

ransi

HAllo matthias
zumindest bei Frage2 kann ich dir helfen.
Schau mal bei
www.online-excel.de
unter Kontakt.
ransi

AW: HILFE - Kapiere überhaupt nichts

07.02.2006 23:02:48

Nepumuk

Hallo ransi,
ich habe neben diesem mindestens noch einen Vornamen.
Gruß
Max

AW: lass mich raten...

07.02.2006 23:45:07

HansHei

Stefan ?
Gruß
Hans

AW: lass mich raten...

07.02.2006 23:48:52

Nepumuk

Hallo Hans,
daneben. Fängt mit G an und hört mit r auf.
Gruß
Nepumuk

AW: alles klar, Gregor :-)

08.02.2006 00:12:38

HansHei

mach weiter so.
Nacht
Hans

AW: HILFE - Kapiere überhaupt nichts @P.S.

07.02.2006 20:14:28

Uduuh

Hallo,
zumindest hieß der kleine Halbdrache aus Jim Knopf Nepomuk. ;-))
Gruß ausm Pott
Udo

Beliebteste Forumthreads (12 Monate)

Forumthread: mehrere Arrays verschmelzen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread