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

Listbox befüllen, Inhalt markieren

Forumthread: Listbox befüllen, Inhalt markieren

Listbox befüllen, Inhalt markieren
06.10.2003 18:30:54
Thomas
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
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Code gefunden funktioniert aber leider nicht
06.10.2003 19:28:03
Thomas
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

Anzeige
AW: Code gefunden funktioniert aber leider nicht
06.10.2003 19:44:27
RAnton
Hallo Thomas,
das liegt wohl an dieser Zeile

For iCounter = 0 To ListBox1.ListCount - 1

Gruß
RAnton
AW: Code gefunden funktioniert aber leider nicht
06.10.2003 19:45:45
Thomas
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

Anzeige
AW: Code gefunden funktioniert aber leider nicht
06.10.2003 19:58:55
Thomas
hängt das vielleicht auch mit den eigenschaften des listfeldes zusammen?

thema: boundcolumn einstellung?
Hiiiiiiiiiiiiilfe
06.10.2003 20:47:14
Thomas
Wie kann ich nur Spalte A und B übernehmen und nicht nur die Spalte A?
AW: Code gefunden funktioniert aber leider nicht
06.10.2003 21:03:38
RAnton
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

Anzeige
AW: Code gefunden funktioniert aber leider nicht
07.10.2003 11:50:05
Thomas
irgendwie nimmt er den wert der 2. spalte nicht an.

hab 2x den wert aus der ersten spalte drinnen
;

Forumthreads zu verwandten Themen

Mehrere Textfelder markieren
Captain

Moin @all,
ich erstelle mehrere Textfelder auf meiner Userform dynamisch.
Gibt es für die Userform eine Möglichkeit, mehrere Textfelder per Maus auf einmal zu markieren, so wie es in einem Sheet mit den Zellen möglich ist?
Im Anhang meine Beispieldatei:
https://www.herber.de/bb...
18.08.2008 11:11:00
Thread-ID: 1002529
9 Beiträge
Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Script um auf jeden Blatt eine Zelle zu markieren
Eddie

Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie
22.08.2008 15:11:53
Thread-ID: 1003910
15 Beiträge
Leerzeilen in markieren Bereich einfügen
Ulrich

Hallo zusammen,
ich möchte gerne einen Bereich markieren und dann ein Makro starten, dass im markierten Bereich unter jeder Zeile eine Leerzeile einfügt und dann den gesamten Bereich (Zeilen+Leerzeilen) markiert.
Habe das versucht - geht nicht:
Dim bereich As Range
Set bereich...
26.08.2008 15:36:00
Thread-ID: 1004840
3 Beiträge
Anzeige
Markieren, formatieren und sortieren via VB-Skript
Wladimir

Hallo zusammen,
wie kann man in einer geschlossenen Excel-Datei via VB-Skript die Zellen markieren, formatieren und sortieren.
Danke im Voraus
Freundliche Grüße
Wladimir
01.09.2008 17:03:25
Thread-ID: 1006538
17 Beiträge
mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Zeilen markieren, dann sortieren... usw....?
Selma

Hallo Leute,
ich habe mir die Inhalte des Arbeitsblattes sortiert (mit drei Sortkriterien). Jetzt möchte ich noch eine Sortierung per VBA wie folgt durchführen....
Ab Zeile 4 sollen die Zeilen die gleichen Zelleninhalt in Spalte H haben, markiert und wie folgt sortiert werden:
Sele...
04.09.2008 19:05:06
Thread-ID: 1007484
3 Beiträge
Anzeige
Zeilen markieren (ohne Formeleinträge)
Selma

Hallo Leute,
ich habe versucht ab Zeile 2 bis letzte gefüllte Zelle der Spalte B (leere Formelergebnisse sollen nicht berücksichtigt werden) die Zeilen zu markieren, leider ohne Erfolg.
Rows("2:" & Range("B65536").End(xlUp).Row).Select
Was muss ich ändern?
Vielen Dank im Vor...
07.09.2008 18:35:00
Thread-ID: 1007992
5 Beiträge
Bestimmte Werte markieren
mehmet

Hallo Forum,
ich habe in Spalte G4:G92 beispielsweise folgende Codes stehen:
in Zelle G4
TAF EKAH 080440Z 081212 16010KT 9999 SCT020 TEMPO 1218 4000 SHRA BKN015CB TEMPO 1807 2500 SHRA BR BKN008 SCT015CB BECMG 1921 21006KT TEMPO 0712 -SHRA BKN012 SCT020CB=
in Zelle G5
TAF ESS...
08.09.2008 08:36:00
Thread-ID: 1008041
3 Beiträge
Summenformel Zellbezüge markieren
Christian

Hi Leute,
heute möchte ich eine Frage stellen die mich schon eine Zeit lang beschäftigt, für die ich aber leider selber noch keine Antwort gefunden habe.
Ich habe ein Registerblatt in dem einige "Summen-Formeln" stehen, die auf Zellbeüge in anderen Registerblättern (alle in der selben A...
08.09.2008 08:38:00
Thread-ID: 1008042
6 Beiträge
Zeichenfolgen vergleichen und markieren
mehmet

Hallo Forum,
in Spalte G4:G92 habe ich mehrere Codes, z.B.:
G4
METAR EKAH 080850Z 18007KT 130V220 9999 SCT012TCU BKN100 18/16 Q1010=
G5
METAR UAAA 080900Z 03003MPS 010V080 9999 SKC 25/05 Q1017 55CLRD65 NOSIG RMK QFE704/0938=
G6
METAR ESSA 080920Z 04006KT 9999 SCT010...
08.09.2008 11:47:07
Thread-ID: 1008096
3 Beiträge
Doppeleinträge markieren
bug

Hallo,
ich habe eine Frage zu doppelten werten in einer Tabellenspalte.
wie kann ich in einer separaten spalte ein neues merkmal "X" ausgeben, mit dem nur einer derdoppelten einträge markiert wird, oder umgekehrt alle doppelten bis auf einen.
dabei spielt keine rolle welcher eintra...
09.09.2008 18:18:32
Thread-ID: 1008560
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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