Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 10:21:13
Makro - Bilder ausführen
07.05.2024 09:59:06
CSV-Datei ohne Anführugnszeichen
07.05.2024 09:05:15
Einkaufsliste - Automatischer Abgleich Arbeitsblätter
07.05.2024 08:58:53
Dynamischer Bereich in Diagramm verwenden.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
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
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VAB Code kürzen

VAB Code kürzen
12.08.2021 13:11:28
Sabrina
Hallo zusammen,
könnt ihr mir sagen, wie ich diesen Code kürzen kann? Ich benötige diesen sehr oft und möchte das Modul nicht unnötig groß machen.
Danke Vorab1
If Sheets("Datenblatt").Range("B55").Value = "XXX" Then
Sheets("XXX").Select
ActiveSheet.Shapes.Range(Array("Grupa 43")).Select
Selection.Copy
Sheets("XXX").Select
Range("D9").Select
ActiveSheet.Paste
End If

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VAB Code kürzen
12.08.2021 14:17:03
Rudi
Hallo,
wenn du das oft brauchst, solltest du es in eine andere Prozedur auslagern.
z.B.

Sub aa()
If Sheets("Datenblatt").Range("B55").Value = "XXX" Then
Call CopyShape(Sheets("XXX"), Sheets("XXX").Range("D20"), "Grupa 43")
End If
End Sub
Sub CopyShape(wks As Worksheet, rngZiel As Range, strShape As String)
Dim sngTop As Single, sngLeft As Single
sngTop = rngZiel.Top
sngLeft = rngZiel.Left
With wks
.Shapes(strShape).Copy
.Paste
With .Shapes(.Shapes.Count)
.Top = sngTop
.Left = sngLeft
End With
End With
End Sub
Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige