Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1592to1596
1592to1596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

25 Makros ausführen über ein Makro

25 Makros ausführen über ein Makro
18.11.2017 16:39:04
Dieter(Drummer)
Guten Tag Spezialisten,
ich habe 25 einzelne Makros, die sind benannt "Kreuz1", "Kreuz2", "Kreuz3" bis Kreuz25.
Ich suche einen Code, der alle 25 Makros, Kreuz1 bis Kreuz25, hintereinander aufruft.
Mir ist bekannt, dass ich z.B. mit: 
Sub KreuzAlle()
call Kreuz1
call Kreuz2 ... usw.
End sub

alle Makros hintereinander aufrufen kann. Ich suche aber einen einfacheren, kürzeren Code.
Mit der Bitte um Hilfe, grüßt,
Dieter(Drummer)

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
und ich wette mit Dir, ...
18.11.2017 16:46:39
lupo1
... dass die Kreuz1 bis Kreuz25 nicht so unterschiedlich sind, als dass man sie nicht mit Argumenten als eine Prozedur zusammenfassen könnte.
AW: und ich wette mit Dir, ...
18.11.2017 17:08:57
Dieter(Drummer)
Hallo Lupo1,
die Wette würdest du verlieren :-).
Jedes dieser Makros setzt einen Commandbutton von der Startzelle auf eine andere Zelle, und dies bei 25 Buttons von unterschiedlichen Start- zu unterschiedlichen anderen Zellen. Hier ein Beispiel, dass evtl. kürzer oder einfacher sein kann, aber dazu fehlt mir das Wissen: 
Sub Kreuz1()
Call Info2
Dim rng As Range
Set rng = ActiveSheet.Range("c13") 'Da muss er hin
With ActiveSheet.OLEObjects("Norw")'Button Name
.Top = rng.Top
.Left = rng.Left
.Width = rng.Width
.Height = rng.RowHeight + rng.Offset(1, 0).RowHeight 'für Zellen C13 UND C14. 2 Zeilen/Zellen
End With
rng.Select 'Rückzelle wird selectiert
With Worksheets("Original")
.Range("c3") = "" 'Richtiger Position, Inhalt löschen
End With
Range("O10").Select
End Sub

Gruß, Dieter(Drummer)
Anzeige
AW: und ich wette mit Dir, ...
18.11.2017 17:35:45
mumpel
Hallo!
Auch daraus liese sich eventuell eine Prozedur machen.
Übrigens:
Was machen die Schaltflächen was sich nicht auch z.B. mit Doppelklick realisieren liese?
Gruß, René
AW: Gute Idee, René ...
18.11.2017 19:22:42
Dieter(Drummer)
... dann könnte ich mir natürlich die "Kreuz" Codes sparen aber ich kann das sicher nicht programmieren.
Der Code, der z.B. einen Commandbutton an eine bestimmte Stelle im Tabellenblatt setzt, sieht so aus (ist nur in wenigen Teilen von mir): 
Private Sub Norw_Click()'Button Norw
Dim rng As Range
Worksheets("Tabelle1").Activate
Set rng = Application.InputBox(Prompt:="Die gewünschte Zielzelle mit der Maus auswählen " &  _
vbLf & "oder deren Adresse von Hand eingeben.", Title:="Zellauswahl", Type:=8)
If Not rng Is Nothing Then
With ActiveSheet.OLEObjects("Norw") 'Kurzname des Buttons
.Top = rng.Top
.Left = rng.Left
.Width = rng.Width
.Height = rng.RowHeight 'für 1 Zelle
End With
End If
rng.Select 'Wo Button hin geht, wird Zelle selectiert
With Worksheets("Original")
.Range("c3") = LCase(ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False)) 'Neue  _
Zelladresse
End With
End Sub

Wenn ich dann auf den gleichen Button ein zweites Mal klicke, könnte er natürlich wieder in seine vorherige Position zurück.
Das zu programmieren übersteigt meine Fähigkeiten.
Falls du da etwas machen kannst, wäre das prima.
Gruß, Dieter(Drummer)
Anzeige
übersteigt meine Fähigkeiten_dann Finger weg !
19.11.2017 14:51:33
robert
AW: 25 Makros ausführen über ein Makro
18.11.2017 16:47:49
Luschi
Hallo Dieter,
bei mir sieht das so aus: 

Sub Kreuz()
Dim i As Integer
For i = 1 To 1001
Application.Run "Kreuz" & i
Next i
End Sub
Gruß von Luschi
aus klein-Paris
AW: Danke Luschi, geht perfekt ....
18.11.2017 17:00:29
Dieter(Drummer)
... noch einen schönen Resttag.
Gruß, Dieter(Drummer)
und noch immer Basiskenntnisse..........
18.11.2017 18:25:05
robert
:-(

306 Forumthreads zu ähnlichen 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
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
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
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
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
Anzeige

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
2
4
2
7
23
5
4
2
4
2
3
10
5
3
1
3
11
2
6
15
4
3
5