Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ComboBox befüllen in Abhängigkeit einer 2. Spalte

ComboBox befüllen in Abhängigkeit einer 2. Spalte
25.02.2007 15:02:00
Josef
Hallo!
Ich habe in der Spalte A ab A2 Nummrn stehen.
Diese werden in eine ComboBox einer UserForm eingelesen.
Nun möchte ich folgendes erreichen.
Ist in der Spalte B ein Wert eingetragen dann soll die Nummer links in der Spalte A nicht in die ComboBox eingelesen werden. Ist kein Wert in der Spalte B vorhanden so soll die nummer in die comboBox eingelesen werden. Wie würde hier bitte eine VBA Lösung aussehen?
Beispiel:
Spalte A 1234560 Wert in Spalte B vorhanden: Nummer 1234560 soll nicht eingelesen werden.
Spalte A 1234560 Wert in Spalte B nicht vorhanden: Nummer 1234560 soll eingelesen werden.
Danke
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: ComboBox befüllen in Abhängigkeit einer 2. Spalte
25.02.2007 16:13:59
IngGi
Hallo Josef,
folgendes Makro kommt in's Modul des UserForm(ulars). Die Namen der ComboBox und des Tabellenblattes musst du natürlich noch anpassen.

Private Sub UserForm_Initialize()
Dim cb As ComboBox
Dim Bereich As Range
Dim rng As Range
Set cb = ComboBox1
With ThisWorkbook.Sheets("Tabelle1")
   Set Bereich = .Range("A2:A" & .Range("A65536").End(xlUp).Row)
End With
For Each rng In Bereich
   If rng.Offset(0, 1) = "" Then
      cb.AddItem
      cb.List(cb.ListCount - 1) = rng
   End If
Next 'rng
cb.ListIndex = 0
End Sub

Gruß Ingolf
Anzeige
AW: ComboBox befüllen in Abhängigkeit einer 2. Spalte
25.02.2007 16:33:07
Josef
Hallo Ingolf!
Danke für Deine Antwort.
Habe es getestet. würde auch alles bestens funktionieren. nur wenn ich über die Textboxen einen Wert eingebe, dann wird dieser in die falsche Zeile geschrieben. wo kann ich hier bitte den Fehler gemacht haben?
https://www.herber.de/bbs/user/40668.xls
Danke
Josef
AW: ComboBox befüllen in Abhängigkeit einer 2. Spalte
25.02.2007 17:17:28
stormy_weathers
Hallo Josef,
das Programm arbeitet richtig. Du beziehst Dich auf den Index der Combobox 1 und der ist nicht gleich der Zeile in die du reinschreiben möchtest. Ich würde in solch einem Fall den Zeilenwert in ein nicht sichtbares Element schreiben.
Gruß
stormy
Anzeige
AW: ComboBox befüllen in Abhängigkeit einer 2. Spalte
25.02.2007 17:30:00
Josef
Hallo stormy1
Danke für Deine Antwort.
Die Lösung von Ingolf war ja auch einwandfrei und perfekt.
Den Fehler, so glaube ich, habe ich hier gemacht:
Dim R&
If ComboBox1.ListIndex = -1 Then
R = Cells(Rows.Count, 1).End(xlUp).Row + 1
Else
R = ComboBox1.ListIndex + 2
End If
Cells(R, 2).NumberFormat = "@"
Cells(R, 2) = TextBox1.Text
Nur : den Zeilenwert in ein nicht sichtbares Element schreiben übersteigt derzeit mein VBA Wissen.
Mit R = Cells(Rows.Count, 1).End(xlUp).Row + 1 nehme ich ja wieder alle Einträge der Spalte A rein und gehe damit ja nicht vom Eintrag der ComboBox1 aus. Nehme ich mal an.
Josef
Anzeige
AW: ComboBox befüllen in Abhängigkeit einer 2. Spalte
25.02.2007 20:16:00
IngGi
Hallo Josef,
anhand deiner Datei kann ich zwar nicht nachvollziehen, in welche Zeile geschrieben werden soll, möglicherweise liegt es aber daran, dass der ListIndex nicht bei 1, sondern bei 0 beginnt?
Gruß Ingolf
AW: ComboBox befüllen in Abhängigkeit einer 2. Spalte
25.02.2007 20:29:27
Josef
Hallo Ingolf!
Danke für Deine Antwort.
Wenn in der ComboBox1 z.B. 1234560 aktiviert wird und diese Zahl in der Zelle A10 wäre, dann sollen die Einträge in den Textboxen in die Zellen B10,C10 und D10 geschrieben werden. Nach neuerlichem Aufruf dürfte dann dank Deiner ersten Lösung die Nummer 1234560 nicht mehr aufscheinen.
Josef
AW: ComboBox befüllen in Abhängigkeit einer 2. Spalte
25.02.2007 20:46:22
Josef
Hallo Ingolf!
Habe da jetzt was zusammengebastelt.
Aufruf des Datensatzes über die cboliste.
Nach dem drücken des CommandButton1 werden die Daten in die richtige Zeile geschrieben und die übrigen Datensätze welche noch keinen Eintrag in der Spalte B haben werden in die ListBox1 eingetragen.
mit einem klick auf einen Datensatz in der ListBox wird die richtige Zeile aktiviert und man kann einen neuen Eintrag durchführen.
Der Schönheitsfehler dabei.
In der Listbox ist der erste Eintrag nicht anklickbar. Warum weiss ich nicht.
Zweitens muß die ComboBox1 ebenfalls vorhanden sein sonst funktioniert der Eintrag in die Listbox nicht.
Besser wäre es sicher wenn sich nach einem Eintrag in der ComboBox1 bereits die Daten nach einem Eintrag minimieren.
https://www.herber.de/bbs/user/40674.xls
Josef
Anzeige

303 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
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
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox 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
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3