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

Prozeduren vor dem Speichern aus Tabelle löschen

Forumthread: Prozeduren vor dem Speichern aus Tabelle löschen

Prozeduren vor dem Speichern aus Tabelle löschen
30.01.2008 08:26:00
BuStü
Guten Morgen,
ist es möglich vor dem Speichern eines Tabellenblattes die vorhandenen Prozeduren zu löschen.
Ich habe gedacht es funktioniert mit folgendem Code:
For Each Shp In ActiveSheet
If ActiveSheet.VBProject.VBComponents(wks.CodeName).CodeModule.DeleteLines 1,.CountOfLines
Next
funktiniert leider nicht.
Kann mir jemand helfen.
MfG
Bustue

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prozeduren vor dem Speichern aus Tabelle löschen
30.01.2008 08:34:13
Herbert
Hallo Bustue
Ich hab mir das auf ´nen Button in der Mappe gelegt:

Private Sub CmdFinish_Click()
On Error Resume Next
Application.ScreenUpdating = False
Dim wks As Worksheet, wkb As Workbook
Set wkb = ThisWorkbook
Worksheets(1).Copy
Sheets(1).CmdFinish.Visible = False
Set wks = ActiveSheet
With ActiveWorkbook.VBProject _
.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
DisplayAlerts = False
wkb.Close savechanges:=False
DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gruß Herbert

Anzeige
AW: Prozeduren vor dem Speichern aus Tabelle löschen
30.01.2008 11:22:00
BuStü
Danke Herbert,
Leider sind nicht alle enthaltenen Prozeduren gelöscht.
MfG
Burghard

AW: Prozeduren vor dem Speichern aus Tabelle löschen
30.01.2008 08:43:17
Josef
Hallo ?
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
    With ActiveWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
        .DeleteLines 1, .CountOfLines
    End With
Next


Gruß Sepp



Anzeige
AW: Prozeduren vor dem Speichern aus Tabelle löschen
30.01.2008 11:16:00
BuStü
Hallo Josef, danke für Deine Antwort,
- leider erhalte ich in der Zeile
With ActiveWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
die Fehlermeldung: Laufzeitfehler1004: Der programmatische Zugriff auf das Visual Basic-Project ist nicht sicher.
Habe ich was übersehen. der Gesamtcode sieht jetzt so aus:

Private Sub Teilebestellung_drucken_Click()
Dim SavePath As String
Dim tb As Object
Dim Shp As Object
Dim vbc As Object
Dim wks As Worksheet
SavePath = "C:\Dokumente und Einstellungen\PC3\Eigene Dateien\Bestellungen"
'Kopiert die aktuelle Tabelle
ActiveSheet.Copy
'Löscht die CommandButton
For Each Shp In ActiveSheet.Shapes
If Shp.Type = 12 Then Shp.Delete
Next
'Löscht alle AutoForm
'For Each tb In ActiveSheet.Shapes
'tb.Delete
'Next
For Each Shp In ActiveSheet.Shapes
If Shp.Type  13 Then Shp.Delete
Next
'Löscht die Prozeduren
For Each wks In ActiveWorkbook.Worksheets
With ActiveWorkbook.VBProject.VBComponents(wks.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
'Speichert die Datei unter dem Tabellennamen und das aktuelle Datum mit UIhrzeit
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm- _
ss") & ".xls"
Variable = Application.Dialogs(xlDialogPrint).Show
'ActiveSheet.PrintOut  druckt auf Standarddrucker
'Sheets("Teilebestellung").Activate läßt Tabelle offen
ActiveWorkbook.Close 'schließt kopierte Tabelle wieder
End Sub


MfG
BuStü

Anzeige
AW: Prozeduren vor dem Speichern aus Tabelle löschen
30.01.2008 11:30:26
Josef
Hallo ?
du must unter > Extras > Makros > Sicherheit > Vertrauenswürdige Herausgeber, die Option "Zugriff auf VBA-Projekt zulassen" anhaken.

Gruß Sepp



AW: Prozeduren vor dem Speichern aus Tabelle löschen
30.01.2008 13:14:00
BuStü
Hallo Josef,
Du warst meine Rettung. Großen Dank.
MfG
BuStü
Anzeige

Forumthreads zu verwandten Themen

Probleme bei Passwortschutz von Tabellenblatt
Tabellenblatt

Hallo, ich habe ein Problem mit einem VBA und dem Tabellenschutz per Passwort.
Ich habe den folgenden Code:
Option Explicit
Public AlterWert As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("K2:K" & Cells(Rows.Count, "K"...
24.09.2008 00:20:40
Thread-ID: 1011899
6 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Kopieren in ausgeblendete Tabelle
Wolfgang

Hallo,
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabe...
09.11.2008 15:48:00
Thread-ID: 1023078
3 Beiträge
Anzeige
Hilfe bei einem Programm mit Tabellen
Fokke

Hallo
ich soll meinem Vater ein kleines Programm schreiben, bin auch dran, hab da aber ein kleines problem
und zwar hab ich zwei Tabellen vorliegen, in der einen stehen Kundeneinzahlungen und in der anderen will mein Vater es so haben, dass da nur die Zeile von dem Kunden angezeigt wird...
16.11.2008 18:27:26
Thread-ID: 1024975
2 Beiträge
Hilfe bei einem Programm mit Tabellen
Fokke

Hallo
ich soll meinem Vater ein kleines Programm schreiben, bin auch dran, hab da aber ein kleines problem
und zwar hab ich zwei Tabellen vorliegen, in der einen stehen Kundeneinzahlungen und in der anderen will mein Vater es so haben, dass da nur die Zeile von dem Kunden angezeigt wird...
16.11.2008 18:36:09
Thread-ID: 1024976
4 Beiträge
Anzeige
Bereich von Tabelle1 als Grafik in Tabelle2 einfüg
Tabelle1

Hallo Leute,
ich komm irgendwie nicht weiter und benötige Hilfe.
es soll z.B. von Sheets("Tabelle1") Range("a1:b5")
als Grafik
in Sheets("Tabelle2")
Gruss
Atikar
19.11.2008 17:09:19
Thread-ID: 1026118
3 Beiträge
Tabellenblatt kopieren - Verständnisproblem
Michael

Hallo,
ich möchte ein Tabellenblatt von einer Datei in eine Andere kopieren.
Dazu habe ich in einem schlauen Buch folgenden Code gefunden:
Sub Tabelle_einfuegen(strName As String, _ strFilename As String) Dim wkbWorkbook As Workbook Dim wksWorksheet As Worksheet On Error Resume Ne...
27.11.2008 15:06:00
Thread-ID: 1028407
6 Beiträge
screenshot als JPG speichern
heike

Hallo experten,
ich suche eine VBA - Lösung um einen Screenshot zu erzeugen und diesen als JPG abzuspeichern.
Eine Lösung, um eine BMPdatei zu speicher habe ich bereits (sieh unten).
Danke Nepumuk.
Am besten währe genau dieser Ansatz, weil ich das Bild beschneiden kann.
Nur...
16.12.2008 20:47:09
Thread-ID: 1033426
2 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Tabellenblätter aus ext. Datei kopieren
Mandy

Hi,
such dringend Hilfe. Ich suche ein Makro, mit dem ich aus Excel heraus den ÖFFNEN-Dialog starten kann, eine externe Excel Tabelle auswählen kann und dann alle darin befindlichen Tabellenblätter in mein Sheet laden kann.
Muss dazu sagen, meine Tabelleblätter, die ich kopieren will, e...
20.03.2009 09:18:22
Thread-ID: 1062047
5 Beiträge
Spezialproblem bei dynamischen Tabellenverweis über INDIREKT
Robert

Hallo,
ich habe folgendes Problem:
Ich möchte Daten dynamisch aus einer Tabelle auslesen mit folgender Formel:
=WENN($A6=0;0;INDIREKT_XL("'"&$A6&"'!D$201"))
Die Formel funktioniert einwandfrei. Diese Formal möchte ich aber jetzt spaltenweise kopieren und dabei soll sich...
26.03.2009 11:08:01
Thread-ID: 1064165
3 Beiträge
Anzeige
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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