Office: Makro

Helfe beim Thema Makro in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, weiß jemand wie man Schaltflächen die makros auslösen an eine Excel Datei "binden" kann? Ich habe nen Excel Datei mit Makros die durch... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von User, 13. Oktober 2007.

Seite 1 von 2

USER

User

Makro

Hallo,

weiß jemand wie man Schaltflächen die makros auslösen an eine Excel Datei "binden" kann?
Ich habe nen Excel Datei mit Makros die durch Schaltflächen in der Symbolleiste ausgelöst werden. Jetzt möchte ich das Excel Dokument weitergeben.

jonny

:)

User, 13. Oktober 2007

#1
CHRIS-KAISER

chris-kaiser

hiho

programmieren *Smilie

Code:

'in einem Modul

Private Const COMMANDBAR_NAME As String = "meine"
Public Sub pCB()
Dim myCommandBar As CommandBar
Dim myCommandBarButton As CommandBarButton
Call pDelB(True)
On Error Resume Next 'falls vorhanden :) ist mal eine Ausnahme
Set myCommandBar = Application.CommandBars.Add(COMMANDBAR_NAME)
myCommandBar.Visible = True
Set myCommandBarButton = myCommandBar.Controls.Add(Type:=msoControlButton, _
Before:=myCommandBar.Controls.Count + 1, Temporary:=True)
With myCommandBarButton
.Caption = "Explorer auslesen"
.FaceId = 284
.OnAction = "ordner_eigenschaften" 'Name des Makros das gestartet werden sollte
.Style = msoButtonIconAndCaption
.TooltipText = "auf gehts"
.Tag = "explor"
End With

intWorkSheetMenuBarWidth = CommandBars(4).Width _
+ CommandBars(4).Left
' Eigene Symbolleiste neben Standard platzieren
With Application.CommandBars(COMMANDBAR_NAME)
.Position = CommandBars(4).Position
.RowIndex = CommandBars(4).RowIndex
.Left = intWorkSheetMenuBarWidth
End With
Set myCommandBar = Nothing
Set myCommandBarButton = Nothing
End Sub

Public Sub pDelB(Optional ByVal bolDelete As Boolean = False, _
Optional ByVal bolHide As Boolean = True)
Dim myCommandBar As CommandBar
Dim myCommandBarButton As CommandBarButton
On Error Resume Next
Set myCommandBarButton = Application.CommandBars(COMMANDBAR_NAME).FindControl(Tag:="explor")
If Not myCommandBarButton Is Nothing Then
With Application.CommandBars(COMMANDBAR_NAME)
If bolDelete Then .Delete Else .Visible = bolHide
End With
End If
Set myCommandBar = Nothing
End Sub
Sub ordner_eigenschaften()
MsgBox "dein Makro"
End Sub

'#############################
'Makro in "dieseArbeitsmappe"
'#############################
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call pDelB(True)
End Sub

Private Sub Workbook_Deactivate()
Call pDelB(, False)
End Sub
Private Sub Workbook_Open()
Call pCB
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser, 15. Oktober 2007

#2
LOSGEHTS

losgehts

Hi Jonny!

Um Commandbuttons aus der Steuerelemente-Toolbox auf ein Tabellenblatt zu bringen sind folgende Schritte notwendig:

1. gewünschte Tabelle öffnen und TAbellenblatt aktivieren
2. "Ansicht" -> "Symbolleisten" -> "Steuerelemente Toolbox"
3. auf dieser Symbolleiste erstes Icon von links: "Entwurfsmodus" aktivieren
4. Klick auf Befehlsschaltfläche (gleiche Symbolleiste 6. Icon) Mauszeiger wird zum Kreutz
5. auf dem Tabellenblatt eine Befehlsschaltfläche mit der Maus platzieren (ziehen)
6. Auf der neuen Befehlsschaltfläche (Commandbutton 1) Rechtsklick -> "Code anzeigen"
7. Jetzt bist du an der richtigen Stelle, um die Prozeduren per VBA aufzurufen Code:

Private Sub CommandButton1_Click()
Call MeinMakro
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße, Ulrich

losgehts, 15. Oktober 2007

#3
INGGI

IngGi

Makro

Hallo jonny,

unter dem Pfad C:\Dokumente und Einstellungen\DeineUserID\Anwendungsdaten\Microsoft\Excel\ findest du eine Datei mit der Dateiendung .xlb (bis Excel2003). In dieser sind deine Symbolleisten gespeichert. D.h. wenn du diese Datei jemandem gibst und er öffnet sie in Excel, dann erscheinen in seiner Excelinstallation deine Symbolleisten.

Daher ist es auch unbedingt erforderlich, die Makrosymbole auf eine eigene Symbolleiste zu ziehen, da du den Adressaten sonst ihre Symbolleisten, die sie vielleicht selbst schon verändert haben, zerschiesst. Und das gibt dann mächtig Ärger. Am Besten du packst alle relevanten Schaltflächen auf eine neue Symbolleiste, der du einen kryptischen Namen gibst, um zu verhindern, dass dieser Symbolleistenname bei einem der Adressaten bereits vorhanden ist. Dann würdest du nämlich diese Symbolleiste überschreiben. Blende dann alle anderen Symbolleisten aus und kopiere erst dann die .xlb-Datei woanders hin. Damit hast du deine xlb-Datei zum mitschicken. Bei den Adressaten werden nach dem Öffnen der xlb-Datei ebenfalls alle anderen Symbolleisten ausgeblendet. Aber diese wieder einzublenden ist ja kein Hexenwerk.

Ich würde dir aber dringend raten, die Finger davon zu lassen, wenn du dir nicht absolut sicher bist, d.h. das Ganze bei einem willigen Opfer erfolgreich getestet hast !!!

Gruß Ingolf

IngGi, 15. Oktober 2007

#4
LOSGEHTS

losgehts

Na, Jonny, wie ich sehe, hast Du jetzt drei völlig unterschiedliche Antworten. Falls Dir keine geholfen hat, wäre es sicherlich gut, wenn Du unter anderem noch einmal genau beschreibst, wo die Makro´s stehen, die Du übergeben willst (in einer Datei, die auch Daten enthält, welche vielleicht auch übergeben werden sollen, oder vielleicht ein Addin...?)

Und falls wir/einer Dir geholfen hat freuen wir uns (ich hoffe, das kann ich für alle sagen) über ein Feedback *wink.gif*

Grüße, Ulrich

losgehts, 15. Oktober 2007

#5
JONNY1207

jonny1207

Hi,

danke an alle!! Werds morgen früh mal testen.
Die Lösung von Ingolf hört sich am ehesten danach an was ich meinte, ich glaube das was du meinst Ulrich sind buttons auf einem Tabellenblatt, ich meine aber Schaltflächen. Du weißt schon als Standard ist da dieses Smiley für Makros.

jonny1207, 15. Oktober 2007

#6
JEDER MANN

jeder mann

Hallo, jonny,

der Vollständigkeit halber (auch wenn ich persönlich nichts davon halte): eine eigene Symbolleiste erstellen und dies über das Kontextmenü der Symbolleisten an die Mappe anbinden. Ich würde aber eine auf die Mappe eingestellte Vorgehensweise bevorzugen, wie von chris-kaiser vorgeschlagen.

jeder mann, 15. Oktober 2007

#7
CHRIS-KAISER

chris-kaiser

Makro

hiho

die eigene Symbolleiste kann ja auch über Extras ->anpassen -> Symbolleiste
an die jeweilige Arbeitsmappe angefügt werden.

NUR ist diese nicht Mappengebunden und es wird immer der komplette Pfad der Datei auf der Schaltfläche zurückgegeben...

Wenn nun jemand die Mappe verschiebt indem zuerst ein neuer Name vergeben wird und die Orgnialdatei gelöscht wird) geht das Icon nicht mehr..
Nach einer Serverumstellung bei uns im Hause war ich stundenlang im Einsatz *Smilie

seit dieser Zeit vermeide ich es diese Variante zu nehmen.

chris-kaiser, 15. Oktober 2007

#8
JONNY1207

jonny1207

Hi,

hab die (erste) Lösung von chris-kaiser genommen. Funktioniert einwandfrei *biggrin.gif*

Für alle die das copy-and-paste übernehmen möchten, da fehlt die Deklaration der Variable intWorkSheetMenuBarWidth, also:
dim intWorkSheetMenuBarWidth as integer

Vielen Dank für eure Hilfe!!

jonny

jonny1207, 15. Oktober 2007

#9
CHRIS-KAISER

chris-kaiser

hiho

wenn Du noch ein passendes FaceID benötigst da hilft das weiter *Smilie
lieste alle möglichen ID's auf und zeigt das Bild dazu an.

Code:

'Der Prozess CommandBarListe archiviert alle Symbolleisten mit deren Befehle
'Der Prozess CommandBarControlIDListe archiviert alle Befehle mit zugehöriger
'Befehls-ID und Symbol
'Der Prozess CommandBarFaceIDListe archiviert alle Symbole mit dazugehöriger FaceID
'Der Prozess AlleReporte ruft alle drei bereits genannten Prozesse auf und dauert
'etwa 2 Minuten.
'
'Erstellt am 12/03/99 von Ren\'e9 Probst
'Revidiert am 20/10/03
'
Private Const MaxBefehle = 4393 'XL2000
Private Const MaxFaceIds = 4393
'
'ACHTUNG!!!
'In gewissen Rechnerumgebungen kommt es ab ca. 3500 zu einem Absturz!
'
Dim cbb As CommandBarButton, ComBar As CommandBar, cbc As CommandBarControl

Sub AlleReporte()
CommandBarListe
'Stop
CommandBarControlIDListe
'Stop
CommandBarFaceIDListe
'Stop
StatusBar = "Listings beendet."
ActiveWorkbook.Sheets(1).Activate
End Sub

Sub CommandBarListe()
Cells.Select
Selection.ClearContents
Range("A1").Select
Application.ScreenUpdating = False
Dim a, b, c, cbc, d
b = 1
d = 0
ThisWorkbook.Sheets(1).Activate
For Each a In Application.CommandBars
With ThisWorkbook.Sheets(1)
Cells(b + d, 1) = a.Name
Cells(b + d, 2) = "Item-no: " & b
For Each cbc In a.Controls
d = d + 1
Cells(b + d, 3) = cbc.Caption
Cells(b + d, 4) = "Type: " & cbc.Type
Cells(b + d, 5) = "ID: " & cbc.ID
Report "Symbolleisten verarbeitet", d
Next
End With
b = b + 1
Next
For i = 1 To 5
Select Case i
Case 1: w = 23
Case 2: w = 10
Case 3: w = 49
Case 4: w = 8
Case 0: w = 10
End Select
Columns(i).Select
Selection.ColumnWidth = w
Next i
On Error Resume Next
ThisWorkbook.Sheets(1).Name = "Symbolleisten"
Cells(1, 1).Activate
Report "Erstellen des Symbolleisten-Listings", 99999
Application.ScreenUpdating = True
End Sub

Sub CommandBarControlIDListe()
Dim a, b, c
Application.DisplayAlerts = False
Sheets(2).Delete
Application.DisplayAlerts = True
Sheets.Add after:=Sheets(1)
Application.ScreenUpdating = False
ThisWorkbook.Sheets(2).Activate
For Each ComBar In Application.CommandBars
If ComBar.Name = "test" Then ComBar.Delete
Next
'Stop
Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop)
b = 0
c = 1
For a = 1 To MaxBefehle
On Error Resume Next
Set cbb = ComBar.Controls.Add(ID:=a)
If Err.Number 0 Then GoTo weiter
cbb.CopyFace
With ThisWorkbook.Sheets(2)
.Cells((c Mod 100) + 1, (c \ 100) + b + 1).Formula = a
.Cells((c Mod 100) + 1, (c \ 100) + b + 2).Select
.Paste
.Cells((c Mod 100) + 1, (c \ 100) + b + 3).Formula = cbb.Caption
End With
If (c + 1) Mod 100 = 0 Then b = b + 2
c = c + 1
Report "Erstellen des Excel-Befehle-Listings", a
weiter:
Application.CommandBars("test").FindControl(ID:=a).Delete
Err.Clear
Next a
For i = 1 To (c / 100 + 1) * 3
Select Case i Mod 3
Case 1
w = 4
Case 2
w = 3
Case 0
w = 25
End Select
Columns(i).Select
Selection.ColumnWidth = w
Next i
On Error Resume Next
ThisWorkbook.Sheets(2).Name = "Excel Befehle"
Cells(1, 1).Activate
Report "Erstellen des Excel-Befehle-Listings", 99999
Application.ScreenUpdating = True
End Sub

Sub CommandBarFaceIDListe()
Dim a, b
Application.DisplayAlerts = False
Sheets(3).Delete
Application.DisplayAlerts = True
Sheets.Add after:=Sheets(2)
ThisWorkbook.Sheets(3).Activate
Application.ScreenUpdating = False
For Each ComBar In Application.CommandBars
If ComBar.Name = "test" Then ComBar.Delete
Next
On Error Resume Next
Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop)
Set cbb = ComBar.Controls.Add(ID:=1)
b = 0
For a = 1 To MaxFaceIds
With cbb
.FaceId = a
.CopyFace
End With
ThisWorkbook.Sheets(3).Activate
With ThisWorkbook.Sheets(3)
.Cells((a Mod 100) + 1, (a \ 100) + b + 1).Formula = a
.Cells((a Mod 100) + 1, (a \ 100) + b + 2).Select
.Paste
End With
If (a + 1) Mod 100 = 0 Then b = b + 1
Report "Erstellen des Face-Id-Listings", a
Next a
For i = 1 To (a / 100 + 1) * 2
Select Case i Mod 3
Case 1: w = 4
Case 0: w = 5
End Select
Columns(i).Select
Selection.ColumnWidth = w
Next i
On Error Resume Next
ThisWorkbook.Sheets(3).Name = "Symbole (Face-ID's)"
Cells(1, 1).Activate
Report "Erstellen des Face-Id-Listings", 99999
Application.ScreenUpdating = True
End Sub

Private Sub Report(tText, tCount)
Select Case tCount
Case 0
Application.StatusBar = tText + " - Bitte warten..."
Case 99999
Application.StatusBar = tText + " - Beendet."
Case Else
Application.StatusBar = CStr(tCount) + " " + tText + " - Bitte warten..."
End Select
DoEvents
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser, 15. Oktober 2007

#10
JONNY1207

jonny1207

Hi,

ja das Makro hab ich auch schon *tongue.gif*

Danke!

jonny

jonny1207, 15. Oktober 2007

#11
MARTY257

Marty257

Hallo *Smilie

genau dieses Thema passt zu meinem Problem. *Smilie
Getestet und funktioniert auch mit diesem einen Menüpunkt.

Jetzt aber eine andere Frage:
Ich möchte mir so eine Art kleine Toolbar mit verschiedenen Untermenüs aufbauen. Über die "reguläre" Möglichkeit über Excel funktioniert das ja auch wunderbar.
Wie mach ich das denn hier beim Programmieren? Wie füge ich denn da so ein Untermenü ein und versehe sie dann mit Menüpunkten?

Der letzte Post von Chris-Kaiser hab ich nicht so ganz verstanden. Was macht denn diese Makrosammlung?

Marty257, 18. Oktober 2007

#12
INGGI

IngGi

Makro

Hallo Marty!

Anregung:

Wenn du das in Excel schon einmal erfolgreich gemacht hast, warum machst du das nicht einfach nochmal und zeichnest das Ganze dabei als Makro auf?

Da kommt dann sowas in der Art raus:

Code:

Sub Makro1()
'
' Makro1 Makro
' Makro am 19.10.2007 von mir aufgezeichnet
'

'
Application.CommandBars.Add(Name:="Benutzerdefiniert 2").Visible = True
Application.CommandBars("Benutzerdefiniert 2").Controls.Add Type:= _
msoControlButton, ID:=106, Before:=1
Application.CommandBars("Benutzerdefiniert 2").Controls.Add Type:= _
msoControlButton, ID:=23, Before:=2
Application.CommandBars("Benutzerdefiniert 2").Controls.Add Type:= _
msoControlButton, ID:=2520, Before:=3
End Sub

Code eingefügt mit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi, 18. Oktober 2007

#13
CHRIS-KAISER

chris-kaiser

Hallo Marty

siehe auch
http://www.ms-office-forum.de/forum/...d.php?t=219941
dort wird unter Extras ein Menü eingebunden

oder
mit Untermenü
http://spotlight-wissen.de/lisp/page...58222119-24065

und die Antwort darauf
http://spotlight-wissen.de/lisp/page...158239516-9105

und @ Ingolf gratuliere DIR zum 1000!!!!
*Smilie

chris-kaiser, 18. Oktober 2007

#14
MARTY257

Marty257

Die Lösung von Chris ist ja fast wieder prima. :-)

Nur so ganz passt es nicht, das fügt sich ja dann in die Menüleiste ein, rechts neben dem ?.
Als Symbolleiste wäre mir das lieber. Was muss ich denn da umbenennen, damit es auch als Symbolleiste angezeigt wird?

Auch habe ich jetzt das Problem, dass die Makros nicht mehr gefunden werden. Der Einstein meldet immer die Fehlermeldung
»Microsoft Excel kann das Makro "[Arbeitsmappenname]!Makroname" nicht finden«.

Ich habe hier einfach das »besserist« durch mein Makroname ersetzt...

---
Nochmal zurück zu Post #10 von Chris.

Ich hab den VBA-Code mal 1:1 übernommen und in ein Modul einer Excelmappe kopiert.
Darauf bin ich in Excel auf Makro ausführen und hab dann versucht, jedes Makro auszuführen. Bei jedem Versuch ist Excel abgestürzt.
Wie kann ich das denn unterbinden? Oder liegt es an meiner Uralt-Excel-Version aus dem Jahre 97?

Ich habe hier auch schon die beiden Zeilen

Private Const MaxBefehle = 1000 'XL2000
Private Const MaxFaceIds = 1000

auf 1000 runtergesetzt, aber immer noch Excel-Absturz. *frown.gif*

Marty257, 19. Oktober 2007

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Makro

Die Seite wird geladen...

Makro - Similar Threads - Makro
Makro einer Befehlsschaltfläche zuordnen
in Microsoft Word Hilfe
Makro einer Befehlsschaltfläche zuordnen: Hallo Zusammen, ich habe eine Frage : Ich habe eine Befehlsschaltfläche activeX Steuerelenz in der Word Datei eingefügt und möchte, dass beim Anklicken ein vorhandenes Makro ausgelöst wird. Wie...
excel 365: Symbol mit benutzerdefinierten Makro
in Microsoft Excel Hilfe
excel 365: Symbol mit benutzerdefinierten Makro: Hallo ! ich war noch nicht fertig! Ich habe ein Problem! Ich habe ein Makro1 in Excel in einer Mappe1 aufgezeichnet. Danach habe ich den Zugriff auf das Makro1 in die Symbolleiste der Mappe1...
Access Datei wird per Makro nicht gespeichert
in Microsoft Access Hilfe
Access Datei wird per Makro nicht gespeichert: Hallo zusammen, anbei mein Makro: Private Sub Speichern_Click() Dim Dateiname As String Dim Kuerzel Kuerzel = DLookup("mitarbeiterkürzel", "tbl_mitarbeiter", "mitarbeiterid = " &...
Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche)
in Microsoft Excel Hilfe
Auswertung aus mehreren Registern erstellen (nur die Gelbmarkierten oder mit Datum von akt. Woche): Hallo zusammen, ich arbeite mit einer Excel-Arbeitsmappe, die mehrere Tabellenblätter enthält. Jedes Blatt dokumentiert bestimmte Vorgänge, und die Struktur der Daten ist in allen Blättern...
Name der Datei durch Excel geändert
in Microsoft Excel Hilfe
Name der Datei durch Excel geändert: Hallo und guten Abend, Die Datei wird mittels Button (VBA) zwischen gesichert. Das Makro sichert zuvor die Datei und erstellt zus. eine Sicherungsdatei mit der Erweiterung Beispiel-"Sich"....
Ein Makro für mehrere Register
in Microsoft Excel Hilfe
Ein Makro für mehrere Register: Moin, ich habe ein Makro wo Daten aus dem Register Master kopiert werden und Register, das mit einem Datum beschriftet ist. Ich möchte in Jedem Register ein Button haben was Daten aus dem Master...
Makro öffnet unerwartete Datei
in Microsoft Excel Hilfe
Makro öffnet unerwartete Datei: Hallo Forum, ich brächte euer Schwarmwissen. Arbeite mit Excel eine Auftragsbearbeitung. Dort habe ich mir einen Button mit Makro erstellt und nutze diesen schon lange. Das Makro generiert ein...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden