Frdl. Grüße

Hans Paul

Wo ist der UNterschied? Im Codefenster wird ausschließlich der VBA-Code eingeben. Im Direktfenster kann man Befehle eingeben, die sich direkt auswirken (aktives Blatt wechseln, Werte in Zellen eingeben, Zellen formatieren, belegte Zellen abfragen, ...) und sofern das Programm durch einen Haltepunkt oder eine Fehlermeldung gestoppt ist, lassen sich die aktuellen Werte der Variablen auslesen und ggf. verändern. Auch die Resultate von Debug.Print-Anweisungen werden im Direktfenster angezeigt.

Meine Infos beziehen sich auf Excel 2007 oder älter. Mit der Version 2010 habe ich noch keine Erfahrung.

Viel Erfolg und excel-lente Zeit 
Dirk

Übrigens wenn ich die Anweisung ?activeSheet usw. eingab, wurde das Fragezeichen durch den Begriff "Print" ersetzt. Dies war die einzige Reaktion.

Nochmals besten Dank

Hans Paul

vielen Dank für die schnelle Hilfe und die Erläuterungen !!

Das werde ich mir gut aufheben auch für künftige Aufgaben.

Gruß Wolfgang

1. Eine kleine Prozedur "PasteValues" geschrieben


2. Die Prozedur auf die Tastenkombination Strg+v gelegt 


3. Den Eintrag "Einfügen" im Kontextmenü für Zellbearbeitung mit der neuen Prozedur belegt


4. Den Menüeintrag unter "Bearbeiten/Einfügen" ebenfalls mit der neuen Prozedur belegt


5. In der Symbolleiste das Symbol "Einfügen" (mit dem Drop-down-Menü) unsichtbar gemacht


6. In die Symbollleiste ein neues Symbol "Einfügen" eingefügt und mit der neuen Prozedur belegt

Die Veränderungen der Tastenkombination und der Menüs erfolgen innerhalb der Prozedur "Workbook_Open". Beim Schließen der Arbeitsmappe werden in der Prozedur "Workbook_BeforeClose" die Standardeinstellungen wieder hergestellt. Läuft alles super.

Gruß - Dirk

Da ich an dem Code nichts bösartiges finden kann und er bei mir läuft, vermute ich das Problem in den Daten. Deshalb meine folgenden Vorschläge:

Weiter würde ich mal den Adressbereich von Ausdruck überprüfen. Setze den Cursor doch bitte in die Zeile beginnend mit IDummy, drücke die Taste F9 (Haltepunkt setzen), drücke die Taste F5 (Makro ausführen), bestätige das Meldungsfenster mit OK. Jetzt hält das Makro am Haltepunkt an (die Zeile ist gelb hinterlegt). Bitte jetzt im Direktfenster

?ausdruck.address

eingeben und mit RETURN abschließen. Jetzt sollte im Direktfenster etwas wie $A$1:$J$40000 stehen. Kannst Du das exakte Ergebnis bitte mal durchgeben?

Damit ich Dein Beispiel konkret nachvollziehen kann, bitte ich Dich noch um folgende Angaben:

1. Welchen Bereich genau hast Du mit dem Namen rBeginn belegt? Kopier doch bitte mal den Ausdruck aus der Namensdefinition.


2. In welchem Bereich stehen Deine Daten im konkreten Fall? Dem Makro entnehme ich, dass es bei A1 los geht und bis Spalte J reicht. Aber bis welche Zeile?

Was Du noch machen kannst: Benenne Dein Arbeitsblatt Ausdruck um und füge ein neues Arbeitsblatt mit dem Namen Ausdruck ein. Korrigiere die Definition des Namens Ausdruck im Namensmanager (bei der Umbenennung des Arbeitsblattes hat sich ja auch die Definition verändert). Kopiere Deinen Datenbereich vom alten ins neue Arbeitsblatt und starte das Makro.

Gruß - Dirk

beide Hilfen funktionierten bei mir nicht.

bei ?activesheet. usw. keinerlei Reaktion

bei Änderung auf Selection.Address bekomme ich folgende Fehlermeldung "Fehler beim Kompilieren, Objekt erforderlich" und der Begriff  "Ausdruck" in der Zeile

Set Ausdruck = ActiveCell.Current.Region

wird markiert.

Grundsätzlich bin ich wie folgt vorgegangen:

Modul1 eingefügt, darin enthalten o.a. Code. Habe anschl. die Anweisung(?) Option explicit mal rausgenommen, hat am Ergebnis nichts geändert; d.h. gleiche Fehlermeldung.

Freundliche Grüße

Hans Paul

?activesheet.usedrange.rows.count

und schließe mit RETURN ab. Da habe ich schon manchmal mein "blaues Wunder" erlebt, was Excel so alles an benutzten Zellen findet.

Viel Erfolg - Dirk

will eine Tabelle mit Namen (Ausdruck) ausdrucken. Bekomme Fehlermeldung "Laufzeitfehler 1004" Anwendungs- oder objektdefinierter Fehler". Der "Hammer" schlägt am Ende der Zeile idummy% = Ausdruck.rows.Count auf.

Sub Drucken()
    If MsgBox("Ausdruck drucken?", vbOKCancel + 32) = 1 Then
    Sheets("Ausdruck").Select
    Range("rBeginn").Select
    Set Ausdruck = ActiveCell.CurrentRegion
    'Anzahl der Zeilen in der Tabelle ermitteln
    IDummy% = Ausdruck.Rows.Count
    Range("a1:j" & IDummy% + 5).Select
    ActiveSheet.PageSetup.PrintArea = Selection.adress
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  End If
End Sub

Sub AbbrechenTaste()
    iAbbTaste = 0
End Sub

Sub OKTaste()
    iAbbTaste = 1
End Sub

Kann mir jemand sagen wo sich der Fehler befindet? Muss dazu sagen, daß o.a. Code nicht mein geistiges Eigentum sondern abgekupfert und etwas von mir an meine Tabelle angepasst ist.

Beste Grüße aus Karlsbad

H.P. karrer

1. Auf Tabellenblatt Tabelle1 stehen im Bereich A1:A4 vier Vornamen


2. Über die Mennüfolge Einfügen/Namen/Definieren gibst Du dem Bereich einen Namen, z.B. Vornamen. Unter "bezieht sich auf" trägst Du ein:  =Tabelle1!$A$1:$A$4


3. Auf Tabellenblatt Tabelle2 definierst Du über Daten/Gültigkeit Deine Auswahlliste, indem Du unter "Quelle" einträgst:  =Vorname


4. Jetzt hast Du eine feste Liste mit vier Einträgen


5. Wenn Du jetzt in der Namensdefinition die Zahl "4" durch eine Zählfunktion ersetzt (im Beispiel zählen wir Texteinträge, also ANZAHL2), dann wird die Definition des Bereichsnamens Vornamen dynamisch. Die Anbindung der Zählfunktion an den Rest der Namensdefinition erfolgt als Verkettung von Text. Mit der Funktion INDIREKTmachst Du daraus wieder eine gültige Bereichsdefinition. Statt des Eintrages "bezieht sich auf" aus 2. gibst Du jetzt die folgende Formel ein:
   =INDIREKT("Tabelle1!$A$1:$A$"&ANZAHL2(Tabelle1!A:A))


6. Wenn Du jetzt die Liste der Vornamen in Spalte A von Tabelle1 verlängerst, dann siehst Du die Änderungen sofort in Deiner Gültigkeitsliste. Natürlich funktioniert das auch, wenn Du die Liste verkürzst. Einzige Einschränkung: Die Liste der Vornamen darf keine Leerzellen enthalten.

Viel Erfolg - Dirk

Kann man eigentlich diese separate Liste später ergänzen, ohne diese komplett neu einbinden zu müssen? Wenn ich als Bereich Liste!A:A wählte erhalte ich im Auswahlfeld nur ein leeres Auswahlfeld. Offensichtlich werden beim Einbinden der Liste nur konkret markierte Zellen mit Inhalt aus der separaten Liste akzeptiert.

Andererseits: Wenn Du die Liste ausdrucken möchtest, dann scheint sie relativ lang zu sein. In diesen Fällen bevorzuge ich, die Listen auf einem separaten Blatt zu führen und dynamisch zu gestalten. Erstens finde ich es übersichtlicher und zweitens "leben" diese Listen nach meiner Erfahrung. Insofern rate ich zur dynamischen Implementierung.

Gruß - Dirk

Andererseits: Wenn Du die Liste ausdrucken möchtest, dann scheint sie relativ lang zu sein. In diesen Fällen bevorzuge ich, die Listen auf einem separaten Blatt zu führen und dynamisch zu gestalten. Erstens finde ich es übersichtlicher und zweitens "leben" diese Listen nach meiner Erfahrung. Insofern rate ich zur dynamischen Implementierung.

Gruß - Dirk