Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1792to1796
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
1792to1796
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste erstellen mit array?

Liste erstellen mit array?
26.11.2020 11:30:37
John
Hallo zusammen,
ich möchte aus einem Tabellenblatt (Rechnung) das als Rechnungsformular dient einzelne Felder auslesen und in ein weiteres Tabellenblatt (Forderungen) die Werte in die nächste freie Spalte kopiert.
Die Daten
KdNr= Zelle I3
Name= Zelle B3
Strasse= Zelle B4
usw.
Ausgabe dann in Sheet "Forderungen"
Erste freie Zeile Ax, Bx, Cx
usw.
Bin ich da auf dem richtigen Weg dies mit Arrays zu lösen?
Wie würden das aussehen?
Vielen Dank schonmal!
Grüße
John
,

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

Betreff
Datum
Anwender
Anzeige
AW: Liste erstellen mit array?
26.11.2020 11:43:18
Daniel
Hi
so vielleicht 
dim arr(1 to 3)
with Sheets("Rechnung")
arr(1) = .range("I3")
arr(2) = .range("B3")
arr(3) = .Range("B4")
end with
Sheets("Forderungen").Cells(rows.count).Offset(1, 0).resize(1, 3).value = arr
Gruß Daniel
AW: Liste erstellen mit array?
26.11.2020 12:03:34
John
Vielen Dank für die schnelle Antwort.
Ich bekomme einen Laufzeitfehler 1004 "Anwendungs- und ojektdefinierter Fehler" in der Zeile:
Sheets("Forderungen").Cells(Rows.Count).Offset(1, 0).Resize(1, 3).Value = arr
AW: Liste erstellen mit array?
26.11.2020 12:05:39
Herbert_Grom
Hallo John,
probier's mal damit:
Option Base 1
Sub test()
Dim arr(1 To 3, 1)
With Sheets("Rechnung")
arr(1, 1) = .Range("I3")
arr(2, 1) = .Range("B3")
arr(3, 1) = .Range("B4")
End With
iRowIn = Sheets("Forderungen").Cells(Rows.Count, 2).End(xlUp).Row + 1
If iRowIn = 2 Then iRowIn = 1
Sheets("Forderungen").Cells(iRowIn, 2).Resize(3, 1).Value = arr
End Sub
Servus
Anzeige
AW: Liste erstellen mit array?
26.11.2020 12:40:11
John
Hallo Herbert,
vielen Dank, das sieht schon gut aus.
Die Einträge landeten allerdings in Spalte B anstatt Spalte A. Das konnte ich durch folgende Korrektur berichtigen:
Sheets("Forderungen").Cells(iRowIn, 1).Resize(3, 1).Value = arr
Jetzt schreibt er die Daten komplett in Spalte A untereinander (vorher in Spalte B).
Ich möchte aber die Zeile füllen
AW: Liste erstellen mit array?
26.11.2020 12:57:43
Daniel
in einem zweidimesionalen Array ist der erste Index der Zeilen-Index und der zweite Index der Spaltenindex.
du müsstest hier also Zeilen und Spalten tauschen: 
dim arr(1 to 1, 1 to 3)
arr(1, 2) = .Range("B3")
das eindimensionale Array wie von mir ursprünglich verwendet funktionert auch und verhält sich in diesem Fall wie ein zweidimensionales Array mit einer Zeile, nur dass du halt den Zeilenindex nicht angeben musst.
Gruß Daniel
Anzeige
AW: Liste erstellen mit array?
26.11.2020 13:18:07
Herbert_Grom
Dann mach eben Resize(1, 3)
Servus
AW: Liste erstellen mit array?
26.11.2020 13:34:03
John
Das hatte ich versucht, er schreibt die erste Zelle 3x
AW: Liste erstellen mit array?
26.11.2020 13:36:37
John
Danke Daniel, funktioniert jetzt!
AW: Liste erstellen mit array?
26.11.2020 12:33:05
Daniel
sorry, da fehlt der Sprung nach oben, so wie die Spaltennummer:
Sheets("Forderungen").Cells(Rows.Count, 1).End(xlup).Offset(1, 0).Resize(1, 3).Value = arr
Gruß Daniel

304 Forumthreads zu ähnlichen Themen

Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige
Liste deaktivieren, wenn Bedingung erfüllt
Timo

Hallo,
ich habe in der Zelle B13 eine Liste (über Gültigkeit--Liste) eingefügt, wo ein Nutzer zwischen den drei Optionen "Alle", "Erste Hälfte" und "zweite Hälfte" wählen kann. In Zelle B14 befindet sich ebenfalls eine ähnliche Liste auch u.a. mit der Option "Alle".
Jetzt würde ich ger...
23.09.2008 16:08:04
Thread-ID: 1011800
2 Beiträge
Webabfrage aus Liste in Liste
Holger

Hallo,
ich hab mal wieder ein Problem, bei dem ich nicht weiter komme. Hier die Datei:
https://www.herber.de/bbs/user/55676.xls
Aus den Links in Spalte C sollen die in den Spalten D bis J gefragten Werte aus den entsprechenden Webseiten ausgelesen werden. Am besten per Button, den k...
26.09.2008 11:25:00
Thread-ID: 1012552
9 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
Aufbereitung Liste mit Bedingungen
BH5925

Hallo,
anbei habe ich Musterdatei beigefügt mit entsprechender Beschreibung:
https://www.herber.de/bbs/user/59317.xls
Es soll eine große Liste mit Datensätzen so aufbereitet werden, dass Werte aus gleichartige Datensätze (Kriterium die Werte in Spalte A) zusammengefasst sollen nach...
10.02.2009 18:21:46
Thread-ID: 1049256
8 Beiträge
Formel: Wenn bestimmte Werte aus Spalte 1, dann...
andi

Hallo zusammen.
Folgendes Problem stellt sich mir: Ich habe eine Onlineumfrage gemacht. Nun habe ich in einer Spalte Werte zwischen 1 und 6. Diese stehen für verschiedene Studienrichtungen (Psychologie,Bio,Medizin,etc). In der Spalte neben dran habe ich die Werte, wenn in der Umfrage auf d...
21.03.2009 16:54:54
Thread-ID: 1062504
2 Beiträge
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 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
4
6
1
8
9
5
9
7
1
5
4
5
2
4
3
8
3
1
2
2
2
2
2
12
10