Das Archiv des Excel-Forums

Listbox befüllen, Inhalt markieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox UserForm
Bild

Betrifft: Listbox befüllen, Inhalt markieren
von: Thomas

Geschrieben am: 06.10.2003 18:30:54

Hallo Forum!

Ich würde gerne eine Listbox befüllen. Alle Zellen der 1 und 2 Spalte (Spalte 1 Artikelnummer, Spalte 2 Artikelbezeichnung). Wenn ein oder mehrere Einträge markiert werden soll auch die Zelle markiert werden.

Kann mir jemand helfen?

Liebe Grüsse
Thomas
Bild


Betrifft: Code gefunden funktioniert aber leider nicht
von: Thomas
Geschrieben am: 06.10.2003 19:28:03

Mit diesem Code sollte es funktionieren.
Die Listbox wird zwar in der Userform super befüllt nur das kopieren geht nicht.

Kann mir vielleicht jemand helfen?

LG
Thomas
-----------------------------------------------------------------------------------


Private Sub UserForm_Initialize()
lstAuswahl.List = Range("A1") _
.CurrentRegion.Columns("A:B").Value
End Sub




Private Sub cmdEintragen_Click()
Dim wks As Worksheet
Dim rng As Range
Dim iCounter As Integer
Set wks = ActiveSheet
Workbooks.Add
Set rng = ActiveSheet.Range("A1")
For i = iCounter = 0 To lstAuswahl.ListCount - 1
If lstAuswahl.Selected(iCounter) Then
wks.Rows(iCounter + 1).Copy rng
Set rng = rng.Offset(1, 0)
End If
Next iCounter
End Sub


Sub CallForm()

frmAuswahl.Show

End Sub


ClassModule: frmAuswahl


Private Sub cmdAbbrechen_Click()
Unload Me
End Sub



Bild


Betrifft: AW: Code gefunden funktioniert aber leider nicht
von: RAnton
Geschrieben am: 06.10.2003 19:44:27

Hallo Thomas,
das liegt wohl an dieser Zeile

For iCounter = 0 To ListBox1.ListCount - 1

Gruß
RAnton


Bild


Betrifft: AW: Code gefunden funktioniert aber leider nicht
von: Thomas
Geschrieben am: 06.10.2003 19:45:45

Ich hab noch was anderes. Das einzige was nicht funktioniert ist, das nicht nur die Spalte A sondern auch die Spalte B kopiert werden sollte.
------------------------------------------------------------------------------------


Private Sub cmdEintragen_Click()
Dim iRow As Integer
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Sheets("Tabelle3").Cells(iRow, 1) = lstAuswahl.Value
End Sub



Private Sub UserForm_Initialize()
lstAuswahl.List = Range("A1") _
.CurrentRegion.Columns("A:B").Value
End Sub


Sub CallForm()

frmAuswahl.Show

End Sub


ClassModule: frmAuswahl


Private Sub cmdAbbrechen_Click()
Unload Me
End Sub



Bild


Betrifft: AW: Code gefunden funktioniert aber leider nicht
von: Thomas
Geschrieben am: 06.10.2003 19:58:55

hängt das vielleicht auch mit den eigenschaften des listfeldes zusammen?

thema: boundcolumn einstellung?


Bild


Betrifft: Hiiiiiiiiiiiiilfe
von: Thomas
Geschrieben am: 06.10.2003 20:47:14

Wie kann ich nur Spalte A und B übernehmen und nicht nur die Spalte A?


Bild


Betrifft: AW: Code gefunden funktioniert aber leider nicht
von: RAnton
Geschrieben am: 06.10.2003 21:03:38

Ersetzte mal den Code!
Gruß



Private Sub cmdEintragen_Click()
Dim iRow As Integer
If IsEmpty(Cells(1, 1)) Then
iRow = 1
Else
iRow = Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Sheets("Tabelle3").Cells(iRow, 1) = lstAuswahl.Value
Sheets("Tabelle3").Cells(iRow, 2) = lstAuswahl.Value
End Sub



Bild


Betrifft: AW: Code gefunden funktioniert aber leider nicht
von: Thomas
Geschrieben am: 07.10.2003 11:50:05

irgendwie nimmt er den wert der 2. spalte nicht an.

hab 2x den wert aus der ersten spalte drinnen


 Bild

Excel-Beispiele zum Thema " Listbox befüllen, Inhalt markieren"

Mehrfachauswahl aus ListBox auslesen download Gefilterte Daten in eine ListBox einlesen download
Dateien aus Listbox auslesen und öffnen download Listbox-Eintrag durch Mausbewegung markieren download
ListBox-Einträge auswechseln download Horizontal angeordnete Elemente in eine ListBox übernehmen download
Tabellenblattnamen in eine ListBox einlesen download ListBox bei Eintrag erweitern download
Als Zellkontextmenü Listbox aufrufen download Dateinamen in Listbox download
Mehrfachauswahl in ListBox auslesen download Ordner eines Verzeichnisses in ListBox übernehmen download
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Matrix in UserForm-ListBox einlesen download Bereichsnamen in UserForm-ListBox auflisten und editieren download
Ausgewählte Werte aus UserForm-ListBoxes addieren download Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download
Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download Wahlweise Elemente in UserForm-Text- oder -ListBox markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download ListBox-Auswahl in Labels übernehmen download
Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download Blattnamen bedingt in ListBox einlesen und Blätter auswählen download
Einlesen von Spaltenköpfen in UserForm-ListBox download Spalten ein-/ausblenden nach UserForm-ListBox-Vorgabe download
Mehrspaltige UserForm-ListBox lückenlos füllen download Makroverzweigungen nach OptionsFeld- oder ListBox-Auswahl download
Aus mehrspaltiger UserForm-ListBox Werte der 1. Spalte auslesen download Werte aus UserForm-ListBox in die Zwischenablage übernehmen download
Wert aus UserForm-ListBox in Tabellenblatt eintragen download Einlesen des Outlook-Adressbuches in eine UserForm-ListBox download
Blattauswahl über UserForm-ListBox mit Mehrfachauswahl download UserForm-TextBox-Werte einer ListBox hinzufügen download
Druck der in einer UserForm-ListBox ausgewählten Arbeitsblätter download Zufallszahl in UserForm-ListBox zentriert anzeigen download
UserForm-ListBox in Abhängigkeit zur aufrufenden Spalte füllen download Mehrspaltige UserForm-ListBox füllen und aktuellen Wert einlesen download
Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen download
UserForm-ListBox-Einträge sortieren download Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös download
Doppelte Einträge in UserForm-ListBox löschen download Mehrspaltige UserForm-ListBox sortieren download
Ausgewählen Zeilen aus UserForm-ListBox in neue Tabelle download Zweite ListBox in Abhängigkeit der ersten füllen download
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen download Werte in zweispaltiger ListBox rechts- und linksbündig darstellen download
Zellinhalt suchen und Zelle auswählen download Zellinhalt in zweitem Blatt ermitteln download
Einlesen von Zellinhalten in Variablen download Unterverzeichnisse mit Inhalt löschen download
Zellinhalte zeilenweise sortieren download Zellinhalt als Internet-Suchbegriff download
Zellinhalt als Label-Aufschrift in UserForm download Textprogramm starten und Inhalte von Zelle A1 eingeben download
Nur Zellen mit Inhalt in ComboBox listen download Zellinhalt und Kommentar nach Eingabe festlegen download
Wiederherstellung des alten Zellinhaltes bei unerlaubten Werten download Blattinhalt von einer zur anderen Arbeitsmappe kopieren download
Bereiche in Abhängigkeit eines Zellinhaltes drucken download Die tatsächliche Anzeige eines Zellinhaltes per VBA abrufen download
Inhalt einer Arbeitsmappe als Mail senden (ohne die Mappe selbst) download Letzte Zelle mit Inhalt suchen download
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren download Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten download
Zellinhalte in Verbindung mit Variablen in Textdatei schreiben download Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe download
Feldvariable auf Inhalt testen download Zellinhalte aus Einzelblättern in Deckblatt übertragen download
Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei download Inhalt einer Tabelle periodisch mit Outlook versenden download
Excel-Zellinhalte in Worddokument einlesen um per Email versenden download Zellinhalte über VBA verbinden download
Inhalt von Zelle A1 mit Outlook versenden download Zellinhalt während der Laufzeit in Prozedur übernehmen download
Zellinhalte vor dem Verbinden der Zellen zusammenfassen download Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download
In mehrere Spalten doppelte Inhalte entfernen download Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen download
Zeile mit Inhalt mit gelbem Hintergrund download Tabellenblattinhalt in seqentielle Textdatei ein- und auslesen download
Blattinhalte dreier Blätter in neues Blatt kopieren download Nur Zeilen mit bestimmtem Inhalt kopieren download
UserForm-TextBox-Inhalte mit Grafik-Hyperlinks einfügen download Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen download
Zeichenfolge auf Inhalt überprüfen download Zellinhalte in MultiPage-TextBoxes einlesen download
Arbeitsblatt nach Zellinhalt benennen download Benennung und Aktivierung von CheckBoxes gem. Zellinhalten download
Hierarchisch aufgebautes Inhaltsverzeichnis als HTML-File download Tabellenblattinhalte in getrennten Textdateien speichern download
Schaltflächen gem. Tabelleninhalten anlegen und benennen. download TextBox-Inhalt mit und ohne Zeilenumbrüche auslesen download
In Namensliste TextBox-Inhalte suchen download Aufteilen mehrzeiliger Zellinhalte in UserForm-ListBox download
Formate und Zellinhalte ausblenden download Zellinhalt als Unicode-Zeichen in HTML-Tabelle schreiben download
Bereich mit Maximalwert markieren download Zeilen markieren download
Zellen vergleichen und markieren download Markieren in Abhängigkeit vom Quartal download
Drei Zellen rechts der aktiven Zelle markieren download Zelle mit Maximalwert markieren download
Alle nichtleeren Zeilen markieren download Start- und Enddatum abfragen und markieren download
Minimalwerte je Zeile markieren download Nach Verlassen von Spalte B Spalte C markieren download
Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren download Monatsabhängige Tagesliste anlegen und Wochenenden markieren download
Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download Zelle mit kleinsten Wert markieren download
Bestimmte Zeichen in einer UserForm-TextBox markieren download Über die bedingte Formatierung den Minimalwert markieren download
Kopfzelle mit aktivem Autofilter markieren download Doppelt vorkommende Werte markieren download
Doppelte Datensätze farblich markieren und auflisten download Wochenenden und Feiertage in Jahresliste markieren download
Datumsreihen nach Vorgabe markieren download Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren download
Datumsbereich in Abhängigkeit von 3 Kriterien markieren download Kürzel über Kontextmenü auswählen und markieren download
Tabellen vergleichen und bei Nichtübereinstimmung markieren download Suchbegriff abfragen und Fundzeile markieren download
Maximalwerte im selektierten Bereich markieren download Min- und Max-Werte automatisch markieren download
In Folgeblättern nicht vorkommende Werte markieren download Überschrittene Zahlungstermine markieren download
Von einer Zeilenauswahl jede zweite markieren download Zellen in Abhängigkeit der aktuellen Uhrzeit markieren download
Datumsbereich gem. Start- und Enddatum markieren download Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download
Zellen in Abhängigkeit des Summen-Teilergebnisses markieren download Cursor-Position rechts und links markieren download
Alle ungeraden Zahlen markieren download Label und Zellen farbig markieren download
Doppelt vorkommende Werte in Spalte A markieren download Artikel mit den in einem Farbindex hinterlegten Farben markieren download
Gleiche Einträge markieren download Teilstrings vergleichen und markieren download
Werte markieren, die größer als Parallelwerte sind download Markieren von Auswahlbereichen download
Markieren von festgelegten Bereichen download Zeile markieren, in der sich der Cursor befindet download
Datensätze wechselseitig bei Nichtauffinden markieren download Werte, die auch in anderen Spalten vorkommen, markieren download