Combobox aktualisieren

Gisela · 2016-04-24T02:10:57+00:00

Hallo Gemeinde, ich habe eine Combobox angelegt: Private Sub ComboBox22_Change() End Sub Diese wird mit Werten aus den Zellen CT1:CT15 gefüttert - u. a. auch die Anzahl der eingegebenen Datensätze. Meistens stehen diese im Vordergrund. Wenn ich einen neuen Datensatz anlege, muss ich die Combobox erst anklicken und auf den entsprechenden Eintrag um den Wert auf +1 zu setzen/zu aktualisieren. Wie kann ich dies automatisch veranlassen? Beste Grüsse Gisela

Hi Gisela,
Excel reagiert schon manchmal seltsam. Ich habe jetzt mehrfach etwas in Spalte E eingegeben: ab und zu tritt dieser Fehler auf, aber nicht jedesmal - wenn ich Excel schließe tritt er nicht mehr auf, nach einiger Zeit aber erneut. Dem kann man Abhilfe schaffen, indem man statt .ListFillRange eine Variable einsetzt und .ListFillRange darauf schreibt (strBereich):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Dim lngIndex As Long
Dim strBereich As String
Set rngBereich = Union(Range("N19:N10251"), Range("E19:E1032"), _
Range("K19:K10332"), Range("M2:N4"), Range("M10:M11"), _
Range("CU9:CU14"))
' Gesamtbereich für ComboBox21 und Combobox22
If Not Intersect(Target, rngBereich) Is Nothing Then
Application.Calculate
DoEvents
' Teilbereich für ComboBox21
If Not Intersect(Target, Range("N19:N10251")) Is Nothing Then
With ActiveSheet.ComboBox21
lngIndex = .ListIndex
.ListIndex = -1
strBereich = .ListFillRange
.Value = Range(strBereich).Cells(lngIndex + 1).Value
End With
' restliche Teilbereiche für ComboBox22
Else
With ActiveSheet.ComboBox22
lngIndex = .ListIndex
.ListIndex = -1
strBereich = .ListFillRange
.Value = Range(strBereich).Cells(lngIndex + 1).Value
End With
End If
End If
Set rngBereich = Nothing
End Sub

Möglicherweise liegt es an der großen Anzahl an Datensätzen, dass bei dir nicht aktualisiert wird, weil die Neuberechnung der Formeln noch nicht abgeschlossen ist. Ich habe mal zu Beginn noch eine Neuberechnung angeschoben - vielleicht hilft das ja.

Hi Gisela,
das Problem hängt mit dem Makro zusammen, welches du der Tastenkombination Str+Q zugewisen hast - mir war nicht bekannt, dass du solch ein Makro benutzt. Durch das Einfügen einer Zeile und Kopieren der darüberliegenden Zeile wird das Change-Ereignis ausgelöst, die Formeln neu brechnet und der ComboBox dadurch der ListIndex -1 zugewiesen. Im Code löst das in diesem Teil Range(strBereich).Cells(lngIndex + 1).Value einen Fehler aus, weil es .Cells(0) natürlich nicht gibt. Man müsste also bereits hier den ListIndex auslesen, um im Change-Ereignis unterschieden zu können, ob die Daten durch das Makro oder direkte Eingabe erstellt wurden:

Option Explicit
Public lngIndex21 As Long   ' Listindex ComboBox21
Public lngIndex22 As Long   ' Listindex ComboBox22
Sub Zeileeinf()
' Zeilen_einfügen Makro
' Makro am 16.09.2010 von Privat aufgezeichnet
If Selection.Areas.Count > 1 Then
MsgBox ("Bitte nicht mehrere Bereiche auswählen!")
Exit Sub
End If
Application.ScreenUpdating = False
' aktuelle Auswahl der ComboBoxen auf Variablen schreiben
lngIndex21 = ActiveSheet.ComboBox21.ListIndex
lngIndex22 = ActiveSheet.ComboBox22.ListIndex
Selection.EntireRow.Insert '    blnZeilenEinfuegen = False
' ACHTUNG: Das With darf nicht 1 drüber, da sich durch das Insert die Selection ändert
With Selection.EntireRow
.Offset(-1, 0).Resize(1).Copy
.PasteSpecial Paste:=xlPasteFormulas
' Wenn in der Zeile unter den eingefügten Zeilen eine Formel in
' Spalte B steht, dann muss die korrigiert werden
If .Resize(1, 1).Offset(.Rows.Count, 1).HasFormula Then
.Resize(1, 1).Offset(.Rows.Count, 1).FormulaR1C1 = _
.Resize(1, 1).Offset(-1, 1).FormulaR1C1
End If
End With
Application.ScreenUpdating = True
End Sub

Und im Change-Ereignis kann dann wie folgt darauf zugegriffen werden:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Union(Range("E19:E1032"), _
Range("K19:K10332"), Range("M2:N4"), Range("M10:M11"), _
Range("CU9:CU14"))
' Bereich für ComboBox21
If Not Intersect(Target, rngBereich) Is Nothing Then
Application.Calculate
DoEvents
With ActiveSheet.ComboBox22
If lngIndex22  -1 Then
lngIndex = .ListIndex
Else
lngIndex = lngIndex22
End If
.ListIndex = lngIndex
End With
End If
' Bereich für ComboBox21
If Not Intersect(Target, Range("N19:N10251")) Is Nothing Then
Application.Calculate
DoEvents
With ActiveSheet.ComboBox21
If lngIndex21  -1 Then
lngIndex = .ListIndex
Else
lngIndex = lngIndex21
End If
.ListIndex = lngIndex
End With
End If
Set rngBereich = Nothing
End Sub

Ich habe das in deiner Mappe jetzt mehrfach getestet - beide ComboBoxen werden aktualisiert.

Forumthread: Combobox aktualisieren

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Combobox in Excel automatisch aktualisieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)