ComboBox - erstes Item reagiert nicht

Guten Morgen,
nachdem ich letzte Woche schon dachte die Sache wäre vom Tisch (Thema MIN, MAX, ...), kam Cheffe an: Ähm - ich hätte noch gerne ...
Letztlich ging es darum neue Abschnitte einfügen zu können und sich die Formeln anpassen.
Gelöst habe ich das nun mit einer Combobox, die gefüllt wird in dem eine Funktion über die Zeile 2 rauscht und sich alle "Überschriften" wie Global to Global etc. einsammelt (ohne Doppelte oder Leere).
Bei Auswählen eines Items wird dann hinter dem Bereich ein Neuer angelegt, der genauso heißt wie der Vorgänger. Formate und Formeln kopiere ich dann rüber.
Damit sich die Formeln auch ja weiter aktualisieren hab ich als allerletzten Bereich ein Template angelegt.
Bei Auswahl von Template wird dann der neue Bereich unmittelbar davor angelegt.
Grundsätzlich funktioniert das alles, jedoch mit 2 "kleinen" Einschränkungen:
Zum einen kann ich das 1. angezeigte Item (hier Global to Global) nicht auswählen bzw. es reagiert nicht.
Wähle ich das 2. oder eins der folgenden funktioniert das ganze bzw. danach funktioniert auch das 1.
Ein unmittelbares hintereinander Auswählen des gleichen Item funktioniert auch nicht.
Click- und Change Ereignisse habe ich beide wechselseitig ausprobiert, leider ohne Erfolg. Beide zusammen führen zu einem doppelten Einfügen.
Wenn ich die Datei speichere zu einen Zeitpunkt speichere wenn der Fokus auf dem 2. oder einem Folgenden steht macht sich das Makro beim nächsten öffnen der Datei selbständig und für einen Beeich ein analog des Items beim speichern.
Was hab ich alles Falsch gemacht oder vergessen?
Das Zweite wäre das Aktualisieren der Combobox, das immer dann stattfinden solte, wenn ein Bereich hinzugefügt wurde. Hier mal mein bisheriges Werk:
https://www.herber.de/bbs/user/90387.xlsm
Für euere Unterstützung und Mühe sag ich im Voraus schon mal Danke.
LG
amn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub AddNewColumn_Change() With AddNewColumn If .ListIndex > 0 Then sItem = ActiveSheet.AddNewColumn.Value InsertCol (sItem) MsgBox sItem & " insert done!", vbInformation .ListIndex = 0 End If End With End Sub

Option Explicit Private Sub AddNewColumn_Change() Static bExit As Boolean If bExit Then Exit Sub With AddNewColumn If .ListIndex > 0 Then InsertCol (.Text) MsgBox .Text & " insert done!", vbInformation .ListIndex = 0 bExit = True FillCombo bExit = False End If End With End Sub

Hallo Hansueli,
das hat funktioniert - Danke
Während des Einbauen und Testen fiel mir dann auch mein Denkfehler auf!
Wenn ich unmittelbar nach dem Ändern einer Überschrift die ComboBox aktualisieren möchte, damit die neue Überschrift auch gleich zur Verfügung steht, muss ich wohl eher auf eine Veränderung innerhalb dieser Zeile achten. Gesagt - getan:-)


Private Sub Worksheet_Change(ByVal Target As Range)
LCol = gLCol
If Not Application.Intersect(Target, Range("d2:" & LCol & "2")) Is Nothing Then
FillCombo
End If
End Sub

Benötige ich den Vorschlag von dir eigentlich dann noch in dieser Form?
Kannst du mir kurz erläutern was die "Erweiterung" bExit nun konkret tut und wieso aus sItem ein .Text wurde?
Hab deine Lösung bis jetzt noch drin und keine "negativen" Auswirkung feststellen können.
Gruß
amn|uwe

Beliebteste Forumthreads (12 Monate)

ComboBox - erstes Item reagiert nicht

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

50 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBox - erstes Item reagiert nicht

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

50 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread