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
1408to1412
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
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sub-Array to Range - möglich?

Sub-Array to Range - möglich?
14.02.2015 20:32:47
Michael

Hallo ans Forum,
weiss jemand, ob es möglich ist, Teil eines Arrays in einen Range zu schreiben? Der Teil des Arrays ist dabei nicht in der oberen linke Ecke angesiedelt...
Man stelle sich ein Array von 5x5 vor. Kann ich auf irgendeine Weise so auf das Array zugreifen, dass ich das "innere Quadrat" von 3x3 Elementen auf einen Schlag in ein Range schreiben kann?
(Quasi "Range(ZelleLinksOben,ZelleRechtsUnten)" fuer Arrays - gibt es sowas?)
Freue mich auf Eure Ideen und Gedanken dazu.
Vielen Dank
Michael

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sub-Array to Range - möglich?
14.02.2015 20:52:04
Daniel
Hi
ich kenne keine Funktion die sowas direkt macht.
am sinnvollsten ist hier wohl ein leeres 3x3-Array zu erstellen, die Daten per Schleife zu übertragen und dann dieses Array in die Zellen zu schreiben.
Schleifen mit Arrays sind sehr schnell, daher sollte man sich nicht scheuen sowas selbst zu programmieren.
Gruß Daniel

AW: Sub-Array to Range - möglich?
14.02.2015 21:00:05
Michael
Hallo Daniel,
danke erst einmal fuer Deine Antwort. Ich selbst habe auch schon daran gedacht per Schleife das Array in ein anderes umzuschreiben. Dabei nervt aber dass man offenbar jedes Element einzeln uebertragen muss. Bei so einem kleinen Array ist das kein Problem, aber wenn ich eine grosse Tabelle in das Array geladen habe und ich einen Teilbereich daraus woanders hinkopieren will ist das schon eine andere Sache denke ich. Ich frage mich daher ob es am Ende dann vielleicht effizienter ist, die Koordinaten des Sub-Arrays zu verwenden, um auf den Quell-Range zuzugreifen und dann per Copy-PasteSpecial in den Zielbereich zu schreiben. Somit kann man wenigstens viele Zellen auf einen Streich schreiben. Was meinst Du?
Michael

Anzeige
AW: Sub-Array to Range - möglich?
14.02.2015 21:09:24
Daniel
HI
das hängt immer davon ab, was du genau machen willst.
Wenn die Daten in einer Exceltabelle liegen, ist es natürlich sinnvoller auf einen Teilbereich dieser Tabelle zuzugreifen.
Wenn die Daten aber in so einem echten Array vorliegen, dann sollte man solche Schleifen nicht scheuen.
Schleifen über reine Wert-Arrays sind sehr schnell, meisten schneller als bereits vorhandene VBA- oder Excelfunktionen.
so ist beispielsweise: 
Arr2 = Worksheetfunction.Transpose(Arr1)

langsamer als: 
Redim Arr2(1 to Uboud(Arr1, 2), 1 To Ubound(Arr1, 1))
For x = 1 to Ubound(Arr1)
For y = 1 to Ubound(Arr1)
Arr2(y, x) = Arr1(x, y)
Next
Next
und hat zudem noch ein Mengenproblem, dh die Schleife verarbeitet wesentlich grössere Arrays problemlos als die Transpose-Funktion.
Gruß Daniel

Anzeige
AW: Sub-Array to Range - möglich?
14.02.2015 21:22:38
Michael
Hmmm, Ok...
In meinem Fall versuche ich gerade VBA-Code zu optimieren, indem ich statt in einem Range nach passenden Daten in einem Array nach passenden Daten suche und somit Zugriffe auf das Objektmodell minimiere. Zuvor habe ich per Schleife im Rangebereich Spaltenkoepfe durchsucht und bei passenden Eintraegen dann die Spalte des Rangebereiches woanders hinkopiert. Nun lese ich den gesamten Range vorab in ein Array ein und suche innerhalb des Arrays, was ja schon mal besser ist. Hatte halt nur die Befuerchtung, dass ich das Plus an Performance wieder verschenke wenn ich nun bei passenem Eintrag per Sub-Routine erst einmal die gesamte Spalte des Ranges Zelle fuer Zelle in ein Sub-Array schreiben muss bevor ich es in es in den Zielbereich schreibe. Laut Deinem letztem Post ist diese Angst aber eher unbegruendet wenn ich das recht verstanden habe ich werde am Ende immernoch schneller sein als vorher, richtig?
Michael

Anzeige
AW: Sub-Array to Range - möglich?
14.02.2015 21:34:21
ransi
HAllo Michael,
  • ...erst einmal die gesamte Spalte des Ranges Zelle fuer Zelle in ein Sub-Array schreiben muss...

    • Genau das mach man bei einem Array ja nicht.
    Da schreibt man ganze Zellbereich auf einmal in ein Array.
    ransi

    AW: Sub-Array to Range - möglich?
    14.02.2015 21:43:34
    Michael
    Hallo Ransi,
    habe mich leider missverstaendlich ausgedrueckt: Ich meinte, wenn ich einen passenden Eintrag im Array-Spaltenkopf gefunden habe, braucht die gesamte Array-Spalte um sie woanders hinzukopieren. Ich muss dann also die gesamte Array-Spalte Zeile per Zeile in ein anderes Array kopieren. Richtig? Wenn wir nun von ca. 300 Zeilen sprechen, die pro passendem Eintrag transferiert werden muessen und durchschnittlich vielleicht 80 passenden Eintraegen insgesamt, bin ich dann immernoch besser dran im Array zu suchen?
    Michael

    Anzeige
    AW: Sub-Array to Range - möglich?
    14.02.2015 22:05:47
    ransi
    Hallo,
    Ich muss dann also die gesamte Array-Spalte Zeile per Zeile in ein anderes Array kopieren.
    Nö, das geht z.B. recht gut mit worksheetfunction.Index()
    Die nimmt die gesamte Spalte.
    Das Umschaufeln in ein anderes Array geht aber trotzdem schneller.
    Schau es dir mal an:
    Ein Array("A1:M100000") wird auf einmal eingelesen.
    Daraus wird der Bereich "B3:L80000" extrahiert und ausgegeben.
    Option Explicit

    Sub machs()
        Dim arr As Variant
        Dim out As Variant
        Dim dblT As Double
        arr = Range("A1:M100000")
        dblT = Timer
        out = extractArray(arr, 3, 80000, 2, 12) 'B3:L80000 Umschaufeln und
        MsgBox Timer - dblT
        'Ausgeben
        Range("P1").Resize(UBound(out) - LBound(out) + 1, UBound(out, 2) - LBound(out, 2) + 1) = out
    End Sub


    Function extractArray(vntArr As Variant, startZeile As Long, endeZeile As Long, startSpalte As Integer, endeSpalte As Integer) As Variant
        Dim L As Long
        Dim I As Integer
        Redim vnttmp(startZeile To endeZeile, startSpalte To endeSpalte)
        For L = startZeile To endeZeile
            For I = startSpalte To endeSpalte
                vnttmp(L, I) = vntArr(L, I)
            Next
        Next
        extractArray = vnttmp
    End Function



    
DAs Umschaufeln dauert auf meinem Erbsenzähler noch nicht einmal 0,5 Sekunden.
    
ransi
    Anzeige
    AW: Sub-Array to Range - möglich?
    14.02.2015 22:31:16
    Michael
    Super, danke Dir Ransi,
    das war fuer mich eine wichtige Entscheidungshilfe: Umschaufeln in ein anderes Array ist also kein Problem. Werde somit diese Loesung verfolgen und mich morgen gleich an die Programmierung machen. Vielen Dank noch einmal an Ransi und an Daniel! :-)
    Gruss
    Michael

    303 Forumthreads zu ähnlichen Themen

    Array in Tabelle schreiben
    eres

    Schönen Gruß in mein Lieblings-Forum,
    ich lese sequentiell aus einer riesigen csv-Datei die ersten 50.000 Sätze in ein Array. Nach dem Einlesen möchte ich die Werte in ein sheet schreiben.
    Dim HilfsArray(1 To 50000) As String
    Dim i as long
    Open Input_File For Input As #1
    D...
    08.04.2009 14:15:07
    Thread-ID: 1067735
    5 Beiträge
    Anzeige
    per VBA in MySQL-Tabelle schreiben
    André

    Moin,
    ich hätte da mal wieder ein Problem.
    Daten aus einer MySQL-Datenbank bekomme ich problemlos in meine Excel-Tabellen. Dies bekomme ich auch per VBA gesteuert. Hierzu habe ich eine ODBC-Verbindung erstellt. In der Excel-Tabelle erstelle ich dann eine neue Datenverbindung, die ich da...
    20.04.2010 14:29:30
    Thread-ID: 1152882
    5 Beiträge
    array to range, range to array
    Andi

    Hallo,
    Opa Helmut auf dem Fahrrad:
    For i = 1 To UBound(arr)
    Cells(1, i) = arr(i)
    Next 'i
    Raumschiff Enterprise
    Range(Cells(1, 1), Cells(1, UBound(arr))) = arr
    Ich favorisiere die Methode Raumschiff Enterprise, aber wenn ein arr Speicherplatz mit 1000 Zeichen belegt...
    21.12.2010 18:50:18
    Thread-ID: 1192391
    12 Beiträge
    Anzeige
    VBA, Werte anhand Koordinaten in Tabelle schreiben
    Christian

    Hallo, ich hab ein kleines Problemchen welches ich gerne mittels VBA lösen möchte. Leider komme ich auch nach einiger Suche nicht mal ansatzweise auf eine Lösung.
    Das ganze sieht so aus:
    Ich habe 2 Tabellen:
    Tabelle 1 hat 3 Spalten z.b. so:
    Pos | Blatt | Wert
    1 | 1...
    01.09.2011 19:10:08
    Thread-ID: 1228358
    3 Beiträge
    Per VBA Werte in eine Datei schreiben
    Tobias

    Hallo Leute,
    ich möchte für den Brötchenverkauf in der Schule eine Statistik erstelle.
    Jeden Tag soll , bei klicken des Bottons, aus der Excel Tabelle, die Anzahl, die Produktnummer, der Preis und die Kategorie in die Tabelle "Daten" geschrieben werden.
    Mit folgendem Makro ist es...
    09.02.2014 16:58:33
    Thread-ID: 1348795
    5 Beiträge
    Array mit If-Anweisung
    Moritz

    Hallo alle zusammen,
    ich beschäftige mich seit ein paar Tagen mit VBA. Ich habe momentan eine Arbeitsmappe die ich dafür gebrauche um eine Liste auszulesen und bestimmte daten dann immer wieder neu erstellten Worksheets zuzuweisen.
    als erstes habe ich es ganz statisch nur mit einem work...
    29.10.2014 10:23:53
    Thread-ID: 1389301
    4 Beiträge
    VBA Kommentar aus Bereich einer Tabelle schreiben
    Timonski

    Hallo,
    ich will von einem anderen Tabellenblatt, einen bestimmten Bereich z.B. A1:C20 in eine bestimmte Zelle (hier A1) als Kommentar reinschreiben...
    hab auch schon mal was gefunden und was geändert, aber der Bereich bekomm ich nicht hin :-)
    Sub MyComment() Dim myCom As Comment Dim...
    11.03.2015 16:29:49
    Thread-ID: 1414373
    11 Beiträge
    Array auf einmal in Tabellenblatt schreiben
    Bonduca01

    Hallo liebes Forum,
    ich versuche schon den ganzen Vormittag lang einen Array auf einmal in ein Tabellenblatt zu schreiben.
    Mein Array ist folgendermaßen deklariert: Dim Array(500,4)as Variant.Mein Array füllt sich über eine Schleife, beginnend bei array(3,4). Die Werte werden nicht dire...
    24.09.2015 11:47:12
    Thread-ID: 1449170
    3 Beiträge

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    4
    4
    4
    11
    17
    2
    4
    3
    10
    2
    3
    1
    9
    2
    2
    1
    6
    10
    6
    1
    2
    5
    1
    21
    6