Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Arrays verschmelzen

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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ß aus’m Pott
Udo

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige