Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1664to1668
1664to1668
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Ja/Nein Listbob mit default Wert vorbelegen

Forumthread: Ja/Nein Listbob mit default Wert vorbelegen

Ja/Nein Listbob mit default Wert vorbelegen
03.01.2019 12:00:57
Martin
Hallo,
per Makro Recorder kann ich über folgenden Code einer Zelle eine Ja/Nein Listboxauswahl über Daten->Datenüberprüfung->List eintragen.
Hier das Ergebnis des Recorders: 
Sub Makro3()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Ja;Nein"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Ich würde nun "Ja" gerne als Default Wert schon vorbelegen. Finde dazu aber leider nix über google.de.
Hat jemand einen Tip? Danke im Voraus!
Gruß Martin
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ja/Nein Listbob mit default Wert vorbelegen
03.01.2019 12:05:13
JoSi
Hi Martin,
so?
Sub Makro3()
With Selection
With .Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Ja;Nein"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
.Value = "Ja"
End With
End Sub

Anzeige
AW: Ja/Nein Listbob mit default Wert vorbelegen
03.01.2019 12:11:20
JoSi
Und du solltest hier noch ein Leerzeichen einfügen:
Formula1:="Ja; Nein"
Gruß
AW: Ja/Nein Listbob mit default Wert vorbelegen
03.01.2019 12:20:18
Martin
Danke dir JoSi.
Habs nun alles zusammen:
Sub ListboxEintragenMitJaNein()
With Worksheets("Tabelle1").Cells(3, 3)
With .Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Ja,Nein"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
.Value = "Nein"
End With
End Sub



Sub ListboxLöschenUndInhaltLeeren()
With Worksheets("Tabelle1").Cells(3, 3)
With .Validation
.Delete
End With
.Value = ""
End With
End Sub

Anzeige
AW: Ja/Nein Listbob mit default Wert vorbelegen
03.01.2019 12:24:59
JoSi
Okay perfekt.
Bitte...
AW: Ja/Nein Listbob mit default Wert vorbelegen
03.01.2019 12:09:47
Martin
Noch eine ergänzende Frage dazu.
Kann ich hier irgendwie Cells() mit einbauen? Damit ich im Code vorgeben kann in welchen Zellen die Listbox jeweils eingetragen werden soll?
Und wie krieg ich die Listbox per VBA in der Zelle mit Cells Verweis wieder gelöscht?
Anzeige

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 13:08:49
Thread-ID: 1006360
5 Beiträge
Anzeige
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 10:22:11
Thread-ID: 1021766
4 Beiträge
Anzeige
Jede Zahlenwertänderung mit Blinken der Zelle
Steffi

anzeigen.
Ist sowas möglich? HAt jemand eine Idee?
Soll nur einmal blinken, also kein Dauerblinken.
LG
Steffi
07.11.2008 20:28:58
Thread-ID: 1022795
4 Beiträge
Zellen mit bestimmtem Wert leeren
P.Mackes

ich möchte innerhalb einer gewählten range alle Zellen, die einen bestimmten Wert enthalten einfach leeren, also nicht löschen, sondern quasi den effekt, wenn man in die zelle geht und entfernen drückt
hat da jemand ein handliches makro parat?
mfg, Peter
03.12.2008 09:52:34
Thread-ID: 1029679
7 Beiträge
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 17:07:00
Thread-ID: 1051203
1 Beitrag
Letzte Zelle mit konstantem Wert in Excel
Daniel

Hallo zusammen,
mit welchem VBA-Befehl komme ich an die letzte Zeile mit einem konstantem Wert (KEINE Formel!!) in einem Excel-Blatt? (Mit Cells(Rows.Count,1).End(xlUp).Row bekomme ich ja die letzte Zeile mit einer Formel zurückgeliefert)
Vielen Dank für eine Antwort!
04.05.2009 16:37:38
Thread-ID: 1072763
17 Beiträge
Anzahl Zellen mit gleichen Inhalt / welcher Wert?
StefanS

Hallo zusammen,
...und schon wieder ich - konnte im Archiv nichts finden!
Für Euch bestimmt suuuper einfach, für mich die Hölle.
Ich möchte gerne überprüfen, ob in der Spalte B:B Zellen mit gleichen Inhalt doppel oder mehrfach vorhanden sind und wenn ja, welchen Wert diese Zellen ha...
14.05.2009 16:06:36
Thread-ID: 1075153
4 Beiträge
Leere Zelle mit Wert?
André

Moin zusammen,
einen ungewöhnlichen Fehler habe ich in einer Excel-Datei (nicht von Excel selbst erzeugt). Eine Formel, die eigentlich nur ein paar Zahlen addieren soll, wirft als Ergebnis #WERT! aus. Schaut man sich die einzelnen Zellen, die addiert werden sollen, genauer an, fällt auf, da...
03.06.2009 18:53:40
Thread-ID: 1078925
7 Beiträge
Zellen mit Wert 0 löschen
Mario

Hallo zusammen,
zellen mit wert = 0 zu löschen sollte eigentlich kein Problem sein, aber ich weiß bei untenstehendem Code nicht, wo ich dies einfügen soll. Wenn ich nach IsEmpty(rngZelle) noch ein Or not IsNull(rngZelle) hinsetze, dann verschiebt mir das Makro auch die leeren Zellen....und...
10.08.2009 12:42:10
Thread-ID: 1094641
3 Beiträge
Zellen mit denselben Werten erfassen u. ausgeben
Hansi

Liebe Community,
mir stellt sich folgendes Problem: Ich habe eine Excel-Tabelle, die Angaben über Verwandtschaftsverhältnisse beinhaltet. Sie besteht lediglich aus zwei Spalten, wobei Spalte A die (durchlaufende) ID einer Person beinhaltet und Spalte B eine Zahl, die angibt, von wem Person...
06.10.2009 16:57:40
Thread-ID: 1107562
4 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum