VB script für combobox in aktiver Zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub nachDropWerteSchreiben() ' Werte werden nach auswahl in der Dropbox aus weiterer Tabelle übernommen If Sheets("Messtechnik").Change = True Then Sheets("Messtechnik").Cells(15, "I").Value = 666 'steht für beliebige Aktion Sheets("Messtechnik").Cells(16, "I").Value = 777 'steht für beliebige Aktion End If End Sub

Option Explicit Dim bolCode As Boolean Private Sub ComboBox1_Change() If Not bolCode Then 'Änderung wurde nicht durch Code hervorgerufen MsgBox "Hallo" End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngDaten As Range ComboBox1.Visible = False If Target.Column = 1 Then 'Spalte A If Target.Row > 1 Then 'Zeile>1 bolCode = True With Sheets("Komponentenliste") 'Datenquelle ermitteln; A2:Ax Set rngDaten = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)) End With With ComboBox1 .List = rngDaten.Value 'Werte .Top = Target.Top 'oben .Left = Target.Offset(, 1).Left 'links .LinkedCell = Target.Address 'Zielzelle .Visible = True End With bolCode = False End If End If End Sub

Hallo Johannes,
der Weg ist klar: Dropdown über Zellengültigkeit, per Makro den Bereich der Zellengültigkeit (Umweg über Name) verändern. Den Inhalt für den Namen / das Dropdown, so sagtest du Anfangs, kannst du dir selber zusammenstellen.
Ich möchte jetzt deinen Code nicht im Detail analysieren. Dein "NextLeerInSpalte" zählt übrigens Zeilen durch, nicht Spalten. "TxtInSpalte" genauso. Was die beiden Makros machen sollen wird mir auch nicht klar ... sie werfen halt eine MsgBox aus oder nicht, aber es wird kein Wert gespeichert oder übergeben, mit dem das übergeordnete Makro weiter arbeiten könnte (dann währen es Functions, keine Subs!)
Meinen Vorschlag, per Makro den Namen zu ändern, hast du zu 0% versucht einzubauen. Die auskommentierten Comboboxteile sind sicherlich Artefakte eines vorherigen versuchs.
Vorschlag: Du erklärst einmal am Beispiel, WIE die Auswahlliste sich zusammen setzen soll. Das erklärst du in Prosa, ausführlich und detalliert als würdest du es einem Kind erklären. Wenn ich dann sicher weiss was passieren soll, schau ich mal ob ich das in Makroform bekomme.
Bitte denk daran: Nur du verstehst deinen Dateiaufbau sicher. Erkäre auch Dinge, die dir zu 100% selbstverständlich vorkommen.
Grüße,
Klaus M.vdT.

laufe ich innerhalb einer Spalte die Zeilen durch, das ist richtig und so gewollt
OK, das macht sogar Sinn! Das nehme ich so hin und pfusche dir nicht mehr in deine Namenskonvention.
die Funtionen liefern mir die Anfangszeile und die Endzeile des Dropdownbereiches (Spalte ist immer "D").
Ok ... tatsächlich war mir "ByRef" nicht geläuftig. Jetzt sehe ich auch wass die Funktions machen.

Sub MessungDropDown()
' DropDown-Menü für Messungen
Dim rngDaten As Range
Dim dRowCount As Double
Dim dLastRowCount As Double
Dim dCount As Double
Dim wksOld As Worksheet
Set wksOld = ActiveSheet
'Bereich auswählen
Sheets("Komponentenliste").Activate
dCount = Range("A65536").End(xlUp).Row
Call SucheTxtInSpalte(4, dCount, "Messeingänge", dRowCount)
dRowCount = dRowCount + 1
'MsgBox dRowCount
Call SucheNextLeerInSpalte(4, dRowCount, dLastRowCount)
dLastRowCount = dLastRowCount - 1
'MsgBox dLastRowCount
'MsgBox dCount
Set rngDaten = Range(Cells(dRowCount + 1, 4), Cells(dLastRowCount, 4))
'MsgBox rngDaten
wksOld.Activate
With ActiveCell.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="='Komponentenliste'!" & rngDaten.Address
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Ich habe der aktivierten Zelle den Bereich "Komponentenliste!" & rngDaten zugewiesen, einfach per Datengültigkeit.
Meine Anmerkung dazu:
Die Datengültigkeit könntest du auch gleich dem gesamten Bereich zuweisen statt nur der aktiven Zelle.
Ich war versucht, die ".activate" aus deinem Code rauszunehmen. Aber deine Text-Spalten-Leer SUBS referenzieren auf die aktive Tabelle, soweit ich die verstanden habe. Nach dem Code gehe ich mit activate wieder ins alte Blatt zurück, dass ich mir in wksOld gemerkt habe.
Wenns für dich so iO ist, ist gut ... ich würd dir aber raten, deine Text-Leer-Subs nochmal umzuschreiben um so das "activate" am Anfang des Codes loszuwerden. Musst ja "nur" das gewählte Blatt als Variable mit übergeben und dann alles in WITH setzen.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

VB script für combobox in aktiver Zelle

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VB script für combobox in aktiver Zelle

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread