Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
VBA-Code beim Speichern löschen
11.01.2005 17:17:51
Alfons
Hallo Excel-User,
ich habe eine Vorlage irgendwas.xlt mit etwas VBA-Code.
Speichern tu ich das dann mit einem Command-Button:
Private Sub CommandButton3_Click()
'Speichern
Dim Pfad As String
On Error GoTo Fehler
ActiveSheet.Shapes("CommandButton1").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton2").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton3").Select
Selection.Cut
Pfad = "\\Irgendwo\Sensor\2005\" + Range("J16")
ActiveWorkbook.SaveAs Filename:=Pfad
Exit Sub
usw. (Fehlerbehandlung Datei gibts schon ...)
Das funktioniert auch, sogar die Command-Buttons werd ich los.
Ich möchte aber den ganzen VBA-Code vorher löschen, wie geht das?
Im voraus besten Dank
Alfons

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Code beim Speichern löschen
11.01.2005 19:18:40
Björn
Hi
hier mein Vorschlag:

Sub xyz()
Dim wkb1 As Workbook, wkb2 As Workbook
Set wkb1 = ActiveWorkbook    ' merken des "aktiven" Workbooks
Set wkb2 = Workbooks.Add     ' hinzufügen + merken eines neuen Workbooks
' kopieren der 1. Tabelle auf 1. Tabelle im neuen Workbook:
wkb1.Worksheets(1).Cells.Copy Destination:=wkb2.Worksheets(1).Cells
End Sub

Vorteile:
- Übernahme sämtlicher Formatierungen im gesamten Tabellenblatt
- keine Übernahmen von VBA-Code
mfg,
Björn
AW: VBA-Code beim Speichern löschen
11.01.2005 19:36:56
Alfons
Danke,
probier ich morgen gleich aus.
Jetzt geh ich erst mal zum Italiener.
mfg
Alfons
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige