Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schreiben Von Arrays in die Tabelle - Verwirrung

Schreiben Von Arrays in die Tabelle - Verwirrung
03.09.2014 15:19:24
Robert
Hallo zusammen,
ich versuche grade mich den arrays ein wenig anzunähern, und stoße dabei immer wieder auf Hürden.
z.B. Beim Wiedereinfügen von Arraywerten in eine Range. 
rngZiel = arrWerte

funktioniert nicht. Es gibt zwar keine Fehlermeldung, aber Werte werden auch nicht eingefügt.
rngZiel.Select
Selection = arrWerte

Funktioniert wunderbar!
Und jetzt bin ich irgendwie mit meinem Latein am Ende und die Verwirrung ist groß.
Kompletter Code: 
Set rngOutputPartNo = .Range(.Cells(3, 4), .Cells(.UsedRange.SpecialCells(xlCellTypeLastCell). _
Row, 4))
arrOutputPartNo = rngOutputPartNo
For x = LBound(arrOutputPartNo) To UBound(arrOutputPartNo)
arrOutputPartNo(x, 1) = Left(arrOutputPartNo(x, 1), 12)
Next x
rngOutputPartNo = arrOutputPartNo

Es werden Teilenummern auf die ersten 12 Stellen gekürzt. Hatte den Code (vorher eine Schleife über alle Zeilen, ohne Array) als meinen ersten Umbauversuch ausgesucht.
Hoffe auf Hilfe!
viele Grüße
Robert

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schreiben Von Arrays in die Tabelle - Verwirrung
03.09.2014 15:29:15
Rudi
Hallo,
der Code ist OK.
Gruß
Rudi

AW: Schreiben Von Arrays in die Tabelle - Verwirrung
03.09.2014 15:29:44
Daniel
Hi
eines der grossen Mysterien von VBA ist, dass bei der Verwendung von Select manchmal Dinge tut und automatsich ergeänzt, die man ohne Select selber hinschreiben muss (insbesonder wer schonmal bei Grafikobjekten versucht hat, Select-frei zu arbeiten weiss was ich meine)
Grundsätzlich zu deinem Problem:
rngZiel ist ein Range-Objekt und Objekte zeichnen sich dadurch aus, dass sie nicht nur einen Wert haben sondern viele viele Eigenschaften (eine Range bespw die Zellwerte, die Formeln, die Hintergrundfarben, die Rahmenfarben, die Zahlenformate).
Wenn wir nun mit den Objekten arbeiten und nicht ganze Objekt verwenden sondern nur eine der vielen Eigenschaften, dann sollten wir VBA auch mitteilen, welche dieser Eigenschaften wir verwenden wollen und es nicht der VBA-Automatik überlassen sich eine der vielen Eigenschaften auszusuchen:
heißt konkrekt:
rngZiel.Value = arrWerte
Set rngOutputPartNo = .Range(.Cells(3, 4), .Cells(.UsedRange.SpecialCells(xlCellTypeLastCell).  _
_
Row, 4))
arrOutputPartNo = rngOutputPartNo.value
For x = LBound(arrOutputPartNo) To UBound(arrOutputPartNo)
arrOutputPartNo(x, 1) = Left(arrOutputPartNo(x, 1), 12)
Next x
rngOutputPartNo.value = arrOutputPartNo
Gruß Daniel

Anzeige
AW: Schreiben Von Arrays in die Tabelle - Verwirrung
03.09.2014 15:58:18
Rudi
Hallo,
rngZiel.Value = arrWerte
das ist in dem Fall überflüssig, da die Default-Eigenschaft des Range-Objekts .Value ist.
Schadet aber auch nicht,
Wie schon gesagt, läuft der Code bei mir auch ohne .Value.
Gruß
Rudi

AW: Schreiben Von Arrays in die Tabelle - Verwirrung
03.09.2014 20:00:37
Luschi
Hallo Rudi,
ich bin ja ein Verfechter der Vollständigkeit im Vba-Code, also auch die Eigenschaften/Methoden nennen, die von Hause aus als Standard definiert sind.
Da ich z.Z. wieder verstärkt VSTO mit C# & VB.Net mache, um Office-Addins zu erstellen, bin ich dazu auch gezwungen, da sonst der Compiler dumm tut.
Außerdem läßt sich der Vba-Code dann nach einer gewissen Zeit doch leichter nachvollziehbar kontrollieren.
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Schreiben Von Arrays in die Tabelle - Verwirrung
05.09.2014 12:42:33
Robert
Hallo nochmal.
Um die Verwirrung komplett zu machen:
zielrng = arrWerte funktioniert nicht
range(zielrng.address) = arrWerte funktioniert
zielrng.value = arrWerte funktioniert
Ich nehm das jetzt einfach so hin.
Vielen Dank euch!

AW: Schreiben Von Arrays in die Tabelle - Verwirrung
05.09.2014 13:28:34
Daniel
Hi
die automatische Verwendung der Default-Eigenschaft des Objektes funktioniert nur, wenn VBA den Objektyp eindeutig erkennen kann.
Dazu muss aber der Variablen im Deklarationsteil ein eindeutiger Objekttyp zugewiesen worden sein.
Bei einer Variant-Variablen oder wenn du undeklarierte Variablen einsetzt (diese sind dann immer vom Typ Variant) funktioniert diese Objekttyperkennung nicht und die Default-Eigenschaft kann nicht eingesetzt werden.
Dh. bei Variantvariablen gibt es keine Default-Eigenschaft deswegen muss man bei ihnen immer die zu verwendende Eigenschaft angeben:
dh: 
Dim zielrng as Range
zielrng = arrWerte '-> funktioniert, .value wird bei Range-Objekten automatisch ergänzt

Dim zielrng '(oder deklaration fehlt)
zielrng.Value = arrWerte '-> bei Variant-Variablen ist die Angabe der Eigenschaft erforderlich

range(zielrng.address) = arrWerte '-> funktioniert, weil über den ausdruck RANGE der Objektyp klar definiert ist und die Default-Eigenschaft eingesezt werden kann
also nicht verwirrend, sondern eingentlich ganz logisch.
Gruß Daniel

Anzeige
AW: Schreiben Von Arrays in die Tabelle - Verwirrung
05.09.2014 13:40:21
Robert
Wäre logisch, allerdings habe ich alle Ranges als eben solche deklariert. und zwar nicht in der Sub, sondern global direkt nach Option Explicit
Dim rngOutputPartNo, rngOutputVolumes, rngOutputRevEur, rngOutputRevCom, rngOutputRevDoc As Range

AW: Schreiben Von Arrays in die Tabelle - Verwirrung
05.09.2014 18:05:11
Luschi
Hallo Robert,
mit 'Dim' ist die Variable nur in dem Modul/Klassenmodul bekannt, in dem sie definiert wurde.
Noch ein altbekannter Irrtum: 

Dim rngOutputPartNo, rngOutputVolumes, rngOutputRevEur, rngOutputRevCom, rngOutputRevDoc As Range
Bei dieser Definition ist NUR!!! die Variable 'rngOutputRevDoc' vom Typ 'Range' - der Rest ist 'Variant'.
Um Variablen 'GLOBAL' bekannt zu machen , muß man 'Public' statt 'Dim' benutzen.
Gruß von Luschi
ausw klein-Paris

Anzeige
AW: Schreiben Von Arrays in die Tabelle - Verwirrung
08.09.2014 09:02:39
Robert
Hallo Luschi,
Das mit dem Public vs. Dim war mir bekannt, hatte eben die Variablen am Anfang von ThisWorkbook definiert (ich versuche wenn möglich immer alles in ThisWorkbook abzuhandeln)
Die Zweite Sache allerdings, tja da hast du mich erwischt.
Ich muss also für jede Variable as Range schreiben?
Gibt es da nicht eine Möglichkeit mehrere Variablen gleichzeitig zu definieren?
Oder vllt sogar eine Funktion, die die Variablen je nach Namen automatisch definiert?
also z.B. rngZelle wird automatisch zu Range, lngZähler automatisch Long und intSpalte automatisch Integer?
Wie geht ihr vor, wenn ihr ein großes Projekt habt mit 100 Variablen oder ähnlichem?
Viele Grüße
Robert

Anzeige
AW: Schreiben Von Arrays in die Tabelle - Verwirrung
08.09.2014 10:09:57
Daniel
Hi
Ja, du musst jede Variable einzeln ihren Typ zuweisen.
Du kannst zwar in einer Zeile mehrere Variablen deklarieren, aber nach jeder muss mit AS der Typ folgen.
Was andererseits den Vorteil hat, dass du in einer Zeile unterschiedliche Typen zuweisen kannst.
Es gibt zwar die Möglichkeit mit Abkürzungen zu arbeiten:
dim DeinText$ anstelle von dim DeinText as String
Aber wenn man mit den Abkürzungen nicht Vertraut ist, macht es die Deklaration nur schwerer lesbar.
Gruß Daniel

Rudi und Luschi liegen wohl richtig, denn ...
08.09.2014 02:39:45
Luc:-?
…die Default-Eigenschaft .Value ist tatsächlich idR überflüssig, Robert!
Der eigentl Grund wird wohl eine nicht ausreichende Deklarierung der Variablen rngZiel sein, wenn gar nichts passiert. Wird nur der 1.Wert von arrWerte oder mehrere, aber nicht alle, bzw der 1. mehrfach ausgegeben, repräsentiert rngZiel nicht den vollständigen Bereich bzw die Richtung von arrWerte stimmt nicht mit der von rngZiel überein (speziell bei Vektoren, sonst ggf verdreht).
Ein weiterer Grund für die NichtFkt kann sein, dass arrWerte eine nicht-abbildbare Form hat, was mir hier aber wenig wahrscheinlich scheint, da die anderen Varianten ja fktionieren.
Gruß, Luc :-?
Anzeige

299 Forumthreads zu ähnlichen Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Werte in anderes Tabellenblatt übertragen
Bibo

Hallo liebe EXCEL-Freunde,
ich habe in der Online-Suche leider kein Makro gefunden, das ich mit meinen minimalen VBA-Kenntnissen hätte selbständig auf meine Problematik anpassen können und bitte Euch deshalb um Eure Hilfe.
In das Tabellenblatt "Kommission" der Beispielmappe, das als Har...
31.08.2008 17:54:00
Thread-ID: 1006231
4 Beiträge
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Anzeige
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Anzeige

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
2
7
3
5
8
2
5
3
1
4
4
11
2
15
2
2
13
2
5
2
2
3
3
2
11