Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listindex speichern - an derselben Stelle einfügen

Forumthread: Listindex speichern - an derselben Stelle einfügen

Listindex speichern - an derselben Stelle einfügen
29.09.2013 12:51:54
Steffen
Servus zusammen,
ich habe eine Aufgabenstellung über die ich mir seit einiger Zeit den Kopf zerbreche
Ich fülle eine Listbox mit .additem... Per Klick auf einen Button kann ich nun einzelne, vorher angeklickte Einträge dieser Listbox, herausnehmen und in eine andere Listbox eintragen. Soweit so gut. Wiederum per Klick kann ich nun Einträge aus dieser zweiten Listbox wieder in die Erste einfügen.
Ich möchte nun, dass die wieder hinzugefügten Einträge an dergleichen Stelle, wie vorher auftauchen und nicht am Ende der Liste. Gibt es da irgendeine Möglichkeit? Stelle mir da irgendeine Variable vor, die den Listindex speichert....
VG Steffen

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listindex speichern
29.09.2013 13:45:29
Hajo_Zi
Hallo Steffen,
Benutze eine ausgeblendete Spalte in der Listbox, in die Du den Listindex einträgst.

AW: Listindex speichern
29.09.2013 14:54:44
Steffen
Hallo Hajo,
danke für die schnelle Antwort.
ich habe die Listbox nun entsprechend angepasst. Sie hat nun zwei Spalten. Zweite Spalte mit aufsteigenden Zahlen zum Festlegen der Rangfolge.
Hast Du den Befehl für das Ausblenden der zweiten Spalte?
Vielen Herzlichen Dank!
Steffen

Anzeige
AW: Listindex speichern
29.09.2013 15:03:05
Hajo_Zi
Hallo Steffen,
einfach bei Eigenschaften angeben das die zweite Spalte Spaltenbreite 0 hat. Warum die aufsteigenden Zahlen ist mir nicht klar. Muss es auch nicht.
Gruß Hajo

AW: Listindex speichern
29.09.2013 17:02:20
Steffen
Hey,
na klar.....das wäre zu einfach. Klasse!
Wieso die Reihenfolge?
Also: Habe in einer Pool-Liste eine Sammlung von Begriffen, die durch zwei verschiedene Buttons in zwei verschiedene Listboxen eingeordnet werden können. Wird ein Eintrag in der Pool-Liste ausgewählt und per Klick in die eine oder andere Box hinzugefügt, wird der gewählte Eintrag in der Pool-Liste gelöscht. Einfach um zu vermeiden, dass EIN Eintrag in BEIDE Listboxen eingetragen werden kann. Wenn ich mich nun falsch entschieden habe und einen Begriff fälschlicherweise in eine der beiden Listboxen verschoben habe, möchte ich, dass ich per Buttonklick den Eintrag wieder in die Pool-Liste verschieben kann. Das funktioniert auch problemlos. Allerdings wird er eben unten - als letzter Eintrag - angefügt und nicht an seine ursprüngliche Position in der Pool-Liste gesetzt. Deswegen die Spalte mit den Reihenfolgen. Ich habe mir vorgestellt, dass ich bei jedem Eintrag in die Pool-Liste die Einträge einfach sortiere nach der zweiten, ausgeblendeten Spalte. Dann müssten die Einträge eigentlich immer die richtige Reihenfolge haben.
Momentan scheitere ich allerdings daran, dass ich beim umtragen der Einträge von der Pool-Liste in eine der beiden Listboxen zwar den Eintrag hineingeschrieben bekomme, allerdings nicht die zweite Spalte mit der Nummer....
Boah...ich überlege schon das über arrays zu lösen, aber listbox1.list()=arrname liefert auch nicht das gewünschte Ergebnis...
Hast du einen Hinweis für mich?
VG Steffen

Anzeige
AW: Listindex speichern
29.09.2013 18:06:44
fcs
Hallo Steffen,
hier muss du mit der List-Eigenschaft der Listboxen arbeiten. Dann kannst du auch die Werte der 2. Spalte übertragen
Hier 2 Beispielmakros.
Eines, wenn die Listbox für Mehrfachauswahl eingerichtet ist
Eines, wenn immer nur ein Eintragausgewählt werden kann.
Die Verteilung der Pooleinträge über ein Datenarray zu verwalten funktioniert auch, ist aber programmiertechnisch etwas aufwendiger als mit der 2. Spalte in den Listboxen zu arbeiten.
Gruß
Franz 
'Bei Listbox mit Mehrfachauswahl - MultiSelect = 1 oder 2
Private Sub cmbVon1_nach_2_Click()
'Einträge von Listbox1 nach Listbox2 übertragen
Dim int1 As Integer, int2 As Integer
Dim varEintrag As Variant, intRF As Integer
With Me.ListBox1
For int1 = 0 To .ListCount - 1
If .Selected(int1) Then
varEintrag = .List(int1, 0)
intRF = .List(int1, 1)
'Eintrag in Zielbox einsortieren
With Me.ListBox2
If .ListCount = 0 Then
.AddItem varEintrag
.List(0, 1) = intRF
Else
For int2 = .ListCount - 1 To 0 Step -1
If .List(int2, 1)  -1 Then
int1 = .ListIndex
varEintrag = .List(int1, 0)
intRF = .List(int1, 1)
'Eintrag in Zielbox einsortieren
With Me.ListBox2
If .ListCount = 0 Then
.AddItem varEintrag
.List(0, 1) = intRF
Else
For int2 = .ListCount - 1 To 0 Step -1
If .List(int2, 1)

Anzeige
KLASSE !!!!
01.10.2013 19:58:02
Steffen
Hey Franz,
das hat super geklappt! Tausend Dank!
;

Forumthreads zu verwandten Themen

Diagramme/ Schaubilder ander darstellen
Peter

Hallo,
Ich hoffe ich bin hier richtig mit meiner Frage. Mich würde interessieren ob es mit Exel ( einem Plugin, Addon etc ) noch andere Möglichkeiten gibt Schaubilder / Diagramme darzustellen als mit disen 0815 Balken und Kreise. Wie beispielsweise hier http://www.escenic.com/multimedia/arc...
28.08.2008 16:23:00
Thread-ID: 1005515
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Formeln miteinander vergleichen
Pfannen-Meister

Guten Abend,
ich möchte gerne zwei Excel-Formeln miteinander begreifen, habe in der Umsetzung aber ein Problem:
Formel in der Zelle A1 = D1*E1
Formel in der Zelle A2 = D1+E1
Wie schaffe ich es, die Formeln in der Zelle A1 und A2 miteinander zu vergleichen und NICHT das Ergebni...
08.09.2008 17:18:00
Thread-ID: 1008216
3 Beiträge
Anzeige
Wert bedingt in anderer Zelle darstellen
sascha76er

Hallo,
ich muss leider schon wieder das Forum mit meinen Fragen nerven.
Ich möchte gerne den Wert einer Zelle welcher in der Spalte W steht in einer Zelle in der Spalte D darstellen, aber nur wenn der entsprechende Wert mi WE beginnt.
Geht das?
Gruß
Sascha
08.10.2008 15:16:49
Thread-ID: 1015075
5 Beiträge
Zahlen in anderen Tabellen vergleichen
Adi

Hallo ich könnte Hilfe gebrauchen,
in den 6 Tabellen werden in Spalte A A5:A36 willkürlich Zahlen eingetragen.
Es darf keine Zahl zweimal vorkommen. Ein Makro sollte dafür sorgen.
Gruß Adi
https://www.herber.de/bbs/user/58785.xls
25.01.2009 21:39:13
Thread-ID: 1043688
14 Beiträge
Tabellenblatt von anderer Stelle auswählen
anderer

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 17:58:31
Thread-ID: 1055267
5 Beiträge
Macro, um Daten an eine andere Stelle zu kopieren
Torsten

Hallo,
ich suche nach einer Möglichkeit ( Macro? ), Daten von Blatt Ergebnisse J26:J31 nach Berichte B5:H5 zu bekommen.
Wenn möglich, das es nach dem 20 des Monats nicht mehr funktioniert.
mfg Torsten
17.05.2009 18:35:58
Thread-ID: 1075723
11 Beiträge
""-Wert anders darstellen
Mike


Hallo,
in der nachfolgenden Ampeldarstellung soll der G97-Wert nicht als Pfeil ("5" - Webdings)
sondern als Quadrat ("<" - Webdings) dargestellt werden.
Was mach ich falsch? Danke für Eure Hilfe.
-- MBR3 --

 GH950.4%<96-99.0%697 598118.2%599-27.7%6
18.05.2009 10:17:25
Thread-ID: 1075805
12 Beiträge
Anzahl vorgegebener Zahlen untereinander darstelle
Jan

Hallo Forum
Habe ein neues Problem und zwar folgendes:
Habe in der Spalte A verschiedene Zahlen, welche aufsteigend sind, und in Spalte B dazugehörige Werte…damit möchte ich folgendes erreichen
Spalte A______Spalte B
1_____________2
2_____________4
3_____________4
4_...
10.06.2009 11:07:51
Thread-ID: 1080379
5 Beiträge
Anzeige
Filterergebnis an anderer Stelle ausgeben
Bibo

Hallo liebe EXCEL-Freunde und VBA-Profis,
ich habe im Archiv den nachstehenden Code gefunden, der in der beigefügten Beispielmappe eigentlich auch ganz prima funktioniert.
Option Explicit
Sub FilterCriteria() Dim intRow As Integer, intCol As Integer intRow = Range("A1").CurrentReg...
11.06.2009 17:09:57
Thread-ID: 1080787
5 Beiträge
Filterergebnis an anderer Stelle ausgeben
Bibo

Hallo liebe EXCEL-Freunde und VBA-Profis,
ich greife meinen noch offenen Beitrag von vorgestern in der Hoffnung nochmals auf, dass heute vielleicht mehr VBA-Spezialisten unterwegs sind.
Iich habe im Archiv den nachstehenden Code gefunden, den ich mit NoNet's Hilfe in der beigefügten Bei...
13.06.2009 20:25:44
Thread-ID: 1081321
4 Beiträge
2 Tabellen aus 2 Dateien miteinander vergleichen
Frank

Hallo zusammen,
Ich habe hier noch mal was für die Excel Cracks
Ausgangslage:
Protokolldatei (in dieser Datei befinden sich die Makros; und letztendlich die kopierten Zeilen in denen Unterschiede gefunden wurden)
Aus der Protokolldatei heraus (Datei1 Tabelle Monat07; Datei2 Tabe...
10.09.2009 02:30:35
Thread-ID: 1101552
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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