Excel VBA Funktioniert durch Button nicht

Computer: Software & Programmierung Visual Basic
#1

Hallo Lieber Mitglieder,

ich stehe vor einem Problem was mich einfach nur zur Nervt.

Und zwar habe ich locker flockig ein Makro erstellt für Rüberkopieren ohne Formeln.

Sheets(„Plankost_Start_f“).Select
Range(„A46:BL47“).Select
Selection.Copy
Sheets(„Plankost_Start“).Select
Range(„A46“).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(„A46“).Select

So, klappt ganz gut,
Jetzt soll ich dieses Makro über ein Button Ausführen können.
Button erstellt, formel reinkopiert.
Dann bekomme ich die Fehlermeldung: Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.

Wieso kann ich das Makro so ausführen aber nicht mit Button.
Kann mir jemand Weiterhelfen?
Vielen Dank und Schönes Wochenende,
Karl

#2

Hi!

Zur Klärung: hast du den Button auf der Tabelle oder in einem Formular?
Wenn Tabelle: Da das „OnKlick“-Ereignis suchen
Wenn in Formular: (gaaaaanz einfach) Doppelklick auf den Button ==> bringt dich automatisch an die richtige Stelle und dann dort nur noch den Code reinkopieren.

Komlett sauber wäre die Geschichte das „OnClick“-Ereignis jeweils nur ein

„Call DeinCode“ aufrufen zu lassen … im Sinne von Modularität etc.

Gruesse
Joerg

#3

Hallo,
sorry kann dir wahrscheinlich nicht wirklich weiterhelfen.
Ich hab deinen Code kopiert und ausprobiert und bei mir funktioniert es.
Das einzige, was mir dazu einfällt ist, dass eventuell die Namen Sheets nicht passen, oder du irgendwie die Felder geschützt hast.
MfG
Tobi

#4

Also warum da so ist, kann ich dir auch ncht sagen. Wenn es aber mitdem Select zusammenhängt, dann Versuch einfach mal ohne. Also direkt mit Range.copy. Ist sowieso meistens besser, als das immer erst zu selektieren. Gerade bei Großen Codes oder Datenmengen

Lg

#5

Karl
Bei mir funktionierte es.
Wenn ich Deine E-adresse habe, sende ich Dir das File.

Gruss
Dario

#6

Hi,

probier mal sheets(…).activate anstelle .select bei den worksheets.
Müsste eigentlich klappen.

Gruß

#7

Hallo Karl,

Ihren Ausführungen zur Folge haben Sie den Quellcode
vom Makro in den Button bzw. in den VBA-Code
übertragen.

Sie schreiben, daß das Makro selbständig funktioniert.
(?)

Können Sie denn nicht dem Button das Makro zuweisen?

Welche Version von Excel haben Sie? Beim Ausprobieren
unter Excel 2007 heute morgen, habe ich prompt den
falschen Button erwischt, der auch gleich nicht
funktionierte, war leider ein Active-X-Steuerelement.
Das Formularsteuerelement dagegen fragte mich direkt
beim Einrichten nach einem Makro.

Vielleicht hilft Ihnen meine Antwort ja ein bißchen.
Leider ist Excel nicht so ganz mein Gebiet :wink:.

Viel Glück beim weiteren probieren.

VG Andreas Wiedenhorst

Hallo Lieber Mitglieder,

ich stehe vor einem Problem was mich einfach nur zur

Nervt.

Und zwar habe ich locker flockig ein Makro erstellt

für

Rüberkopieren ohne Formeln.

Sheets(„Plankost_Start_f“).Select
Range(„A46:BL47“).Select
Selection.Copy
Sheets(„Plankost_Start“).Select
Range(„A46“).Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(„A46“).Select

So, klappt ganz gut,
Jetzt soll ich dieses Makro über ein Button Ausführen

können.

Button erstellt, formel reinkopiert.
Dann bekomme ich die Fehlermeldung: Die Select-Methode

des

Range-Objektes konnte nicht ausgeführt werden.

Wieso kann ich das Makro so ausführen aber nicht mit

Button.

Kann mir jemand Weiterhelfen?
Vielen Dank und Schönes Wochenende,
Karl

#8

Über eine Rückmeldung würde ich mich dann noch freuen. Velleicht finden wir ja auch noch einen anderen weg

Lg

#9

Hi,
[email protected]
Schon mal Danke