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

Makros zu einem Makro ändern

Forumthread: Makros zu einem Makro ändern

Makros zu einem Makro ändern
23.07.2016 12:16:44
Dieter(Drummer)
Guten Tag, VBA Spezialisten,
wie muss das Makro sein, wenn aus mehreren Makros ein Makro gemacht wird?
Wäre schön, wenn mir da geholfen werden könnte. Anbei meine Datei mit den bisherigen Makros.
Mit Gruß,
Dieter(Drummer)
https://www.herber.de/bbs/user/107184.xlsm
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makros zu einem Makro ändern
23.07.2016 12:53:03
Hajo_Zi
Hallo Dieter,
ich bin nun nicht der Fachmann für Formular Steuerelemente.
Trage bei AternativeText die Nummer ein und benutze nur ein Makro.
Sub farbe_gruen()
Dim objSpeaker As Object, x&
Set objSpeaker = CreateObject("SAPI.SpVoice")
objSpeaker.Volume = 100
For x = 5 To 5
objSpeaker.Speak Range("BA" & x)
Next
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = ActiveSheet.Shapes(Application.Caller).AlternativeText
End With
ActiveSheet.Protect
End Sub

Anzeige
AW: Makros zu einem Makro ändern
23.07.2016 13:15:18
Dieter(Drummer)
Danke Hajo. für Rückmeldung, Makroänderung und Hinweis. Könntest du mir da ein Beisiel gegen, da ich nicht weiß, wie ich das umsetzen soll.
Gruß, Dieter(Drummer)
AW: Makros zu einem Makro ändern
23.07.2016 13:20:20
Hajo_Zi
Hallo Dieter,
allen Schalter diese Makro zuweisen und bei AlternativenText die Zahl eintragen.
Wo ist das Problem?
Ich speichere keine Dateien aus dem Herber Forum. Da kein richtiger Name.
Gruß Hajo
Anzeige
AW: Makros zu einem Makro ändern
23.07.2016 13:39:38
Dieter(Drummer)
Hallo Hajo, danke für Hinweis. Ich habe jetzt allen Farbbuttons dein geändertes Makro zugewiesen.
Mit der Angabe der Zahl bei Alternativen Text, verstehe ich noch nicht und bitte weiter um Hilfe. Meine Datei nochmal als Anhang.
Gruß, Dieter(Drummer)
Hier dein Makro:
'Herber: von Hajo_Zi am 23.07.2016 
Sub farbe_diverse()
Dim objSpeaker As Object, x&
Set objSpeaker = CreateObject("SAPI.SpVoice")
objSpeaker.Volume = 100
For x = 5 To 5
objSpeaker.Speak Range("BA" & x)
Next
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = ActiveSheet.Shapes(Application.Caller).AlternativeText
End With
ActiveSheet.Protect
End Sub

https://www.herber.de/bbs/user/107185.xlsm
Anzeige
AW: Makros zu einem Makro ändern
23.07.2016 13:42:30
Hajo_Zi
in der Zeile
.ColorIndex = ActiveSheet.Shapes(Application.Caller).AlternativeText
wird die Nummer ausgelesen und zugewiesen.
Ich sehe keinen Grund eine Datei herrunter zuladen.

AW: Danke Hajo für Hilfe ...
23.07.2016 13:45:05
Dieter(Drummer)
... ich werde weiter probieren, bis ich es schaffe.
Gruß, Dieter(DRummer)
Anzeige
AW: Makros zu einem Makro ändern
23.07.2016 23:47:57
DD
Moin Dieter(Drummer),
mich hat dein "Problem" auch interessiert.
Bei mir läuft das mit dem unten eingefügten Code.
Es war mir noch aufgefallen, dass in deiner Datei die beiden
rechten Shapes die gleiche Bezeichnung "Rectangle 6" haben.
Das produziert jeweils die gleiche Füllfarbe.
Gruß Dieter_D
Sub farbe_diverse()
Dim objSpeaker As Object, x&
Set objSpeaker = CreateObject("SAPI.SpVoice")
objSpeaker.Volume = 100
For x = 5 To 5
objSpeaker.Speak Range("BA" & x)
Next
ActiveSheet.Unprotect
With Selection.Interior
.Color = ActiveSheet.Shapes(Application.Caller).Fill.ForeColor  '.AlternativeText
End With
ActiveSheet.Protect
End Sub

Anzeige
AW: Makros zu einem Makro ändern
24.07.2016 00:09:44
Matthias
Hallo Dieter & Dieter ;-)
Nicht ganz, denn es wird immer der Text zurückgegeben
"Aktive Zelle gleich grün"
Auch dem muss man Rechnung tragen!
Das mit dem doppelten Namen hatte ich auch schon bemerkt und war anscheinend zur selben Zeit
dabei etwas zurecht zu basteln.
Hier meine Version mit Hajos Idee
Option Explicit
Sub farbe_Shapes()
Dim objSpeaker As Object, x&
Set objSpeaker = CreateObject("SAPI.SpVoice")
objSpeaker.Volume = 100
Select Case ActiveSheet.Shapes(Application.Caller).AlternativeText
Case Is = 6 'gelb
x = 4 'Zelle("F4")
Case Is = 3 'rot
x = 3 'Zelle("F3")
Case Is = 4 'grün
x = 5 'Zelle("F5")
Case Is = 5 'blau
x = 6 'Zelle("F6")
Case Is = 15 'grau
x = 7 'Zelle("F7")
Case Is = -4142
x = 8 'Zelle("F8")
Case Is = False 'Farbknopftext
x = 9 'Zelle("F9")
End Select
objSpeaker.Speak Range("F" & x)
ActiveSheet.Unprotect
With Selection.Interior
.ColorIndex = ActiveSheet.Shapes(Application.Caller).AlternativeText
End With
ActiveSheet.Protect
End Sub
Hier die Datei:
https://www.herber.de/bbs/user/107199.xlsm
Gruß Matthias
Anzeige
AW: Danke Matthias ...
24.07.2016 08:25:02
Dieter(Drummer)
... Code läuft perfekt.
Gruß, Dieter(Drummer)
AW: Danke Dieter_D ...
24.07.2016 08:20:49
Dieter(Drummer)
... das war mir nicht aufgefallen. Danke für deinen Code.
Gruß, Dieter(Drummer)
;

Forumthreads zu verwandten Themen

mehrere Makros in ein Makro kopieren
jenny

Hey, wie kann ich mehrere Makros in ein Makro kopieren?
Angenommen ich hab Makro 01 und 02 und will die in ein Makro kopieren, dass Update heisst. Funktioniert das:
Sub Update Sub01 End Sub
Sub02
..
End Sub
End Sub
Also kann ich einfach bei editieren das ganze...
01.10.2008 19:00:57
Thread-ID: 1013736
2 Beiträge
Per Makro ein Makro unter CommandButton einfügen
Andi

Hallo liebe Excel Gemeinde,
Ich hoffe Ihr seid alle gut ins neue Jahr gekommen!
Ich benötige eine Lösung für folgendes Problem:
Ich möchte gerne versuchen per makro in einen eben erstellten Commandbutten ein Makro zu schreiben.
Den commandbutten zu erstellen und seine Eigenschaf...
05.01.2009 09:12:15
Thread-ID: 1036897
7 Beiträge
Anzeige
Makros nacheinander ausführen
Philipp

Hallo Leute, dies ist mein erster Eintrag in einem Excel-Forum ever, also hallo erstmal! ;-)
Ich hoffe auf Eure Hilfe zu einem VBA Problem. Habe schon ähnliche Einträge in anderen Foren gefunden, jedoch keine lösung, die bei mir funktioniert.
Problem ist folgendes:
Ich habe verschie...
18.06.2009 11:33:36
Thread-ID: 1082519
3 Beiträge
Makro in neue Arbeitsmappe ausführen
Fred

Hallo zusammen
Ich komme mal wieder nicht weiter. Ich habe unten ein Makro zusammen gestrickt was auch prima funktioniert und weiss jetzt nur nicht wie ich es anstellen soll das im hintergrund eine vorhandene Arbeitsmappe geöffnet wird dann in der Mappe ein neues Tabellenblatt mit dem unten...
07.07.2009 17:11:23
Thread-ID: 1086973
5 Beiträge
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
Anzeige
Makro warnung obwohl kein Makro vorhanden...
Torsten

Hallo zusammen,
ich habe in einer Exceldatein mal ein Marko gehabt. In der Zwischenzeit habe ich das Marko gelöscht, die Warnmeldung, dass die Datei Makros enthält, kommt aber immer noch.
Kann man das irgendwie abschalten?
Grüsse
Torsten
07.08.2009 08:37:53
Thread-ID: 1094191
8 Beiträge
Anzeige
Makro in Makro schreiben lassen ?
alexander

Hallo,
mein Problem:
Ich habe ein Makro zur Massenpflege von verschiedenen Dateien erstellt. Nun möchte ich aber, das mir das Makro beim abändern der einzelnen Dateien einen bestimmten Code (ein weiteres Makro) in die Tabellenblattmodule der einzelnen Dateien schreibt. Sprich, das die v...
10.08.2009 10:16:27
Thread-ID: 1094632
24 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Formel per Makro einfügen - Ausführen fehlerhaft
Dennis

Hallo Gemeinde,
nachdem mir gestern hier so toll geholfen wurde, bin ich mir sicher, dass ihr mir auch bei dem Problem helfen könnt :)
Also, ich füge per Makro eine Formel (=SUMMEWENN(AI:AI;A11;AR:AR)) in Tabellenblatt 1 ein, ein paar mal untereinander (A11 variiert dabei). Funktionier...
09.09.2009 15:28:39
Thread-ID: 1101555
5 Beiträge
Anzeige
Makros beim Speichern eliminieren
Chris

Hallo Excelianer
Also, folgendes Problem
Ich habe eine Datei, die per Makro einige Berechnungen ausführt. Am Ende der ganzen Berechnungen speichert sich die Datei mit SaveAs. Das heisst: Das Tool an sich wird nicht überschrieben.
Die "SaveAs"-Datei ist eine reine Werte-Datei. Mein...
16.09.2009 16:39:45
Thread-ID: 1103283
3 Beiträge
Modul beim Schließen erneut ausführen
Alexander

Hallo zusammen,
hab' eine Navigationsleiste erstellt, die beim Schließen gelöscht wird.
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Menüleiste").Delete End Sub Angenommen, Excel fragt beim Schließen nach, ob die Arbeitsmappe gespeichert werden soll und...
19.10.2009 17:50:31
Thread-ID: 1110710
5 Beiträge
makro wird beim speichern nicht ausgeführt
alex

Und noch einmal brauche ich eure hilfe
Ich habe mir in meiner excel tabelle ein speichern button gebaut mit dem code:"activeworkbook.save"
gleichzeitig habe ich ein makro was ausgeführt wird wenn ich speichere "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean...
24.10.2009 14:25:08
Thread-ID: 1111842
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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