Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox "erster" Wert

Forumthread: Combobox "erster" Wert

Combobox "erster" Wert
ing.grohn
Hallo Forum,
ich habe Probleme mit einer Combobox.
Ich lese Daten aus einer Tabelle in die Combobox ein, klicke auf Pfeil nach unten:
Alle Sätze sind sichtbar/da!
Alle Sätze können gewählt werden (übernommen in Textbox 1), nur der erste nicht!
Warum wird der "erste" nicht übernommen?
Für eine Antwort an diesem sonnigen Sonntag bedanke ich mich!
Hier die Beispieldatei:
https://www.herber.de/bbs/user/71839.xls
Mit freundlichen Grüßen
Albrecht
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Combobox "erster" Wert
10.10.2010 14:13:21
Dirk
Hallo!
Ich habe mal die Datei geladen, aber ich finde keine Routine, welche die userform initialisiert, noch sehe ich irgendwo das die Userform aufgerufen wird.
Kannst Du mal erklaeren, wie die Userform bei Dir erscheint?
gruss
Dirk aus Dubai
AW: Combobox "erster" Wert
10.10.2010 14:45:03
ing.grohn
Hallo Dirk,
hab ich vergessen: ich hab die Userform (Userform1)aus der Umgebung gestartet (ganz von Hand, F5)
sorry!
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Combobox "erster" Wert
10.10.2010 14:45:04
ing.grohn
Hallo Dirk,
hab ich vergessen: ich hab die Userform (Userform1)aus der Umgebung gestartet (ganz von Hand, F5)
sorry!
Mit freundlichen Grüßen
Albrecht
AW: Combobox "erster" Wert
10.10.2010 14:52:19
Hajo_Zi
Hallo Albrecht,
bei mir wird kein Wert übenommen, da ich keinen auswählen kann da ComboBox Leer. Ich habe mit F5 gestartet.

Anzeige
AW: Combobox "erster" Wert
10.10.2010 15:06:55
ing.grohn
Hallo Hajo,
gib mal als Suchbegriff "grohn" ein und dann Pfeil runter
Mit freundlichen Grüßen
Albrecht
AW: Combobox "erster" Wert
10.10.2010 15:11:19
Hajo_Zi
Hallo Albrecht, 

der Listindex für die erste Zeile ist -1 und mit >=0  hast Du den ausgeschlossen.

Gruß Hajo
Anzeige
AW: Combobox "erster" Wert
10.10.2010 15:18:40
ing.grohn
Hallo Hajo,
wenn ich die If Abfrage ausblende oder ab -1 beginnen lasse erhalte ich die Meldung, daß der Listindex (zeigt mir -1 im Debugger) falsch ist .
Wie bekomme ich die DAten in die Textbox?
Mit freundlichen Grüßen
Albrecht
AW: Combobox "erster" Wert
10.10.2010 15:59:37
Hajo_Zi
Hallo Albrecht,
ich habe mir das jetzt mal ein wenig intensiver angesehen. Ich habe keine Grunfd gefunden warum der -1 ist. Ich kann nur vermuten bei der Zuweisung der Daten hast Du was falsch gemacht.
Wird die Liste direkt zugewiesen und in der Userform ist nur das Change Ereignis aktiv, dann wird auch der erste Datensatz angezeigt.
Es ist mir zu aufwendig mich in Deinen Code zur Zuweisung einzuarbeiten.
Gruß Hajo
Anzeige
AW: Combobox "erster" Wert
10.10.2010 16:35:48
ing.grohn
Hallo Hajo,
die einzelnen Werte werden über eine Schleife mit:

With frm2.ComboBox1
.AddItem Cells(Val(Zeile), 2)
.List(I, 1) = Cells(Val(Zeile), 3)
.List(I, 2) = Cells(Val(Zeile), 4)
.List(I, 3) = Cells(Val(Zeile), 5)
.List(I, 4) = Cells(Val(Zeile), 6)
.List(I, 5) = Cells(Val(Zeile), 22)
I = I + 1
End With

zugewiesen.
MfG
Albrecht
Anzeige
;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Anzeige
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Anzeige
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
Anzeige
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
"Workbook"-Zugriff auf AddIn
Stefan

Hallo,
wie kann man auf eine Arbeitsmappe, z.B. auf Worksheets der Mappe zugreifen, wenn diese als AddIn gespeichert und geöffnet wird (egal ob installiert oder nicht) ?
Wo finde ich die geöffnete AddIn-Mappe, nicht in in der Workbooks-Auflistung, und wenn das AddIn nicht installiert is...
12.08.2008 21:23:00
Thread-ID: 1001316
6 Beiträge
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
ein Sheet "unlöschbar" machen
Daniel

Hallo zusammen!
Hätte mal wieder ne Frage!
kurz zur Info: Ich möchte ein Sheet in einer Arbeitsmappe per Mako unlöschbar, unbeschreibbar etc. machen und das ganze auch wieder aufheben....
Das mit dem unbeschreibbar geht auch ganz gut mit ThisWorkbook.Sheets(2).Protect password:="xx...
13.08.2008 11:11:00
Thread-ID: 1001439
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Combobox "erster" Wert in Excel VBA

Schritt-für-Schritt-Anleitung

Um das Problem mit der Combobox und dem ersten Wert zu lösen, folge diesen Schritten:

  1. Userform erstellen: Stelle sicher, dass Du eine Userform (z.B. Userform1) in Deinem VBA-Projekt hast.

  2. Combobox hinzufügen: Füge eine Combobox (z.B. ComboBox1) zur Userform hinzu.

  3. Daten einfügen: Verwende den folgenden VBA-Code, um Daten in die Combobox einzufügen:

    Dim I As Integer
Dim Zeile As Integer
For Zeile = 1 To 10 ' Beispiel für 10 Zeilen
   With Userform1.ComboBox1
       .AddItem Cells(Zeile, 1).Value ' Erster Wert
       .List(I, 1) = Cells(Zeile, 2).Value
       I = I + 1
   End With
Next Zeile

  4. Event-Handler hinzufügen: Stelle sicher, dass Du das Change-Ereignis der Combobox wie folgt implementierst:

    Private Sub ComboBox1_Change()
   TextBox1.Value = ComboBox1.Value
End Sub

  5. Userform testen: Starte die Userform mit F5 und prüfe, ob der erste Wert korrekt angezeigt wird.

Häufige Fehler und Lösungen

  • Fehler: Listindex -1: Wenn Du den Fehler erhältst, dass der Listindex -1 ist, liegt das oft daran, dass noch kein Wert ausgewählt wurde. Stelle sicher, dass Du die Items korrekt in die Combobox einfügst.
  • Lösung: Überprüfe, ob Du die Werte in der Combobox mit .AddItem korrekt hinzufügst und dass die Schleife die richtigen Zellen referenziert.

Alternative Methoden

Falls Du Schwierigkeiten mit der oben beschriebenen Methode hast, gibt es alternative Ansätze:

  • Direkte Zuweisung: Du kannst die Werte direkt aus einer Tabelle zuweisen, ohne eine Schleife zu verwenden, indem Du die gesamte Liste auf einmal übergibst.
  • Datenquelle: Wenn Du eine große Datenmenge hast, erwäge die Verwendung eines Datenbereichs als Quelle für die Combobox.

Praktische Beispiele

Hier sind einige Beispiele, wie Du die Combobox in verschiedenen Szenarien verwenden kannst:

  1. Daten aus einer Tabelle: 

    Userform1.ComboBox1.List = Application.Transpose(Range("A1:A10").Value)

  2. Dynamische Daten: Bei Änderungen in einer bestimmten Zelle kannst Du die Combobox automatisch aktualisieren:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A1")) Is Nothing Then
       Userform1.ComboBox1.List = Application.Transpose(Range("A1:A10").Value)
   End If
End Sub

Tipps für Profis

  • Verwende Error Handling: Integriere Fehlerbehandlung in Deinen Code, um Probleme bei der Zuweisung der Werte abzufangen.
  • Benutzerfreundlichkeit: Füge Platzhaltertexte in die Combobox ein, um den Benutzern zu helfen, den ersten Wert leichter zu wählen.
  • Datenvalidierung: Achte darauf, dass die Daten, die in die Combobox geladen werden, korrekt und relevant sind.

FAQ: Häufige Fragen

1. Warum wird der erste Wert in der Combobox nicht übernommen? Das kann passieren, wenn der Listindex der Combobox auf -1 steht. Achte darauf, dass Du die Items korrekt hinzufügst und dass die Change-Ereignisse ordnungsgemäß implementiert sind.

2. Wie kann ich die Combobox automatisch aktualisieren? Nutze das Worksheet_Change-Ereignis, um die Combobox automatisch zu aktualisieren, wenn sich die Daten in der entsprechenden Tabelle ändern.

3. Kann ich mehrere Werte gleichzeitig in die Combobox einfügen? Ja, Du kannst eine gesamte Liste auf einmal über die .List-Eigenschaft der Combobox zuweisen, indem Du einen Datenbereich referenzierst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige