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

Spalten anzeige in einer ListBox(Spalten 1-8 & 11)

Forumthread: Spalten anzeige in einer ListBox(Spalten 1-8 & 11)

Spalten anzeige in einer ListBox(Spalten 1-8 & 11)
18.05.2019 10:00:03
Marcel
Hallo ihr,
ich hätte da mal eine Frage zwecks einer zusätzlichen Spalte in einer Listbox.
Ist es möglich in der Listbox eine weitere Spalte anzeigen zu lassen die nicht im Bereich A1:H1 liegt sondern in dem Tabellenblatt die Spalte K betrifft?
Es ginge quasi darum die ersten 8 Spalten anzuzeigen und zusätzlich Spalte 11.
With ListBox1
.ColumnCount = 9
.ColumnWidths = "0,8cm;1,3cm;4cm;5,5cm;0,7cm;2cm;4cm;3cm;"
.ColumnHeads = True
.RowSource = "Sheet_tbl!A1:H1" 'sind 8 Spalten
End With
With Worksheets("Sheet_tbl")
For Zeile = 1 To 9
For spalte = 1 To 9
ListBox1.RowSource = "Sheet_tbl!tbl_Daten"
Next
Next
End With

Würde mich über eure Hilfe freuen
Lieben Gruß
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalten anzeige in einer ListBox(Spalten 1-8 & 11)
18.05.2019 10:12:29
Matthias
Hallo
With ListBox1
.ColumnCount = 11
.ColumnWidths = "0,8cm;1,3cm;4cm;5,5cm;0,7cm;2cm;4cm;3cm;0;0;3cm"
.ColumnHeads = True
.RowSource = "Sheet_tbl!A1:H1" 'sind 8 Spalten
End With
With Worksheets("Sheet_tbl")
For Zeile = 1 To 9
For spalte = 1 To 11
ListBox1.RowSource = "Sheet_tbl!tbl_Daten"
Next
Next
End With
Geht doch aber auch ohne Schleifen, oder?
With Worksheets("Sheet_tbl")
ListBox1.RowSource = "Sheet_tbl!tbl_Daten"
End With
Gruß Matthias
Anzeige
AW: Spalten anzeige in einer ListBox(Spalten 1-8 & 11)
18.05.2019 10:17:17
Marcel
Hallo Matthias,
ja das geht auch ohne ;-)
Nur wollte ich mich damit später befassen aber danke schonmal dafür
Gruß
AW: Spalten anzeige in einer ListBox(Spalten 1-8 & 11)
18.05.2019 11:08:28
Matthias
Hallo
Anscheinend hast Du meinen ersten Beitrag nicht richtig gelesen.
Dort hatte ich Dir das mit ColumnCount = 11 bereits vorgeschlagen
Auch die Breite der Spalten 9 und 10 auf 0 setzen hatte ich bereits erwähnt.
Übrigens reicht dies völlig aus (ListBox auf UserForm)
Option Explicit
Private Sub CommandButton1_Click()
With ListBox1
.ColumnCount = 11
.ColumnWidths = "1,3cm;1,3cm;1,3cm;1,3cm;1,3cm;1,3cm;1,3cm;1,3cm;0;0;1,3cm"
.ColumnHeads = True
.RowSource = "Sheet_tbl!tbl_Daten"
End With
End Sub
Wobei tbl_Daten eine sogenannte "intelligente Tabelle" ist.
Für was Du
With Worksheets("Sheet_tbl")
benutzt hast ist mir schleierhaft.

Hier die Mappe in der ich das umgesetzt habe
https://www.herber.de/bbs/user/129862.xlsm
Gruß Matthias
Anzeige
AW: Spalten anzeige in einer ListBox(Spalten 1-8 & 11)
18.05.2019 10:18:27
Werner
Hallo Marcel,
am einfachsten:
Column.Count auf 10 erweitern
RowSource erweitern bis Spalte K ("Sheet_tbl!A1:K1")
Spaltenbreite für die Spalten 8 und 9 in der Listbox auf 0 setzen (werden nicht angezeigt)
Gruß Werner
AW: Spalten anzeige in einer ListBox(Spalten 1-8 & 11)
18.05.2019 10:22:56
Marcel
Das natürlich sehr einfach ;-)
Nur was ist wenn es nicht die 11. sondern die letzte oder so ist, vielleicht 25 dann.
Dachte da vielleicht an .AddItem oder sowas.
Gruß
Anzeige
sicher? ... .ColumnCount = 10 ? owT
18.05.2019 10:31:13
Matthias

Forumthreads zu verwandten Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
Anzeige
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Exceltabelle durch userform ersetzen
Peter

Hallo
ich habe im Internet einen Funktion zur Steuerberechnung gefunden und möchte diese in meine Datei ein binden.
In der Funktion sind die eingabe Felder mit den Zeilen und Spalten Bsp. B2 bezeichnet.
jetz habe ich meine Userform erweitert um Comboboxen und zur Eingabe und Label z...
28.09.2008 19:00:00
Thread-ID: 1012973
6 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Anzeige
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Anzeige
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 11:27:54
Thread-ID: 1021806
4 Beiträge
in Zeile oder Spalte Wert suchen
Lars

Hallo,
ich habe eine Zeile in der z.B. B1 B2 B3 usw. stehen.
Gibt es eine einfache Möglichkeit nach der Spalte zu suchen, in der z.B. B2 steht. Derzeit versuche ich es über eine komplizierte If-Abfrage.
Ich habe auch die Worksheetfunction "search" gefunden, weiß aber nicht, wie sie...
12.11.2008 11:12:43
Thread-ID: 1023752
7 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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