Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.06.2024 19:56:24
17.06.2024 19:39:46
Anzeige
Archiv - Navigation
1208to1212
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
Inhaltsverzeichnis

Tabelleblatt kopieren ohne Makros - anpassung -

Tabelleblatt kopieren ohne Makros - anpassung -
Karel
Hallo Leute,
Habe letzt unterstehende Code vom Tino erhalten er kopiert das aktive Tabelleblatt in eine neue mappe und löscht alle Spalte die mit eine X markiert sind. Dass geht auch richtig spitze.
Habe aber eine sache vergessen, alle makro's in sich Tabelleblatt befinden werden mit kopiert ( _
Privat

Sub Change ereignis).
Frage ist wie kan man dass unterbinden sodass makro's vom tabelleblatt nicht mitkopiert werden.
Option Explicit

Sub CopyWithShapes()
Dim varCol
Dim iCalc As Integer, oShape As Shape
With Application
iCalc = .Calculation
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
ActiveSheet.Copy
With ActiveSheet
For Each oShape In .Shapes
If oShape.Type = msoPicture Then
oShape.OnAction = ""
Else
oShape.Delete
End If
Next oShape
.Name = ThisWorkbook.ActiveSheet.Range("J1")
With ActiveSheet.UsedRange
.Value = .Value
varCol = Application.Match("X", .Rows(1), 0)
Do While IsNumeric(varCol)
.Columns(varCol).Delete
varCol = Application.Match("X", .Rows(1), 0)
Loop
.Rows(1).Clear
End With
End With
.ScreenUpdating = True
.EnableEvents = True
.Calculation = iCalc
End With
End Sub
Grüße
Karel
AW: Tabelleblatt kopieren ohne Makros - anpassung -
29.03.2011 18:39:33
Hajo_Zi
Hallo karel,
speichere die Datei als XLSX

AW: Tabelleblatt kopieren ohne Makros - anpassung -
30.03.2011 07:59:47
Tino
Hallo,
lagere Dein Makro in ein Modul aus
bzw. bei Eventmakros kannst Du dies über DieseArbeitsmappe oder Klassenprogrammierung machen.
Lade mal ein Bsp. mit dem enthaltenen Code hoch, dann kann ich Dir vielleicht dabei helfen.
Gruß Tino
AW: Tabelleblatt kopieren ohne Makros - anpassung -
30.03.2011 10:29:54
Karel
Guten Morgen,
Hallo Hajo, danke für deine Vorschlag aber da die Datei als .xls an mehrere Personen gesendet wird die unterschiedliche Excel Versionen draufhaben ist es pragmatischer Datei ohne Makros als .xls zu versenden.
Hallo Tino, danke für deine Rückmeldung anbei Bsp. Datei mit enthaltenem Code.

Die Datei https://www.herber.de/bbs/user/74202.xlsm wurde aus Datenschutzgründen gelöscht


Grüße
Karel
Anzeige
AW: Tabelleblatt kopieren ohne Makros - anpassung -
30.03.2011 11:02:12
gerwas
Hallo Karel
ich verwende immer in solchen Fällen nachfolgende Macro, welches ich auch hier aus dem Forum "habe"...
vielleich kannst du es für deine belange anpassen, weil es allen code entfernt.
Gruß Gerwas
Public Sub CodeKiller(Dateiname)
'zugriff auf vba-code erlauben unter extras-optionen-sicherheit-macrosicherheit
Set wb = Workbooks(Dateiname)
For x = wb.VBProject.VBComponents.Count To 1 Step -1
n = wb.VBProject.VBComponents(x).Name
a = wb.VBProject.VBComponents(x).CodeModule.CountOfLines
If a &gt 0 Then
wb.VBProject.VBComponents(x).CodeModule.DeleteLines 1, a
End If
t = wb.VBProject.VBComponents(x).Type
If t &lt 4 Then wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents(x)
Next x
End Sub

Anzeige
Zugriff auf VBA Projekte?
30.03.2011 11:19:36
Tino
Hallo,
wenn dem Zugriff auf VBA Projekte nicht vertraut wird, kannst Du dies in die Tonne treten. ;-)
Gruß Tino
hier die angepasste Version,...
30.03.2011 11:15:26
Tino
Hallo,
in der Tabelle1 ist kein VBA Code mehr
den habe ich in das neue Klassenmodul ausgelagert (Klasse1),
dieses wird in DieserArbeitsmappe (Workbook_Open) initialisiert.
https://www.herber.de/bbs/user/74204.xlsm
Gruß Tino
AW: und wieder einmal glücklich oT
30.03.2011 13:27:16
Karel
Hallo Tino,
Viele dank für deine einsatz jetzt geht ;-)
Gruß Karel

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige