Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Arbeitsmappe ohne Verknüpfungen speichern

478 views
Skip to first unread message

Heike Müller

unread,
May 21, 2003, 2:00:45 AM5/21/03
to
Hallo !!!

Ich habe folgendes Problem. Ich habe eine Basis-
Arbeitsmappe, in der ich alle meine Daten eintrage. Am
Ende des Monats möchte ich eine Kopie der aktuellen
Fassung erstellen, aber ohne die Verknüfungen. Es sollen
aktuellen Werte erhalten bleiben.
Wie mache ich das ???

Heike

Bernd Held

unread,
May 21, 2003, 7:37:47 AM5/21/03
to
Hallo Heike,

das würde m.E. nach nur über ein MAkro richtig funktionieren. Hast Du daran
Interesse?

Viele Grüße
Bernd
MVP für Microsoft Excel
Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF)
unter http://held-office.de

"Heike Müller" <fros...@web.de> schrieb im Newsbeitrag
news:1dc901c31f5e$51b1a790$3101...@phx.gbl...

Melanie Breden

unread,
May 21, 2003, 7:51:57 AM5/21/03
to
Hallo Heike,

"Heike Müller" schrieb:

folgende Prozedur speichert eine Kopie deiner Datei mit festen Werten im Pfad der Originaldatei.

Füge den Code im VBA Editor in ein allgemeines Modul ein und starte die Prozedur
z.B. über Extras | Makro | Makros.

Sub CopyWorkbook()
Dim strName As String
Dim strPath As String
strName = ActiveWorkbook.Name
strPath = ActiveWorkbook.Path

Application.ScreenUpdating = False
With Sheets
.Select 0
.Copy
End With
Sheets.Select 0
With Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
ActiveCell.Select: ActiveSheet.Select
With ActiveWorkbook
.SaveAs strPath & "\Kopie_" & strName
.Close
End With
ActiveCell.Select: ActiveSheet.Select
Application.ScreenUpdating = True
End Sub

Kommst du damit weiter?

--
Mit freundlichen Grüßen
Melanie Breden

_____________________
[Microsoft MVP für Excel]

Heike Müller

unread,
May 21, 2003, 8:02:16 AM5/21/03
to
Hallo Bernd,

klar würde mich das interessieren. Bin aber was Makros und
überhaupt VBA betrifft noch absoluter Anfänger, würde es
aber gerne lernen. Also,wenn Du mir es erklären könntest,
ich bin ganz ohr !!!

Viele Grüße

Heike
>-----Originalnachricht-----

>.
>

Bernd Held

unread,
May 21, 2003, 11:58:11 AM5/21/03
to
Hallo Heike,

ok, um die Verknüpfungen zu anderen Mappen rauszukreigen, kannst Du das
folgende Makro starten:

Sub AusMappeVerknüpfungenRausnehmen()
Dim Tabelle As Worksheet
For Each Tabelle In ActiveWorkbook.Worksheets
For Each zelle In Tabelle.UsedRange
If InStr(zelle.Formula, "[") > 0 Then zelle.Value = zelle.Value
Next zelle
Next Tabelle
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF)
unter http://held-office.de

"Heike Müller" <fros...@web.de> schrieb im Newsbeitrag

news:0b2c01c31f90$d2486f60$a501...@phx.gbl...

Heike Müller

unread,
May 22, 2003, 1:34:53 AM5/22/03
to
Hallo Melanie !!!

Danke für Deine rasche Hilfe. Ich habe den VBA-Code in den
Editor unter Allgemein eingegeben. Anschließend einer
Schaltfläche dieses Makro zugewiesen. Bis hier hin hoffe
ich habe ich alles richtig gemacht und war auch kein
Problem. Nun wollte ich die ganze Prozedur ablaufen
lassen, aber ich bekomme eine MsgBox mit dem Warnhinweis
400. Was hat das zu bedeuten oder was habe ich falsch
gemacht. Du mußt wissen, ich bin was VBA angeht noch
absoluter Frischling und bin schon stolz, wenn ich eine
MsgBox hinbekomme.
Außerdem habe ich noch eine kleine Frage, was meinst Du
damit, das eine Kopie meiner Datei mit festen Werten im
Pfad der Originaldatei abgespeichert wird ??? O.k. Datei
mit festen Werten ist mir klar, aber Pfad der
Originaldatei ??? Ist das zum Beispiel der Ordner, wo die
Originaldatei abgelegt ist ???

MfG

Heike Müller

>-----Originalnachricht-----

>.
>

Melanie Breden

unread,
May 22, 2003, 1:50:19 AM5/22/03
to
Hallo Heike,

"Heike Müller" schrieb:

>Danke für Deine rasche Hilfe. Ich habe den VBA-Code in den
>Editor unter Allgemein eingegeben.

klicke mit der rechten Maustaste auf den Explorerbaum deines VBA-Projektes.
Wähle in dem Kontextmenü 'Einfügen' -> 'Modul'.
Das ist ein 'allgemeines Modul'. Füge die Prozedur da ein.

'DieseArbeitsmappe' ist das Codemodul, in welchem Ereignisprozeduren,
die Arbeitsmappe betreffend, gespeichert werden.
Diese können nicht manuell aufgerufen werden.
Lösche die Prozedur aus "DieseArbeitsmappe" wieder.

>Anschließend einer Schaltfläche dieses Makro zugewiesen.

das ist ok, damit sollte das Makro in dem allgemeinen Modul laufen.
Teste es bitte vorab an einer Kopie deiner Datei.

>Außerdem habe ich noch eine kleine Frage, was meinst Du
>damit, das eine Kopie meiner Datei mit festen Werten im
>Pfad der Originaldatei abgespeichert wird ??? O.k. Datei
>mit festen Werten ist mir klar, aber Pfad der
>Originaldatei ??? Ist das zum Beispiel der Ordner, wo die
>Originaldatei abgelegt ist ???

Ja, in dem Pfad der Datei welche du kopieren willst wird die Kopie gespeichert.

Hoffe, dass du nun weiterkommst :-)

Heike Müller

unread,
May 22, 2003, 6:57:24 AM5/22/03
to
Super !!!

Hat alles klasse geklappt. Nur noch eine Frage,
funktioniert das auch mit Diagrammen ???

>-----Originalnachricht-----

>.
>

Melanie Breden

unread,
May 22, 2003, 7:31:02 AM5/22/03
to
Hallo Heike,

"Heike Müller" schrieb:
>Super !!!

>Hat alles klasse geklappt. Nur noch eine Frage,
>funktioniert das auch mit Diagrammen ???

das hab ich nicht getestet.
Probiers doch einfach mal aus :-)

Heike Müller

unread,
May 23, 2003, 2:28:30 AM5/23/03
to
Hi Melanie !!!

Ich habe es ausprobiert. Die Verknüpfungen bleiben
bestehen und somit ändern sich auch die Daten. Und das
wollte ich verhindern.
Denn diese Mitteilung, ob man die Daten aktuallisieren
möchte nervt und schnell haben unerfahrene User "ja"
angeklickt.
Ich hoffe Du weißt was ich meine.

MfG

Heike Müller

>-----Originalnachricht-----

>.
>

0 new messages