Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile ohne Leerzellen in Combobox einlesen

Zeile ohne Leerzellen in Combobox einlesen
16.09.2018 22:11:22
Toni
Hallo liebe Excelfreunde,
ich bin gerade auf der Suche und komme mit dem, was ich mir hier zusammen gesucht habe nicht recht weiter. Vielleicht könnt Ihr mir da helfen, das wäre sehr nett!
Es sollen alle beschriebenen Zellen in Zeile1 in einer Combobox als Liste zur Auswahl stehen. Ich hätte gedacht so:
ComboBox1.List = WorksheetFunction.Transpose(Range("A1:" & Cells(1, Columns.Count).End(xlToLeft).Column & "1").Value)
funktioniert aber nicht im Ansatz, leider.
Ich würde mich sehr über Lösungen freuen. Vielen Dank!

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile ohne Leerzellen in Combobox einlesen
16.09.2018 23:31:15
Toni
Hallo,
hab mit Probieren eine wenn auch sicher etwas umständliche Möglichkeit gefunden. Das Ergebnis für die Gallerie:
Private Sub UserForm_Initialize()
Dim i As Integer
Dim letzteSpalte As Integer
letzteSpalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
With ComboBox1
For i = 1 To letzteSpalte
If ActiveWorkbook.ActiveSheet.Cells(1, i).Value  "" Then
.AddItem (ActiveWorkbook.ActiveSheet.Cells(1, i).Value)
.ListIndex = 0
End If
Next
End With
End Sub
Grüße!
AW: Zeile ohne Leerzellen in Combobox einlesen
17.09.2018 01:15:54
Gerd
Hallo Toni,
noch eine Alternative. 
Private Sub UserForm_Initialize()
Comobox1.Clear
Tabelle1.Rows(1).SpecialCells(xlCellTypeConstants).Copy Tabelle2.Cells(1, 1)
ComboBox1.Column = Tabelle2.Cells(1, 1).CurrentRegion.Value
ComboBox1.ListIndex = 0
End Sub

Gruß Gerd
Anzeige
AW: Zeile ohne Leerzellen in Combobox einlesen
17.09.2018 10:57:14
Toni
Hallo Gerd,
erst einmal vielen Dank für diese Variante. Die Zeilenansprache und das Abspeichern in anderer Tabelle werde ich mir vormerken! Kann man immer brauchen.
Noch funktioniert sie aber nicht ganz und ich bin am knobeln woran das liegen könnte. Ich hatte eine Idee mit ActiveWorkbook - dass das erst noch mitgegeben werden muss, war es aber nicht. Die Datei habe ich mal angehängt. Der Code enthält zusätzlich eine abh. Textbox - muss aber nicht weiter interessieren.
https://www.herber.de/bbs/user/124011.xlsm
Hast Du da eine Idee?
Vielen Dank nochmal!
Anzeige
auf offen gesetzt owT
17.09.2018 11:06:42
Toni
AW: auf offen gesetzt owT
17.09.2018 11:22:46
EtoPHG
Hallo,
1. In Gerds Vorschlag war ein Typo Comobox1 statt ComboBox1.
2. Du hast den Sub Namen modifiziert! Lass die Finger von solchen Sachen! Kopiere den Code genau so (ohne Änderungen!) in das Klassenmodul der Userform : 
Private Sub UserForm_Initialize()
ComboBox1.Clear
Tabelle1.Rows(1).SpecialCells(xlCellTypeConstants).Copy Destination:=Tabelle2.Cells(1, 1)
ComboBox1.Column = Tabelle2.Cells(1, 1).CurrentRegion.Value
ComboBox1.ListIndex = 0
End Sub
Gruess Hansueli
Fall geklärt
17.09.2018 11:29:00
Toni
aaah hilfe, es funktioniert :))
Scheibenkleister, das hätte ich auch selbst finden müssen. Danke an das geschulte Auge.
zu 2. war dann das Ergebnis meines Rumprobierens. Ich nehme mir Deinen Tipp zu Herzen.
Danke Hansueli, einen schönen Tag noch!
Anzeige

311 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Wert aus Matrix wenn Zelle nicht leer
petra

Hallo Zusammen,
brauche dringend Hilfe. Hoffe ihr wisst eine Lösung, also folgendes Problem:
Ich möchte aus einer zweidimensionalen Matrix einen Wert anhand von 2 Suchkriterien herausfiltern.
....A B C D E
1. a b c d e
2..x ö.1....5
3..y ä....4
4..z ü.3
Wenn...
15.04.2009 13:39:28
Thread-ID: 1068877
2 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox TextBox

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
5
2
9
2
1
4
7
2
7
1
23
12
1
23
6
9
2
4
6
10
1
2
6
9
4