Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
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
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleintrag mit ComboBox

Forumthread: Zelleintrag mit ComboBox

Zelleintrag mit ComboBox
29.07.2013 20:06:04
Golem
Hallo Excel-Fachleute,
ich habe einen Code von Marcus Rose, um mit einer ComboBox aus einer Namensliste
einzelne Namen auszuwählen und in einer aktiven Zelle des Tabellenblattes Tabelle1 einzufügen.
Option Explicit
Private Sub ComboBox1_Change()
End Sub


Private Sub UserForm_Activate()
'Bei der unteren Zeile handelt es sich um die Möglichkeit 3
'ComboBox1.RowSource = "Tabelle1!A2:A11"
ComboBox1.ListIndex = 0
End Sub


Private Sub CommandButton1_Click()
ActiveCell = ComboBox1.Value
Unload Me
End Sub
Ist es evtl. möglich, den aktiven Zellbereich der Tabelle1 zu begrenzen?
Z.B. den aktiven Zellbereich auf den Bereich G9:G25 im Code vorzugeben.
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Schöne Grüße
Werner

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zelleintrag mit ComboBox
29.07.2013 20:08:41
Hajo_Zi
Hallo Werner,
unter die Tabelle. 
Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'* H. Ziplies                                     *
'* 22.04.2012                                     *
'* erstellt von HajoZiplies@web.de                *
'* http://Hajo-Excel.de/
Dim RaBereich As Range
' von Nepumuk Anzahl der ausgewählten Zellen
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
Set RaBereich = Range("B3:C20,E1:E7")       ' Bereich der Wirksamkeit
' überprüfen ob Zelle im vorgegebenen Bereich, wenn ja dann UserForm1 starten
If Not Intersect(Range(Target.Address), RaBereich) _
Is Nothing Then
frm_bei_Zelle.Show
End If
Set RaBereich = Nothing                     ' Bereich der Variablen freigeben
End If
End Sub

Anzeige
AW: Zelleintrag mit ComboBox
29.07.2013 20:24:16
Gerd
Hallo Werner,
ungetestet:
Private Sub CommandButton1_Click()
'wenn ein Eintrag der Combobox ausgewählt ist
If Combobox1.ListIndex > -1 Then
'wenn Tabelle1 die aktive ist
If ActiveCell.Parent.CodeName = "Tabelle1" Then
'wenn eine Zelle des Bereichs die aktive ist
If Not Intersect(ActiveCell, Range("G9:G25")) Is Nothing Then
ActiveCell = Combobox1.Value
Unload Me
Else: MsgBox "Bitte eine Zelle im Bereich G9:G25 auswählen!"
End If
Else: MsgBox "Bitte Tabelle1 aktivieren!"
End If
Else: MsgBox "Bitte einen Namen auswählen!"
End If
End Sub
Gruß Gerd

Anzeige
CodeName ist gut mach ich auch oft so
29.07.2013 20:49:10
Matthias
Hallo Gerd
Was hat es damit auf sich 
If ActiveCell.Parent.CodeName = ...
Kann man nicht einfach 
If ActiveSheet.CodeName = ...

benutzen?
Warum benutzt Du Parent?
Gibts da einen Vorteil den ich noch nicht kenne?
Gruß Matthias

Anzeige
AW: @Matthias
29.07.2013 22:10:33
Gerd
Hallo Matthias,
das war der vielleicht untaugliche Versuch, auf die Datei mit dem Userform einzugrenzen.
Mit zunehmendem Alter weis ich nicht mehr so genau, wieviele Activecell(s) in der Application vorkommen können. :-)
Gruß Gerd

alles klar ;-) kwT
30.07.2013 03:31:24
Matthias

Gute N8, Matti! ;-) owT
30.07.2013 03:35:59
Luc:-?
:-?

Anzeige
(-: guten Morgen Luc ;-) owT
30.07.2013 03:44:41
Matthias

AW: Zelleintrag mit ComboBox
29.07.2013 21:48:42
Golem
Hallo Gerd,
Dein Code funktioniert einwandfrei.
Für Deine Hilfe und Bemühung besten Dank!
Schöne Grüße
Werner

AW: Zelleintrag mit ComboBox
29.07.2013 21:45:30
Golem
Hallo Hajo,
ich kann den Code nicht ausführen, weil bei "frm_bei_Zelle" die Variable nicht
definiert ist.
Schöne Grüße
Werner

Anzeige
AW: Zelleintrag mit ComboBox
30.07.2013 05:58:12
Hajo_Zi
Hallo Werner,
ich habe meine UserForm da eingetragen, da ich Deine nicht gesehen habe.
Gruß Hajo
;

Forumthreads zu verwandten Themen

Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Werte in Combobox und in Zellen
Stefan

Hallo Forum,
ich habe mir schon die Finger wund gegooglt. Ich möchte folgendes:
Tabelle1
zelle a4-c4  (Name, Vorname, Telefon)

zelle a5-c5  (Name, Vorname, Telefon)

zelle a6-c6  (Name, Vorname, Telefon)

u.s.w
Möchte einen Wert über eine com...
27.02.2009 07:40:27
Thread-ID: 1054576
8 Beiträge
Dropdown oder Combobox nur für eine Zelle
Lars

Hallo,
ich suche schon den ganzen Nachmittag nach einer Lösung für ein meiner Meinung nach ganz einfaches Problem. Ich möchte in einer Zelle manuell etwas eintragen können und gleichzeitig die möglichkeit
haben Begriffe aus einer Dropdown-Liste auswählen zu können.
Ich habe alle mög...
11.06.2009 20:25:53
Thread-ID: 1080838
4 Beiträge
Anzeige
RE: Werte in bestimmte Zelle schreiben
Jara

Hi,
keine Ahnung wie man auf Forenbeiträge antwortet. Irgendwie etwas merkwürdig gemacht :) Deshalb sorry wenn ich ein neuen Thread aufmache.
Ich bekomme bei folgender Zeile folgende Fehlermeldung:
lngZ = Application.Max(19, .Cells(.Rows.Count, 2).End(xlUp).Row + 1) _
.Cells(lng...
17.07.2009 10:15:55
Thread-ID: 1089299
3 Beiträge
Werte in Zellen überschreiben
Friedhelm

Hallo,
habe eine Excelmappe mit 2Tabellenblätter.
Nun möchte ich in der ersten Tabelle im Bereich von A5:J30 Daten eingeben.
Wenn ich jetzt in der zweiten Tabelle im Bereich A5:J30 Daten eingebe sollen diese
in dem Bereich der ersten Tabelle eingefügt werden mit einer anderen S...
05.11.2009 22:04:42
Thread-ID: 1114846
7 Beiträge
Werte in Zellen überschreiben
Friedhelm

Hallo,
möchte gerne Werte im Bereich D20:F23 eingeben. Wenn in einer dieser Zellen ein Wert vorhanden ist,
so soll dieser in den Bereich A1:C23 eingetragen werden. Wenn kein Wert im Bereich D20:F23 vorhanden ist
möchte ich im Bereich A1:C23 Werte eingeben können ohne das diese mit N...
17.11.2009 00:40:54
Thread-ID: 1117756
7 Beiträge
Wert einer Formel in eine Zelle schreiben
Herbert

Gibt es in Excel eine Funktion, mit welcher ich das Ergebnis einer Formel in eine Zelle schreiben kann, sodaß der Anwender in dieser Zelle auch manuelle Einträge machen kann ohne dass er eine Formel überschreibt:
Beispiel:"schreibe" in G4 den Inhalt von sverweis(A4;Matrix;2;FALSCH)2. Problem...
10.04.2002 17:09:35
Thread-ID: 112192
2 Beiträge
Auswahl aus gefilterter Combobox in Zelle schreibe
Jörg

Hallo,
ich habe in einem Registerblatt Artikel, Artikelgruppen und Gewichte tabellarisch aufgelistet.
Ich möchte in einem weiteren Tabellenblatt z.B. bei Doppelklick auf die Zelle eine Combobox angezeigt bekommen , bei der ich zuerst die Artikelgruppe aussuche, dann nur noch die Treffer...
10.03.2010 14:31:52
Thread-ID: 1144864
2 Beiträge
combobox ausgabe in aktive zelle
Alfred Gruber

Wie ist es möglich die Ausgabeverknüpfung eines Kombinationsfeldes auf
die aktive Zelle in meinem
Excel-Sheet zuweisen kann? Danke für jeden Tipp
m.f.G
Alf
25.04.2002 20:11:18
Thread-ID: 116422
3 Beiträge
Wert alle paar Sekunden in andere Zelle schreiben
Daniel Köchler

Hallo Experten,ich möchte dass beim Öffnen einer Datei ein Text ("Beispiel") in Spalte C von Zeile 6 bis Zeile 20 alle paar Sekunden wandert, um die Aufmerksamkeit zu erhöhen. Ist das möglich?Daniel
26.04.2002 15:27:26
Thread-ID: 116685
3 Beiträge
Formularsteuerelement Dropdown Werte in Zelle
Ingrid

Hallo,
ich habe hier eine Exceldatei welche mehrere Formularsteuerelemente-Dropdowns hat.
Der jeweilig aktuell ausgewählte Wert soll in eine Zelle geschrieben werden.
Ich habe versucht dem Dropdown ein Makro zuzuweisen das tut aber nicht.
Nehme ich statt des Formularsteuerelemen...
28.09.2010 18:43:39
Thread-ID: 1179793
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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