Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
08.05.2024 21:22:24
In vorhandener Formel Jahreszahl mit einbeziehen
08.05.2024 21:15:37
Koordinaten im XY-Diagramm per Cursor ändern.
08.05.2024 19:10:09
doppelte Zeile gem. mehrerer Bedingungen löschen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
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
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code verkürzen

Code verkürzen
05.10.2020 16:58:56
Guesa
Hallo Forum
In folgender Datei tausche ich Unterschriften, was soweit auch funktioniert. Wie kann der nicht so elegante Code, anders hab ich es nicht hingekriegt, verkürzt werden.
Schon mal ein Dankeschön für eure Hilfe
Gruß, Guesa
https://www.herber.de/bbs/user/140668.xlsm

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code verkürzen
05.10.2020 17:11:31
Daniel
Hi
vielleicht nach diesem Prinzip
statt:
Sub Makro1
Debug.print "1"
End Sub
Sub Makro2
Debug.print "2"
End Sub
Sub Makro3
Debug.print "3"
End Sub
das hier 
Sub HauptMakro()
x = "1" 'oder "2" oder "3"
Call UnterMakro(x)
End Sub
Sub UnterMakros(y)
Debug.Print y
End Sub
Gruß Daniel
AW: Code verkürzen
05.10.2020 18:41:27
Guesa
Hallo Daniel
Danke für die Antwort, das wäre ja fast so wie ich es jetzt habe. Könnte über eine Schleifenabfrage gehen aber gerade bei Grafiken ist das wohl nicht so einfach da habe ich gar keine Ahnung von.
Gruß, Guesa
Anzeige
AW: Code verkürzen
05.10.2020 18:36:37
Yal
Hallo Guesa,
_ beachte dein Identierung
_ verwende Variablen
_ mache Dir ein Bild, von was sich wiederholt und
_ was der eine vom anderen unterscheidet
Demtentsprechend folgende Vorschlag: 
Sub U1_einfügen() 'nummer 1
Dim Wa As Worksheet
Dim Wb As Worksheet
Dim Wu As Worksheet
Dim ashp As Shape
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="1"
Set Wa = ActiveSheet
Set Wb = Worksheets("Bestellung")
For Each ashp In AW.Shapes
Debug.Print ashp.Name
AW.Shapes.Range(Array(ashp.Name)).Delete
Wu.Shapes("1").Copy
Wb.Paste
Wb.Shapes("1").Left = 210
Wb.Shapes("1").Top = 710
Wb.Range("E51") = Wu.Range("B2").Value
Wa.Range("C2").Select
MsgBox "Die Unterschrift wird in: " & Wb.Range("E51") & " geändert!"
Next ashp
ActiveSheet.Protect Password:="1"
Application.ScreenUpdating = True
End Sub
ungetestet.
Viel Erfolg
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige