Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Button über Makro einrichten geht nicht

Forumthread: Button über Makro einrichten geht nicht

Button über Makro einrichten geht nicht
Achim
Hallo Excel-Experten
Ich habe ein Button über das Steuerelement "Formular" eingerichtet.
Wenn ich das Makro starte erscheint ein Fehler den ich mit nicht erklären.
Wer kann helfen!!!!
ActiveSheet.Buttons.Add(600.75, 232.5, 72, 72).Select
Selection.OnAction = "Aktualisieren"
Selection.ShapeRange.IncrementLeft -295.5
Selection.ShapeRange.IncrementTop -229.5
Selection.ShapeRange.ScaleWidth 2.49, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.12, msoFalse, msoScaleFromTopLeft
(An der Stelle taucht der Fehler auf)ActiveSheet.Shapes("Button 1185").Select
Selection.Characters.Text = "Offene Dienste aktualisieren !!!!"
With Selection.Characters(Start:=1, Length:=33).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Range("M1").Select
End Sub
Gruß evtl. Dank Achim
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Button über Makro einrichten geht nicht
06.04.2004 17:51:54
GraFri
Hallo


ActiveSheet.Buttons.Add(600.75, 232.5, 72, 72).Select
Selection.OnAction = "Aktualisieren"
Selection.ShapeRange.IncrementLeft -295.5
Selection.ShapeRange.IncrementTop -229.5
Selection.ShapeRange.ScaleWidth 2.49, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.12, msoFalse, msoScaleFromTopLeft
Selection.Characters.Text = "Offene Dienste aktualisieren !!!!"
With Selection.Characters(Start:=1, Length:=33).Font
    .Name = "Arial"
    .FontStyle = "Standard"
    .Size = 10
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = 3
End With
Range("M1").Select


mfg, GraFri
Anzeige
AW: Button über Makro einrichten geht nicht
Bert
Ohne select und activate:
Option Explicit

Sub Button_add()
Dim FormularControl As Object
Set FormularControl = ActiveSheet.Buttons.Add(10, 10, 144, 21)
With FormularControl
.Name = "MeinButton"
.Characters.Text = "Soeben gezeugt"
.OnAction = "Testmakro"
.Placement = xlFreeFloating
.PrintObject = False
With .Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.ColorIndex = 5
.Strikethrough = False
.Superscript = False
.Subscript = False
.Underline = xlUnderlineStyleNone
End With
End With
End Sub

Bert
Anzeige
;

Forumthreads zu verwandten Themen

Makro geht und geht doch nicht
David

Hallo VBA-Profis,
ich wollte einem anderen Forumsmitglied hier helfen und habe auch alles soweit hinbekommen, aber an einem Problem bin ich gerade verzweifelt.
In der Datei:
Die Datei https://www.herber.de/bbs/user/55435.xls wurde aus Datenschutzgründen gelöscht
wird beim Änder...
16.09.2008 15:02:10
Thread-ID: 1010129
9 Beiträge
Makro geht mit Blattschutz nicht - trotz unprotect
donald

Hallo,
ich hab nochmal eine Frage. Ich hab ein paar Zellen meines Blatts mit dem Blattschutz ausgestattet. Und jetzt funktioniert mein Makro nicht, obwohl ich protect/unprotekt ins Makro reingeschrieben habe:
Sub FarbeSortieren() ActiveSheet.Unprotect Password:="esm-win" Range("S12...
23.10.2008 16:41:43
Thread-ID: 1018743
5 Beiträge
makro geht nicht
donald

Hallo liebe Helfer,
ich hab hier ein Makro, das Farben sortiert. Das Problem ist jetzt, dass die Datei als Vorlage dienen soll und damit der NAme der Vorlage geändert wird und in dem Makro aber der Name der Vorlage drin ist. Das heißt, dass Makro funktioniert nicht mehr, sobald die Datei u...
12.12.2008 08:57:19
Thread-ID: 1032278
8 Beiträge
Zielwertsuche Makro geht nicht
Bastian

Hallo Leute,
beim Starten des Makros
Sub schleife()
   Dim rng As Range
   For Each rng In Range("I13:I200").Cells
      rng.GoalSeek Goal = 0,  ChangeingCell:=rng.Offset(0, &...
09.01.2009 13:46:00
Thread-ID: 1038219
10 Beiträge
Druckmakro geht nicht
lutz

Hallo Excel-Profis.
ich versuche ein Druckmakro zu schreiben, dass schneller geht als die normale Funktion.
Sub PrintF1() Dim Head1 As String Dim Foot1 As String Head1 = "________&8& chr(10)& Text& Seite &P/&N, Date &D; &T Uhr" Foot1 = "Testfoot" Execut...
27.03.2009 11:18:20
Thread-ID: 1064534
7 Beiträge
Makro in Vista geht nicht
ReSt

Hallo
ich habe nun ein Problem welches ich nicht verstehe.
Unten steht ein Makro welches in Windows XP funktionierte. Das heisst es kam ein Speichern unter Dialogfeld welches schon mit dem Namen und dem Dateityp ausgefüllt war.
Jetzt wo ich Windows Vista verwende, bekomme ich nur no...
10.07.2009 08:48:59
Thread-ID: 1087252
3 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Anzeige
Makro, das vorher ging, geht jetzt nicht mehr
diplingoec

Hallo,
ich hatte im Internet vor einiger Zeit ein Makro gefunden zum Auslesen von Google Ergebnissen.
Das funktionierte Prima. Jetzt kommt immer eine Fehlermeldung (Laufzeitfehler 1004) und ich habe keine Ahnung woran das liegen könnte.
Kurz zum Hintergrund: Ich möchte meine Recher...
15.09.2009 15:00:59
Thread-ID: 1102892
4 Beiträge
Anzeige
Makro geht nach Blattschutz nicht mehr
Reimund

Habe ein einfaches Makro, wo Zeilen ausgeblendet werden sollen wenn ein bestimmtes Wort in einer bestimmten Zelle steht.
Geht auch. Abr wenn ich den Blattschutz eingeschaltet habe geht´s nicht mehr. Und dann auch nicht wenn der Schutz wieder raus ist. Hängt schon im ersten Teil.
Hier bi...
23.09.2009 15:24:10
Thread-ID: 1104971
5 Beiträge
Copy/paste per makro geht einfach nicht
Julian

Liebe Excelgemeinde,
ich bin vollkommen ratlos, ich möchte eine liste kopieren per:
Worksheets("Bond Portfolios").Range(Chr(64 + i) & "13:" & Chr(64 + i) & LastRow).Copy
was auch zu klappen scheint, sobald ich aber in der nächsten funktion das kopierte wieder eingefügen...
20.11.2009 20:16:25
Thread-ID: 1118957
4 Beiträge
Makro aus Excel 2003 geht in Excel 2007 nicht - Bi
Joe

Hallo zusammen,
hab folgendes Mkro:
----------------------------------------------- Sub Bilder_einfügen() Dim Pfad As String, Wiederholungen As Long On Error Resume Next Pfad = "I:\Allgemein\Organisationshandbuch\6 Marketing\Bilddatenbank\" For Wiederholungen = 2 To Range("A65536").E...
02.12.2009 21:45:59
Thread-ID: 1121481
7 Beiträge
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige