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

Array füllen

Array füllen
promsn
Hallo,
gibt es eine Möglichkeit das die Werte die in das Array geschrieben werden sollen, immer an die nächste Frei Position geschrieben werden?
Mein Problem ist das ich RecordSet habe welches mir die Anzahl der benötigten Zeilen ausgibt und somit ich die größe des Arrays bestimme. Beim ersten Durchlauf der for Schleife klappt das Prima. Da das Programm aber erneut in die Schleife muss beginnt es wieder bei 0 und löscht mir den ersten Eintrag und die folgende Einträge.
Hier mein Code:
rs.MoveFirst
For iView = 0 To rs.RecordCount - 1
ArrOBST(iView, 0) = iTab
ArrOBST(iView, 1) = rs!Distance
ArrOBST(iView, 2) = rs!Elevation
If TabStrip1.Value = ArrOBST(iView, 0) Then
ListView1.ListItems.Add , , ArrOBST(iView, 1)
End If
rs.MoveNext
Next 'iView
baue Dir einen Zähler ein...
28.06.2010 15:10:57
Tino
Hallo,
der sich die letzte Position merkt und
mit jedem Eintrag addierst Du eins zum Zähler hinzu.
Gruß Tino
AW: baue Dir einen Zähler ein...
28.06.2010 15:20:55
promsn
Hi,
dann bräuchte ich als noch eine Spalte?
VG
AW: baue Dir einen Zähler ein...
28.06.2010 15:40:22
Tino
Hallo,
nee, einfach eine Variable im Kopf definieren und diese Anfang oder/und am Ende auf 0 setzen.
Je nachdem wie Dein Array Dimensioniert ist,
muss die Addition vor oder nach dem füllen des Array stattfinden.
Nur ein Beispiel! 
Dim HilfsZaehler As Long
Sub Start()
HilfsZaehler = 0
Call Beispiel
Call Beispiel2
HilfsZaehler = 0
End Sub
Sub Beispiel()
ArrOBST(HilfsZaehler, 0) = ITab
ArrOBST(HilfsZaehler, 1) = rs!Distance
ArrOBST(HilfsZaehler, 2) = rs!Elevation
HilfsZaehler = HilfsZaehler + 1
End Sub
Sub Beispiel2()
ArrOBST(HilfsZaehler, 0) = ITab
ArrOBST(HilfsZaehler, 1) = rs!Distance
ArrOBST(HilfsZaehler, 2) = rs!Elevation
HilfsZaehler = HilfsZaehler + 1
End Sub
Gruß Tino
Anzeige
AW: baue Dir einen Zähler ein...
28.06.2010 16:00:12
promsn
Hi,
okay. Ich hatte es genau so :). Nur mit einer Spalte wo ich den Hilfszähler ablege.
Kennst Du Dich auch mit Listview aus?
VG
Listview
28.06.2010 16:04:33
Tino
Hallo,
kommt darauf an, ein bar Kenntnisse habe ich.
Um was geht es?
Gruß Tino
AW: Listview
28.06.2010 16:11:23
promsn
Der Code zum füllen des Arrays steht in einer Private Sub ComboBox1_Change(). D.h. jedes mal wenn sich der Wert in der ComboBox ändert startet er den Code. Der funktioniert jetzt Prima. Auch das füllen der Listview klappt bei der ersten Eingabe in der ComoBox und die Arrays steht ganz oben. Jedoch wenn ich dann den Wert in der Combo ändere stehen die Werte ganz unten und dazwischen sind mehrere Zeilen nicht gefüllt. Auch ein ListView1.ListItems.Clear hilft da nicht.
Anzeige
AW: Listview
28.06.2010 16:35:53
Tino
Hallo,
ich denke das Dein Array beim zweiten Durchlauf nicht entsprechend gefüllt wird.
Mach doch mal an der entsprechenden stelle ein Haltepunkt und schau was im Array steht.
Gruß Tino
AW: Listview
29.06.2010 07:56:14
promsn
Hab ich schon. Es wird alles Richtig abgelegt. Er Durchläuft die Schleife nur so oft wieviele rs.recordcount bringt. Aber wie gesagt, es sind immer viele Leerzeilen davor. Wenn ich dann in meinem Tabs hin und her gehe im Sub TapStrip1.Change () den gleichen Code habe zum Füllen der Felder und Listview, besteht das Problem nicht...
hier ein Beispiel mit Listview
29.06.2010 11:00:47
Tino
Hallo,
habe Dir mal ein Beispiel aufgebaut.
Mehr kann ich auch nicht ohne eine Beispieldatei von Dir.
Entpacke die zip Datei und starte die Datei Abfrage.xls
https://www.herber.de/bbs/user/70320.zip
Gruß Tino
Anzeige
AW: hier ein Beispiel mit Listview
29.06.2010 12:19:37
promsn
Hi,
Super. Du hast mir echt geholfe. Der Fehler lag in meinem TapStripChange. Aber an von Deinem Code konnte ich den Fehler finden.
Jedoch komme ich nicht ganz so klar mit Deinem Code. Wie füllst man die zweite Spalte mit einem Array wert?
VG
AW: hier ein Beispiel mit Listview
29.06.2010 12:40:06
Tino
Hallo,
Listview1.ListItems(1).SubItems(1) = "Spalte 2"
Listview1.ListItems(1).SubItems(2) = "Spalte 3"
ListItems ist die Zeile und SubItems die Spalte,
wobei ListItems schon die erste Spalte füllt durch ListItems.Add... .
Gruß Tino
AW: hier ein Beispiel mit Listview
29.06.2010 12:50:14
promsn
Hi,
ich habe es jetzt so gelöst:
With ListView1
With .ListItems.Add(Text:=ArrOBST(j, 1))
.SubItems(1) = ArrOBST(j, 2)
End With
.Sorted = True ' Sortierte Anzeige
.SortKey = 0 ' Sortierung nach erster Spalte
.SortOrder = lvwAscending ' Aufsteigende Sortierung
End With
Das funktioniert auch soweit. Sobald ich jedoch die Sort nutze habe ich bei klicken auf einen Tab immer im ersten Tap im Listview in der ersten Zeile nichts drin stehen. Bei den anderen Tabs klappt das Prima. Wenn ich das Sort ausschalte passt alles, nur halt nicht sortiert.
VG
Anzeige
AW: hier ein Beispiel mit Listview
29.06.2010 13:04:52
promsn
Hi,
ich noch mal. Fehler gefunden (leeres array). Habe jedoch einen anderen. Es werden alle Tabs sortiert außer das erste.
AW: hier ein Beispiel mit Listview
29.06.2010 15:22:43
promsn
Fehler gefunden. ListView kann nicht nach Zahlen sortieren... grrr
AW: hier ein Beispiel mit Listview
30.06.2010 06:18:09
Tino
Hallo,
verwende doch Quicksort und baue den etwas um und Multipliziere im Quicksort den Wert im Array mit 1
http://www.online-excel.de/excel/singsel_vba.php?f=97
Allerdings darf kein Text in der Spalte mehr vorkommen. 
Private Sub prcQuickSort(lngLbound As Long, lngUbound As Long, _
intSortColumn As Integer, bntSortKey As Boolean, vntArray() As Variant)
Dim intIndex As Integer
Dim lngIndex1 As Long, lngIndex2 As Long
Dim vntTemp As Variant, vntBuffer As Variant
lngIndex1 = lngLbound
lngIndex2 = lngUbound
vntBuffer = vntArray((lngLbound + lngUbound) \ 2, intSortColumn) * 1
Do
If bntSortKey Then
Do While vntArray(lngIndex1, intSortColumn) * 1  vntBuffer
lngIndex1 = lngIndex1 + 1
Loop
Do While vntBuffer > vntArray(lngIndex2, intSortColumn) * 1
lngIndex2 = lngIndex2 - 1
Loop
End If
If lngIndex1  _
vntArray(lngIndex2, intSortColumn) * 1 Then
For intIndex = LBound(vntArray, 2) To UBound(vntArray, 2)
vntTemp = vntArray(lngIndex1, intIndex)
vntArray(lngIndex1, intIndex) = _
vntArray(lngIndex2, intIndex)
vntArray(lngIndex2, intIndex) = vntTemp
Next
End If
lngIndex1 = lngIndex1 + 1
lngIndex2 = lngIndex2 - 1
ElseIf lngIndex1 = lngIndex2 Then
lngIndex1 = lngIndex1 + 1
lngIndex2 = lngIndex2 - 1
End If
Loop Until lngIndex1 > lngIndex2
If lngLbound

Gruß Tino
Anzeige

52 Forumthreads zu ähnlichen Themen

Array mit mehrspaltiger Listbox füllen
Martin

Hallo liebe Excelianer,
eine Listbox kann sehr einfach mit einem Array gefüllt werden: ListBox1.List() = Arr
Leider geht das nicht umgekehrt: Arr = ListBox1.List()
Folgende Lösung habe ich mir geschrieben:
Sub Lösung For i = 1 To ListBox1.ListCount For j = 1 To 9 Arr(i, j) = Lis...
21.08.2009 20:33:45
Thread-ID: 1097859
18 Beiträge
Anzeige
Combobox mit Werten füllen
Jeron

Hallo liebe Excel Freunde,
ich sitz gerade an einem Userform, dass Werte aus einer Tabelle über eine Combobox auslesen soll.
Ich möchte erreichen, dass die Spalte C, Zelle C8 - C56 auf Inhalt überprüft wird.
Wenn ein Wert vorhanden ist, soll die ComboBox aber nicht mit dem Wert aus...
29.08.2009 18:34:01
Thread-ID: 1099336
10 Beiträge
Array füllen ohne For...Next-Schleife
Micha

Hallo,
ich möchte einen Array-füllen, ohne eine Schleife benutzen zu müssen, um Zeit zu sparen, d.h. anstatt
For CalcArraycnt = 1 To 30
CalcArray(cnt, CalcArraycnt) = "=PRODUCT(R[-2]C,R[-1]C)"
Next
irgendwas wie
Range(CalcArray(cnt, 1),CalcArray(cnt, 30) = "=PRODUCT(R[...
13.10.2009 12:21:38
Thread-ID: 1109304
6 Beiträge
Anzeige
ComboBox mit den Werten aus 4 TextBoxen befüllen
Frank

Hallo am heiligen Sonntag!!!
Ich brauche wieder einmal eure Hilfe.
Auf einer UF befinden sich 4 TextBoxen welche mittels Code befüllt werden. Nun möchte ich gern, dass diese 4 Werte dann in eine ComboBox geschrieben werden! Ist das möglich und wenn ja - wie?
Danke und schönen Sonnta...
08.08.2010 12:43:44
Thread-ID: 1171147
3 Beiträge
Combobox mit Werten füllen
Juliane

Hallo Leute,
ich bin gerade sowas von auf dem Kopf gefallen, ich versteh gar nichts mehr.... Also hab ne Combobox auf mein Tabellensheet gelegt. U jetzt möchte ich diese Combobox mit Werten aus einem anderen Tabellensheet füllen.
Hab es folgendermaßen probiert, aber funktioniert null :(...
12.08.2010 14:32:37
Thread-ID: 1171943
2 Beiträge
bestimmte Spalten mit Werten füllen
strodti

Hallo liebe Excelianer,
ich habe in einer Datei zwei Blätter "Eingabe" und "Zuordnungstabelle" mit identischen Spaltenüberschriften. In "Eingabe" werden Adressdaten u.ä. eingetragen. Über untenstehenden Code werden alle Zeilen, die in Spalte A ein "a" haben, in die "Zuordnungstabelle" kopie...
16.11.2010 18:50:54
Thread-ID: 1187050
4 Beiträge
Zeile einfügen und mit Werten befüllen
Maris

Hallo Leute,
ich habe ein ziemlich difizilles Problemchen... was mir aber den letzten nervt raub und sehr Zeitaufwendig ist. Deswegen wäre ich euch super dankbar wenn ihr mir helfen könntet. Ich habe eine Exceltabelle und ich muß manuell immer eine Zeile einfügen in einer Tabelle und das 5...
23.03.2011 12:20:58
Thread-ID: 1207071
6 Beiträge
Array mit Werten aus Spalten aus füllen
Stefan

Hallo - schon wieder ein Problem.Ich möchte ein Array füllen mit verschiedenen Ausprägungen, die in einer Spalte untereinander stehen. Die Spalte ist aber (1) nicht immer gleich lang und (2) hat doppelte Einträge - jeder Eintrag soll aber nur einmal im Array auftauchen. Hat jemand eine Idee, wi...
13.05.2002 18:02:14
Thread-ID: 120580
2 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox TabStrip

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
17
4
9
5
3
2
1
3
5
1
8
2
6
4
1
13
2
6
8
8
8
2
7
6
1