Office: (Office 2013) Fehler beim übertragen einer funktionierenden VBA

Hallo
Ich habe von der Homepage von Beverly die Datei mit Makro geladen (mehrere Zellen Zoomen), und wollte sie in meiner Beispieldatei einarbeiten.

Ich habe die Liste als Namen definiert und die Zellen auf meinen Zellbereich angepasst.
Irgendwas habe ich falsch gemacht oder vergessen.

Wer kann mir sagen wo der Fehler liegt?

:)

 

Hi,

ich habe mal den Code etwas geändert - die ComboBox wird nicht jedesmal neu erstellt. Außerdem habe ich deine intelligente Tabelle in einen Zellbereich umgewandelt und die oberste Zelle leer gelassen, weil dies bei deiner Anwendung meines Beispiels sonst Probleme macht wenn ein leerer Eintrag erzeugt werden soll (um einen Eintrag zu löschen).

 

Okay vielen Dank.

Ich habe deinen deinen Code vom Tabellenblatt kopiert und bei mir eingefügt.
Dann habe ich die Liste in einen Bereich konvertiert und die obere Zelle leer gelassen.

Leider kommt trotzdem eine Fehlermeldung: Die Methode Range für das Objekt _Global ist fehlgeschlagen.
Wenn ich auf Debuggen klicke, ist folgendes gelb markiert:
Range(ActiveSheet.DropDownZoom.TopLeftCell.Address) = _
Range(ActiveSheet.DropDownZoom.ListFillRange).Cells(1)

Außerdem hat man bei deinem ersten Beispiel die Einträge im Drop Down direkt angezeigt bekommen. Jetzt muss man erst auf den Pfeil klicken und kann etwas anderes als das was auf der Liste zu Auswahl steht eintragen. Das ist leider nicht gewollt.

 

Weshalb der Code in deiner Originalmappe Probleme bereitet kann ich nicht sagen da ich die Mappe nicht sehen kann. In meiner hochgeladenen Mappe tritt der Fehler jedenfalls nicht auf - oder?

Was das Öffnen des DropDown-Menüs betrifft: in den neueren Excelversionen hat man häufig den Effekt, dass das aufgeklappte Menü nicht an der Position des Kombinationsfeldes erscheint sondern irgendwo an einer anderen Position im Tabellenblatt. Deshalb sollte man lieber auf diesen Effekt verzichten. Ich einer "normalen" Gültigkeitszelle klappt das Menü auch nicht auf wenn man in die Zelle klickt sondern man muss erst den DropDown-Pfeil kicken...
Den Code für das Öffnen des DropDowns kannst du dem Originalcode entnehmen - die Zeile ist mit einem entsprechenden Kommentar versehen, sodass man sie leicht finden kann.

 

Nein bei dir läuft es super.

Okay dann sende ich hier meine Version in der ich deine neue VBA einarbeiten wollte.
Irgendwas funktioniert da nicht.
Das Problem verstehe ich. Muss quasi mal testen ob es ordentlich funktioniert mit dem Code für das Öffnen des DropDown.

Ja das stimmt. Dort kann man aber Einstellen, dass nur Werte aus der Liste zugelassen sind und bei der Datei ohne Öffnen des DropDown kann man andere Dinge einschreiben, was nicht gewünscht ist.

 

In deiner Mappe war dem DropDown keine Datenquelle zugewiesen - deshalb der Fehler.
Ich habe den Code noch etwas verändert, sodass jetzt keine anderen Inhalte als die aus der Liste ausgewählt/eingegeben werden können.

 

Wie weist man denn dem DropDown eine Datenquelle zu?
Meinst du die Liste im Namenmanager benennen?

 

Und ich weis leider nicht welche Zeile ich kopieren muss, dass der erste Eintrag direkt ausgewählt wird.
Ich habe in deiner Datei auf deiner Homepage geschaut.
Ich dachte erst es wäre:
' mit dem Makro "Eintrag" wird der 1. Eintrag in die Zelle geschrieben
Application.OnTime Now + TimeValue("00:00:00"), "Eintrag"
Aber dieser Eintrag ist auch jetzt vorhanden. Also kann es dieser ja nicht sein.

Und mir ist aufgefallen, dass du Dateien, hochlädst mit einem Makro ohne die Endung xlsM. Ich kann bei mir die Makro nicht abspeichern ohne diese Endung?

 

Ich habe die Datenquelle bereits zugewiesen - das macht man, indem man den Entwurfsmodus aktiviert -> Rechtsklick auf das Steuerelement -> Eigenschaften. Dort kann man dann alle Eigenschaften setzen die man verändern will. Die Datenquelle für eine ComboBox im Tabellenblatt steht unter der Eigenschaft ListFillRange.

Der Code weist der ComboBox immer den Zellinhalt zu - wenn die Zelle leer ist, bleibt die ComboBox auch leer (was deinem 1. Eintrag in der Liste entspricht). Steht bereits ein Inhalt in der Zelle, wird der ComboBox genau dieser zugewiesen - das ist erforderlich, damit man sehen kann, was in der Zelle steht, um es dann ändern zu können oder nicht.

Ich weiß also nicht, was du mit "Und ich weis leider nicht welche Zeile ich kopieren muss, dass der erste Eintrag direkt ausgewählt wird." meinst

Es gibt u.a. folgende Typen an Excel-Dateien:

.xls = Datei mit Makros und ohne Makros aus einer Excelversion vor 2007
.xlsx = Datei ohne Makros aus einer Excelversion ab 2007
.xlsm = Datei mit Makros aus einer Excelversion ab 2007

Wenn du also eine Datei speichern willst die Makros enthält, dann muss sie vom Typ .xls oder .xlsm sein. Dateien vom Typ .xls können sowohl mit Excelversionen vor 2007 als auch ab 2007 verwendet werden. Dateien vom Typ .xlsx und .xlsm können NUR in Excelversionen ab 2007 NICHT jedoch in Excelversionen VOR 2007 verwendet werden.

 

Vielen Dank. Das hat mir einige Fragen beantwortet. *Smilie

Ich meinte ich weis nicht was ich genau kopieren muss, damit das DropDown direkt aufgelistet wird.

 

Ich habe es geschafft den Eintrag zu finden und zu kopieren. Sorry, dass ich mich so angestellt habe^^

Tausend Dank!