Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Verknüpfungen beim kopieren

Verknüpfungen beim kopieren
27.07.2007 12:22:00
Sönke
Hallo,
ich habe folgendes Problem,
ich habe mir hier in der Online Suche folgenden Code herausgesucht, es klappt sehr gut, aber wenn ich die abgespeicherte Datei öffne, ist die Datei mit der Ausgangsdatei verknüpft. Es sollen aber nur die Werte und die Formatierung kopiert werden. Wie kann man diese Problem lösen, da die anderen Lösungen in der Onlinesuche bei mir nur Fehlermeldungen bringen.
Vielen Dank im Vorraus für eure Bemühungen
Gruß
Sönke

Sub Blattspeichern()
On Error Resume Next
Application.ScreenUpdating = False
pfad = InputBox("Bitte überprüfen Sie den Pfad, in dem das Blatt gespeichert werden soll!", , " _
C:\Dokumente und Einstellungen\Standart\Eigene Dateien\Betriebskosten\")
Select Case Right(pfad, 1)
Case ""
GoTo ERRORHANDLER
Case Is  "\"
pfad = pfad & "\"
End Select
ActiveSheet.Copy
On Error GoTo ERRORHANDLER
ActiveWorkbook.SaveAs Filename:=pfad & Range("B7").Value & Range("B5").Value & Format(Now, "DD- _
MM-YY") & ".xls"
ActiveWorkbook.Close False
Exit Sub
ERRORHANDLER:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang des Blattes wurde abgebrochen")
ActiveWorkbook.Close savechanges:=False
Case Else
End Select
Application.ScreenUpdating = True
ActiveWorkbook.Close False
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfungen beim kopieren
27.07.2007 12:58:11
Rudi
Hallo,

Sub Blattspeichern()
On Error Resume Next
Application.ScreenUpdating = False
pfad = InputBox("Bitte überprüfen Sie den Pfad, in dem das Blatt gespeichert werden soll!",  _
_
, " C:\Dokumente und Einstellungen\Standart\Eigene Dateien\Betriebskosten\")
If Right(pfad, 1)  "\" Then pfad = pfad & "\"
ActiveSheet.Copy
On Error GoTo ERRORHANDLER
With ActiveSheet.Cells
.Value = .Value
End With
ActiveWorkbook.SaveAs _
Filename:=pfad & Range("B7").Value & Range("B5").Value & Format(Now, "DD- MM-YY") & ". _
xls"
ActiveWorkbook.Close False
Exit Sub
ERRORHANDLER:
Select Case Err.Number
Case 1004
MsgBox ("Speichervorgang des Blattes wurde abgebrochen")
ActiveWorkbook.Close savechanges:=False
Case Else
End Select
Application.ScreenUpdating = True
ActiveWorkbook.Close False
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Verknüpfungen beim kopieren
27.07.2007 15:51:00
Sönke
Hallo,
klappt gut, vielen dank.
Gruß
Sönke

AW: Verknüpfungen beim kopieren
27.07.2007 13:08:19
gerwas
Hallo
Ich mache das immer ganz einfach so:
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats
mfg GerWas

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige