Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur beschriebene Zellen Listen

Nur beschriebene Zellen Listen
Sebastian
Hallo zusammen,
ich habe ein Programm in dem in einer Userform nach einem bestimmten Befehl eine Listbox aus einem Tabellenblatt befüllt wird, der Code dafür ist folgendermaßen:
ListBox2.AddItem Cells(zeiger, 4).Value
Zeiger bezieht sich dabei auf den Auswahlbereich
Alles funktioniert ganz wunderbar, mein Problem ist das auch Zellen gelistet werden in denen nix drinsteht. Das würde ich gerne ausschliessen, so das ich im Auswahlbereich des Tabellenblattes die Einträge nicht zwingend untereinanderschreiben muss, sondern auch mehrere Zellen nach unten Abstand lassen kann.
Würde ich das aktuell machen würde in der Listbox der erste eintrag in der ersten Zeilen erscheinen, dann die ganzen freien Zeilen gemäß der Anzahl der freien Zellen im Auswahlbereich und dann erst der nächste Eintrag. Das sieht in der Listbox natürlich voll doof aus. Wie kann ich das ändern ...
LG Sebastian

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nur beschriebene Zellen Listen
04.07.2009 14:11:52
Tino
Hallo,
hier mal ein Beispiel, musst Du noch an Deinen Umgebung anpassen.
Dialog UserForm1 Option Explicit Private Sub UserForm_Initialize() Dim myAr, myList() Dim A As Long, B As Long 'Tabellenname und Zellbereich anpassen With Sheets("Tabelle1") myAr = Range("A2", .Cells(.Rows.Count, 1).End(xlUp)) End With 'myList groß genug Dimensionieren Redim Preserve myList(Ubound(myAr) - 1) 'Daten Sammeln For A = 1 To Ubound(myAr) If myAr(A, 1) <> "" Then myList(B) = myAr(A, 1) B = B + 1 End If Next A 'auf nötige größe Dimensionieren Redim Preserve myList(B - 1) 'Datenliste an ListBox übergeben Me.ListBox1.List = myList End Sub


Gruß Tino

Anzeige
Anpassung gescheitert ;-)
04.07.2009 14:37:08
Sebastian
Hallo,
ich dachte mir schon das das irgendwie über eine Schleife funktionieren muss. Ich habe jetzt mal versucht den Code von dir für meine Zwecke anzupassen auch wenn ich ihn nur in Teilen verstehe
Dim myAr, myList()
Dim W As Long, X As Long
myAr = Cells(zeiger, 4)
'myList groß genug Dimensionieren
ReDim Preserve myList(UBound(myAr) - 1)
'Daten Sammeln
For W = 1 To UBound(myAr)
If myAr(W, 1) "" Then
myList(X) = myAr(W, 1)
X = X + 1
End If
Next W
'auf nötige größe Dimensionieren
ReDim Preserve myList(X - 1)
'Datenliste an ListBox übergeben
Me.ListBox2.List = myList
Ab ReDim Preserve myList(UBound(myAr) - 1) gehts nicht weiter weil er sagt Typen unverträglich, leider komm auch ich an der Stelle nicht weiter da ich die Befehle ReDim, Preserve und UBound erst gar nicht einordnen kann ... leider
Wahrscheinlich liegt der Fehler aber schon im Rangeprozess oder,
ich habe versucht den üblichen Auswahlbereich zu übergeben mit
myAr = Cells(zeiger, 4)
LG Sebastian
Anzeige
AW: Anpassung gescheitert ;-)
04.07.2009 14:51:05
Tino
Hallo,
Cells(Zeiger,4) muß dein gesamter Datenberich sein. Wie in meinem Beispiel die Spalte A ab A2 bis zur letzten gefüllten in Spalte A.
Gruß Tino
Lösung gefunden
04.07.2009 15:09:46
Sebastian
Hallo Tino,
Cells(Zeiger,4) ist eigentlich der gesamte Datenbereich, zeiger bezieht sich auf Zelle 5 - letzte zelle und die 4 dann eben auf die gewünschte Spalte ...
Ich habe jetzt mal mit Schleifen rumgefriggelt und bin auf folgende Lösung gestoßen die wunderbar funktioniert:
Dim rngRange As Range
For Each rngRange In ActiveSheet.Cells(zeiger, 4) 'jede Zelle einzeln aus Auswahlbereich
If rngRange.Value "" Then 'nur wenn zellen beschrieben
ListBox2.AddItem rngRange.Value 'Eintrag in die Listbox übernehmen
End If
Next rngRange
damit klappts
LG und Vielen Dank Sebastian
P.S.: Mit welcher Anweisung kann ich den Code hier im Forum eigentlich als VBA-Code anzeigen lassen, so schön wie du ?
Anzeige
Zitat - <pre>...</pre> Gruß owT
04.07.2009 17:32:43
Luc:-?
:-?
AW: Code im Forum
04.07.2009 20:53:55
Sebastian
Hallo ihr zwei,
vielen Dank für die Tipps,
wird gleich mal getestet

Dim rngRange As Range
For Each rngRange In ActiveSheet.Cells(zeiger, 4) 'jede Zelle einzeln aus Auswahlbereich
If rngRange.Value  "" Then 'nur wenn zellen beschrieben
ListBox2.AddItem rngRange.Value 'Eintrag in die Listbox übernehmen
End If
Next rngRange


sieht schon gut aus, jetzt die Befehle noch in bunt, na ich mach mich mal schlau
LG Sebastian

AW: Code im Forum
04.07.2009 21:21:10
Tino
Hallo,
So wie ich deinen Code sehe, besteht dieser aus einer Zelle.
Da sollte eigendlich schon dies reichen.
If cells(Zeile,4) "" then
...
End if
Gruß Tino
Anzeige
AW: Code im Forum
05.07.2009 11:54:36
Sebastian
Hallo Tino,
nein der besteht nicht aus einer Zelle. Das ganze bezieht sich auf eine ganze Spalte definiert über Zeiger:

Dim Problemanzahl As Long
Dim zeiger As Long
Problemanzahl = Cells(Rows.Count, 4).End(xlUp).Row 'Anzahl Einträge in Spalte Probleme  _
ermitteln
For zeiger = 5 To Problemanzahl       'Beginnend in Zeile fünf bis zum Listenende


das heisst Cells(Zeiger,4) bezieht sich auf die Spalte 4 (mit den Problemen) und in der Spalte 4 auf die 5Zelle bis zum letzten Eintrag in der Spalte.
Ohne Schleife mit nur einer Zeile komme ich da nicht aus denke ich, so habe ich dich jetzt verstanden
LG Sebastian

Anzeige
AW: Code im Forum
05.07.2009 12:06:01
Tino
Hallo,
For Each rngRange In ActiveSheet.Cells(zeiger, 4)
Ist doch eine Schleife über genau eine Zelle? Oder nicht!
Anstatt

Dim rngRange As Range
For Each rngRange In ActiveSheet.Cells(zeiger, 4) 'jede Zelle einzeln aus Auswahlbereich
If rngRange.Value  "" Then 'nur wenn zellen beschrieben
ListBox2.AddItem rngRange.Value 'Eintrag in die Listbox übernehmen
End If
Next rngRange


zu schreiben, müsste dies doch den gleichen Zweck erfüllen.


If ActiveSheet.Cells(zeiger, 4)  "" then
ListBox2.AddItem ActiveSheet.Cells(zeiger, 4).value
End If


Gruß Tino

Anzeige
Auch das geht (für mich seltsamerweise)
05.07.2009 12:31:57
Sebastian
Hallo Tino,
hab deinen Versuch gerade mal ausprobiert und ja es funktioniert,
wobei ich nicht so recht schnalle wieso. Er fragt ja nicht nur eine Zelle ab sondern auch hier dann den ganzen Auswahlbereich! Das können je nachdem bis über 100 Zellen und mehr sein ... so recht verstehen kann ich das noch nicht ... aber ich bin ja auch kein Experte ;-)
LG Sebastian
AW: Auch das geht (für mich seltsamerweise)
05.07.2009 13:07:14
Tino
Hallo,
weil die Variable Zeiger den Wert von der For Next Schleife bekommt.
Gruß Tino
Geschnallt ;-)
05.07.2009 14:38:11
Sebastian
Stimmt, da ist ja schon eine Schleife

For zeiger = 5 To Problemanzahl       'Beginnend in Zeile fünf bis zum Listenende
If ActiveSheet.Cells(zeiger, 4)  "" Then
ListBox2.AddItem ActiveSheet.Cells(zeiger, 4).Value
End If
Next


hab ich ganz verdrängt, dank dir nochmal
LG Sebastian

Anzeige

301 Forumthreads zu ähnlichen Themen

Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Anzeige
nur freigegebene Zellen kopieren
Stefan

Hallo Zusammen,
habe ein kleines Problem...
Möchte gerne aus einer Alten XLS eine Spalte 8 in die neue XLS übernehmen.
Bringt mir jedoch eine Fehlermeldung.
Grund: es gibt in der Spalte einige Zeilen die schreibgeschützt sind.
Wie kann ich nur die nicht gesperrten Zellen kop...
10.08.2010 09:04:57
Thread-ID: 1171356
5 Beiträge
Alle Zellen mit Kommentaren farblich markieren
Ralph P.

Hallo.
Ich möchte in einer Excel-Tabelle alle Zellen farblich markieren, die einen Komentar enthalten. Mein Ansatzt ist dieser:Sub mark()laRow = Cells(Rows.Count, 1).End(xlUp).Row
laCol = Cells(Columns.Count).End(xlToLeft).Column
For col = 1 To laCol For Row = 1 To laRow
Cell...
29.04.2002 11:46:36
Thread-ID: 117105
4 Beiträge
Anzeige
Alle folgenden Zellen markieren, bis leere kommen.
T.

Hallo Ekschpärt`n,
Frage an euch: Von einer aktiven Zelle aus sollen alle danach folgenden, in denen ein Wert enthalten ist, solange markiert werden, bis zwei aufeinanderfolgende leere Zellen kommen.
Also beispeilsweise von A1 ab bis A9 durchmarkieren (neun Zellen markiert), um diese zu...
06.10.2012 18:29:45
Thread-ID: 1280786
22 Beiträge
Nur Zellenwert kopieren nicht Formel in Zelle
MPH

Hi Leute habe wieder ein Problemchen.
ich würde gerne einen Zellenwert in eine andere Zelle kopieren.
Problem ist aber , wenn ich es so mache:
Private Sub CommandButton_Click() Worksheets(Verbindung").Range("i2:w2").copy Destination:=Worksheets("Verbindung").Range("aa1: _ Ap1") End...
04.12.2012 14:59:14
Thread-ID: 1289260
13 Beiträge
nur ausgefüllte zellen kopieren
rahel

wie kann ich mit einem makro aus einem excel-tabellenblatt nur den bereich in die zwischenablage kopieren, der einträge enthält?
17.06.2002 16:25:29
Thread-ID: 129253
6 Beiträge
Nur Zellen mit Inhalt markieren
Fuchs


Hallo Leute.
ich bin gerade dabei riesige mengen an alten *.txt dateien in exel reinzukloppen ;-) Gibt es ein makro mit dem ich nur die zellen markieren kann, die einen inhalt haben?
Schon mal vielen dank!

20.06.2002 14:12:12
Thread-ID: 130181
2 Beiträge
Nur 2 Zellen kopieren, nicht ganze Zeile
Alex

Guten Morgen!
Bei meinem Code wird ein über InputBox abzufragender Wert in einer Tabelle gesucht und die FundZEILE in ein neues Tabellenblatt kopiert.
Ich will aber dass nur die Fundzelle in das neue Tabellenblatt kopiert wird, wie geht das?
Zusätzlich sollte noch die dazugehörige Z...
01.02.2013 09:10:47
Thread-ID: 1297066
12 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
20
2
4
3
3
21
12
5
1
11
3
7
3
7
3
3
6
4
5
5
4
7
9
1
12