Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listindex einer Kombobox auf 0 setzen

Listindex einer Kombobox auf 0 setzen
25.04.2003 10:26:48
Jens
Guten Morgen,

ich habe ein kleines Problem mit einer Kombobox. Diese soll mir beim Start des UserForms eine Aufzählung einiger Daten auflisten. Das macht sie auch - allerdings ist der Wert 0 nicht belegt, bzw. sichtbar. Dort sollte der Wert der Zelle C4 stehen und nicht einfach leer sein. Ich habe dazu folgende codes ausprobiert und eine Anweisung erstmal auskommentiert:

'zeile = cbo_auswahl.ListIndex + 4
'txt_aebenötigt.Text = Sheets("Dienstleistungen").Cells(zeile, 5)
cbo_auswahl.RowSource = "Dienstleistungen!C4:C120"
cbo_auswahl.ListIndex = 0

Der Listindex wird leider nicht übernommen und die Box ist leer wenn man das UserForm startet.
Wie kann ich mir gleich den ersten Wert anzeigen lassen statt das blanke Entsetzen :-)?

Gruß
Jens

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
TopIndex o.T.
25.04.2003 10:41:07
Michael Schefler

Re: Listindex einer Kombobox auf 0 setzen
25.04.2003 10:43:10
Nike
Hi,
versuchs mal so:
Private Sub UserForm_Initialize()
ComboBox1.ListIndex = 0
End Sub

Bei mir schnackelt`s,
ich hatte dir Werte vorher in den Eigenschaften belegt...

Bye

Nike

Re: Listindex einer Kombobox auf 0 setzen
25.04.2003 10:46:38
Klaus-Dieter
Hallo Jens,

so sollte es gehen:


Private Sub UserForm_Initialize()

    cbo_auswahl.RowSource = "Dienstleistungen!C4:C120"

    cbo_auswahl.ListIndex = 0

End Sub

Wichtig ist die Anweisung Initialize hinter UserForm, damit werden die Parameter beim Öffnen von der UserForm übernommen.

Code eingefügt mit: Excel Code Jeanie

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite


Anzeige
Re: Listindex einer Kombobox auf 0 setzen
25.04.2003 11:32:25
Jens
Leider bleibt die erste Zeile immer noch leer.

Was event. noch anzufürgen wäre, ist dass die Auswahl der Werte Durch die Kombobox, eine Ausgabe an ein Textfeld übergeben soll.

Private Sub cbo_auswahl_Change()
zeile = cbo_auswahl.ListIndex + 4
txt_aebenötigt.Text = Sheets("Dienstleistungen").Cells(zeile, 5)
End Sub

so hatte es funktioniert - nur das 1. Feld der Kombo bleit leer.

TopIndex die 2. - aus der Hilfe:
25.04.2003 11:37:05
Michael Scheffler
Legt das Element fest, das in der obersten Position der Liste angezeigt wird, oder gibt dieses zurück.
Re: TopIndex die 2. - aus der Hilfe:
25.04.2003 11:42:17
Jens
Das stimmt und passt ja auch soweit. Aber die Box ist blank wenn ich das UF starte.
Anzeige
Re: TopIndex die 2. - aus der Hilfe:
25.04.2003 12:43:54
Michael Scheffler
Hi,

ja, Du hast in dem Code ja auch keinen TopIndex - zumindest hast Du das nnicht gepostet. Poste doch mal den neuen Code!

Gruß

Micha

Re: TopIndex die 2. - aus der Hilfe:
25.04.2003 12:49:20
Jens
Also das 1. was momentan hier deaktiviert ist, klappt soweit, nur überträgt es nicht den Wert von der KomboBox in ein Textfeld, was aber sein muss.

'Private Sub UserForm2_Initialize()
'cbo_auswahl.RowSource = "Dienstleistungen!C4:C120"
'cbo_auswahl.ListIndex = 0
'End Sub

Und mit dem 2. Code hier bleibt es halt beim Starten blank, schreibt dafür meinen entsprechenden Wert.

Private Sub cbo_auswahl_Change()
zeile = cbo_auswahl.ListIndex + 4
txt_aebenötigt.Text = Sheets("Dienstleistungen").Cells(zeile, 5)
End Sub

Anzeige
Re: TopIndex die 2. - aus der Hilfe:
25.04.2003 13:06:54
Klaus-Dieter
Hallo Jens,

so funktioniert das Eintragen, bin aber nicht sicher, ob das wirklich das gewünschte Ergebnis ist.


Option Explicit

Private Sub cbo_auswahl_Change()

Dim zeile As Integer

    zeile = cbo_auswahl.ListIndex + 4

    Sheets("Dienstleistungen").Cells(zeile, 5) = cbo_auswahl.Text

End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Klaus-Dieter
Klaus-Dieter's Excel und VBA Seite

Anzeige
Re: TopIndex die 2. - aus der Hilfe:
25.04.2003 13:19:32
Jens
Hilft nicht weiter,
weil die Box immer noch blank da steht und die Werte nicht übernommen werden.
Re: TopIndex die 2. - aus der Hilfe:
25.04.2003 13:35:18
Klaus-Dieter
Hallo Jens,

bei mir funktioniert das, wenn du willst, dann schick mir die Tabelle mal zu. Dann sehe ich mir das an.

Gruß Klaus-Dieter

Werte in richtige Zellen ablegen
25.04.2003 13:55:52
Jens
Habe da noch eine weitere Frage,

in meiner Datei befinden sich ca. 33 Mappen, 31 davon sind mit 1 - 31 als Tage benannt worden. Durch ein UserForm und dessen Textfelder sollen eingegebene Werte in passende Zellen per Schaltfläche übertragen werden.
Das UF steht fertig. Es soll aber, wenn ich auf den Button Dateneingabe drücke, die Abfrage kommen, welche Mappe gewählt werden soll.

Desweiteren sind die Tages-Mappen mit Zeiten ausgestattet: in Zelle A2 steht 8:00-8:15 usw. im Viertelstundentakt bis A41 17:45-18:00.
Da sollte die 2. Abfrage kommen, die danach fragt, wann bestimmte Tätigkeiten gemacht wurden. Sollte nach Möglichkeit auch mehrere Zeiten mit den Werten zu belegen gehen, also von 8:00-8:15 und 8:15-8:30 usw. gleichzeitig.

Kann mir da jemand weiterhelfen?

Gruß
Jens



Anzeige
Re: TopIndex die 2. - aus der Hilfe:
25.04.2003 13:59:30
Jens
Sorry - darf ich nicht. Vom Chef verboten!
Re: TopIndex die 2. - aus der Hilfe:
25.04.2003 21:33:42
Klaus-Dieter
Hallo Jens,

die Tabelle ohne Daten würde reichen. Ich brauche nur die Spaltenüberschriften, die Namen der Blätter und die Makros.

Gruß Klaus-Dieter

141 Forumthreads zu ähnlichen Themen

Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Anzeige
Verweis auf MS Forms 2.0 setzen per Vba
Reinhard

Hallo Wissende,
ich will eine xla erstellen, die den Verweis auf Microsoft Forms 2.0 Object Libraray benötigt. Der Verweis zielt in XL97 auf eine andere Datei als in XL2000, deshalb sind auch die Guid-Nummern verschieden.
Option Explicit #If VBA6 = 0 Then Const FM20_GUID = "{C43ABEE0-...
06.11.2008 16:57:01
Thread-ID: 1022358
6 Beiträge
Zellen über Button auf 0 setzen
m-andi

Guten morgen,
Ich habe folgendes Problem:
Ich möchte auf der Ersten Seite meiner Excel-Mappe einen Butten haben mit dem ich einzelne Felder in der Gesamten Arbeitsmappe Löschen kann.
Also z.B. auf dem Blatt 2 die Felder A12:A18; B23; dann auf Blatt 2 C60; D34; auf Blatt 3 C2:F12; us...
08.12.2008 08:45:18
Thread-ID: 1030970
2 Beiträge
Anzeige
Wenn kein Eintrag dann 0
Alex

Hi @ all!
Habe ein kleines Problem:
Habe folgende Formel, aber es wird immer Divison durch Null angezeigt...
=WENN(H3=" ";"0";H3/F3)
Ich quasi nur Teilen, wenn in H3 ein Eintrag vorhanden ist, oder eben wenn kein Eintrag vorhanden ist soll 0 da stehen...
Vielen Dank schon ma...
14.07.2009 12:41:15
Thread-ID: 1088433
5 Beiträge
VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Tool/Tabelle wieder auf 0 setzen
Christopher

Hi Leute,
ich hätte da eine Frage und zwar habe ich ein Makro angelegt mit dem ich eine Wertekopie erstellen kann. Im nächsten Schritt wäre es super wenn die Tabelle oder das Tool Kontierung wieder auf 0 gesetzt werden würde? Wie mache ich das am besten?
Hier mein Makro:
Sub Werteko...
22.09.2009 10:33:57
Thread-ID: 1104587
13 Beiträge
#NV in 0 umwandeln
rainer
Hallo! Die NV# entstehen duech Formeln, für die kein Wert berechnet werden konnte. Modifiziere deine Formel analog zu:
vorher: Zelle A1:(Formelxy)
nachher: wenn (istfehler(formelxy);0;formel(xy))
15.04.2002 11:51:26
Thread-ID: 113365
4 Beiträge
Zelleneintrag "1200" in Uhrzeit 12:00 umwandeln
',," (2x Komma) Durch:':' (Doppelpunkt).Nun kannst Du 'komfortabel' auf dem Ziffernblock 2 Kommas eingeben; der Doppelpunkt eird generiert.Ansonsten als Ansatz fogende VBA-Makros von Michael Schwimmer:
16.04.2002 10:15:59
Thread-ID: 113633
2 Beiträge

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
11
6
5
1
7
4
2
12
3
1
8
7
4
6
4
6
6
11
3
4
3
4
9
4
3