Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ListBoxen mit VBA - einfügen - speichern

Forumthread: ListBoxen mit VBA - einfügen - speichern

ListBoxen mit VBA - einfügen - speichern
24.10.2016 19:44:24
Sven
Hallo Liebe Excel Gemeinde :-)
ich hab mal wieder ein Riesen Problem :-(
Ich habe eine Tabelle wo Namen drinnen stehen und wo immer wieder welche hinzu kommen können .
Dann hab 2 Weitere Tabellen die aus der ersten die werte beziehen Sollen.
Auf beiden gibt es einen Button der hierfür eine UserForm aufruft, in der sich 2 ListBoxen befinden. In der Linken sollen die Namen aus Tabelle 1 Stehen und in der Rechten sollen die Namen stehen die der Anwender durch anklicken in diese einfügt ( in der Reihenfolge wie sie eingefügt werden . Diese Namen in der zweiten ListBox sollen dann im Jeweils Aktiven Tabellenblatt in bestimmte Zeilen eingetragen werden ( durch einen Button Speichern zb. ) und in der Reihenfolge wie sie in der Box eingefügt wurden . ( Das ist ganz wichtig, die ListBox 2 soll nicht die Sortierung der ListBox 1 übernehmen.)
Ist das Irgendwie machbar ?
Ich habe euch eine Beispieldatei angehängt , damit ihr seht was ich meine .
Die Datei ist in xlsm gespeichert wegen der UserForm.
LG
Sven
https://www.herber.de/bbs/user/108999.xlsm
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ListBoxen mit VBA - einfügen - speichern
25.10.2016 10:53:40
Rudi
Hallo,
Rumpfcode ohne Fehlerbehandlung. 
Private Sub CommandButton1_Click()
ListBox2.AddItem ListBox1
End Sub
Private Sub CommandButton2_Click()
With ListBox2
.RemoveItem (.ListIndex)
End With
End Sub
Private Sub CommandButton3_Click()
Dim i As Integer
For i = 0 To ListBox2.ListCount - 1
Tabelle2.Cells(i * 2 + 4, 1) = ListBox1.List(i, 0)
Next
Me.Hide
End Sub
Private Sub UserForm_Initialize()
Dim rngc As Range
ListBox1.Clear
ListBox2.Clear
With Tabelle1
For Each rngc In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If Len(rngc) Then ListBox1.AddItem rngc.Value
Next
End With
End Sub
Gruß
Rudi
Anzeige
AW: ListBoxen mit VBA - einfügen - speichern
25.10.2016 15:35:10
Sven
Hi Rudi ,
Danke für das Makro .
Es funktioniert soweit ganz gut , bis auf das löschen und das es immer mit max1 anfängt , egal welchen ich hinzufüge .
Gruß
Sven
AW: ListBoxen mit VBA - einfügen - speichern
25.10.2016 20:46:58
Rudi
Hallo,
funktioniert mit deiner Datei einwandfrei.
Gruß
Rudi
;

Forumthreads zu verwandten Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Ersetzen mit VBA in allen Arbeitsblättern
Walter

Hallo,
ich habe eine Frage:
Wenn ich einen Text in der ganzen Arbeitsmappe ersetzen will, so treffe ich im Dialogfeld SUCHEN/ERSETZEN einfach die Einstellung: Suchen --- "Arbeitsblatt".
Wenn ich disen Vorgang aufzeichen, kommt folgender Code heraus:
Selection.Replace What:= _
11.09.2008 15:35:53
Thread-ID: 1009157
6 Beiträge
Diagrammveränderung mit VBA unterbinden
Karl

Hallo zusammen
Ich habe da ein für mich unlösbares Problem. Ich möchte gerne all meine Diagramme vor Größen veränderung schützen. Doch leider kann ich auch im Netzt nichts brauchbares finden. Ich habe zwar mein Blatt schreib geschützt, wenn ich jedoch mit VBA Code mir das Diagramm als Bild...
04.01.2009 19:21:00
Thread-ID: 1036824
2 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
5 Beiträge
HEIMAT-Workbook eines VBA-Makros ermitteln?
Johann

Hallo,
ich habs irgendwo einmal gelesen, aber mit den Schlüsselworten +Workbook +Makro +ursprung findet man immer zu viele Treffer, aber nie die richtigen.....
Meine Frage:
Ich habe ein VBA-Makro, welches generell mit dem Activeworkbook arbeitet. Das ist irgendeine Excel-Datei in d...
01.04.2009 12:37:23
Thread-ID: 1065958
2 Beiträge
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Anzeige
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Formel in VBA mit " funktioniert nicht
ChrisW

Hallo Leute,
ich möchte der Variablen Fo4 folgende Formel zuweisen:
Fo4 = "=SUMPRODUCT(('Detailed Table'!$G$4:$G$63556="PR")*(('Detailed Table'!$A$4:$A$63556)=$A3)*(('Detailed Table'!$J$4:$J$63556)))"
Excel meckert aber und markiert mir PR was wohl an den Anführungszeichen liegt die...
28.08.2009 15:22:19
Thread-ID: 1099200
6 Beiträge
In VBA mit Spalten vergleichen
Ralph_III

Hallo zusammen, ich bin in VBA leider noch ein ziemlicher Laie, versuche das aber gerade zu ändern. Ich habe allerdings ein Problem und bräuchte Hilfe:
in Zelle L2 von Tabelle1 steht ein Wert, den ich mit der Spalte C (C3 bis C600) von Tabelle2 vergleichen will. Wenn er sich darin befindet,...
10.09.2009 09:45:18
Thread-ID: 1101667
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige