Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Code funktioniert nicht richtig
zurück: String an Array übergeben (Makrosubstitution) weiter: Tabellenblatt ausblenden für Andere nicht eiblendbar Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
JR2007
von allem was, zusammen nicht viel


Verfasst am:
07. Okt 2010, 02:05
Rufname: Jörg

Code funktioniert nicht richtig - Code funktioniert nicht richtig

Nach oben
       Version: Office 2003

Hallo an alle,

ich habe den folgenden Code im Forum gefunden.

Der Code sollte aus der geöffneten Arbeitsmappe das Tabellenblatt "Dienstantrittsliste" kopieren, alle Formeln entfernen und mit dem Datum im Namen speichern.

Aber ich erhalte immer eine Fehlermeldung

Laufzeitfehler 1004
Anwendungs- oder ojektdefinierter Fehler

und die Zeile

.Value = .Value 'Überschreibt die Formeln

wird gelb hinterlegt

Code:

Sub Ausgang_in_Archiv()
Dim strPfad As String

'Pfad, in dem die Kopie abgelegt werden soll
   strPfad = "C:\Dokumente und Einstellungen\.......\Eigene Dateien\Siko Dienstantritt\" 'letzten "\" nicht vergessen!
   
'Kopieren
   ThisWorkbook.Sheets("Dienstantrittsliste").Copy

'Formeln raus:
   With ActiveWorkbook.Worksheets("Dienstantrittsliste")
      With .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell))
         .Value = .Value  'Überschreibt die Formeln
      End With
'Speichern + Schließen:
      .Parent.Close SaveChanges:=True, _
                        Filename:=strPfad & "Dienstantrittsliste_" & _
                        Format(Now, "DD.MM.YY")
   End With
End Sub


hat jemand eine Idee wo der Fehler ist ???

_________________
bis später
Jörg

Ein Dank an alle die sich die Mühe machen auf meine Fragen zu antworten. Wenn ich auch mal zur Problemlösung beitragen kann, schön. Kurze Antwort wenn es funktioniert, perfekt.
Gast



Verfasst am:
07. Okt 2010, 03:18
Rufname:


AW: Code funktioniert nicht richtig - AW: Code funktioniert nicht richtig

Nach oben
       Version: Office 2003

Hi,

du must doch deine Diensteintrittsliste erst irgendwo einfügen ( quelle.copy ziel ) oder mit paste. Dann hast du was im Zielbereich stehen und dann kommt erst das entfernen der Formeln mit *.value = .value"

Grüßli
JR2007
von allem was, zusammen nicht viel


Verfasst am:
07. Okt 2010, 03:51
Rufname: Jörg

AW: Code funktioniert nicht richtig - AW: Code funktioniert nicht richtig

Nach oben
       Version: Office 2003

Hallo,

danke für deine Antwort.

Aber die Dienstantrittsliste ist doch schon kopiert, jetzt sollen nur noch die Formeln weg.

Oder habe ich da einen Denkfehler ???

_________________
bis später
Jörg

Ein Dank an alle die sich die Mühe machen auf meine Fragen zu antworten. Wenn ich auch mal zur Problemlösung beitragen kann, schön. Kurze Antwort wenn es funktioniert, perfekt.
Phelan XLPH
Fortgeschritten


Verfasst am:
07. Okt 2010, 09:29
Rufname: Phelan

AW: Code funktioniert nicht richtig - AW: Code funktioniert nicht richtig

Nach oben
       Version: Office 2003

Das sieht schon alles richtig aus, bis auf den Speicherpfad da fehlt das ".xls"

Versuches mal so:
Code:
Sub Ausgang_in_Archiv()
Dim strPfad As String

'Pfad, in dem die Kopie abgelegt werden soll
   strPfad = "C:\Dokumente und Einstellungen\.......\Eigene Dateien\Siko Dienstantritt\" 'letzten "\" nicht vergessen!
   
'Kopieren
   ThisWorkbook.Sheets("Dienstantrittsliste").Copy

'Formeln raus:
   With ActiveWorkbook.Worksheets("Dienstantrittsliste")
      With .UsedRange
         .Copy
         .PasteSpecial xlPasteValues
         Application.CutCopyMode = False
      End With
'Speichern + Schließen:
      .Parent.SaveAs Filename:=strPfad & "Dienstantrittsliste_" & _
            Format(Now, "DD.MM.YY") & ".xls", FileFormat:=xlNormal
      .Parent.Close False
   End With
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
JR2007
von allem was, zusammen nicht viel


Verfasst am:
07. Okt 2010, 19:50
Rufname: Jörg

AW: Code funktioniert nicht richtig - AW: Code funktioniert nicht richtig

Nach oben
       Version: Office 2003

Hallo,

danke für deine Antwort.

So funktioniert es wunderbar, mit dem "xls" hatte ich schon bemerkt.

Nur Informativ, was war an diesen Zeilen falsch
Code:

With .Range(.Cells(1, 1), .Cells.SpecialCells(xlCellTypeLastCell))
         .Value = .Value  'Überschreibt die Formeln
      End With

_________________
bis später
Jörg

Ein Dank an alle die sich die Mühe machen auf meine Fragen zu antworten. Wenn ich auch mal zur Problemlösung beitragen kann, schön. Kurze Antwort wenn es funktioniert, perfekt.
Phelan XLPH
Fortgeschritten


Verfasst am:
08. Okt 2010, 00:53
Rufname: Phelan

AW: Code funktioniert nicht richtig - AW: Code funktioniert nicht richtig

Nach oben
       Version: Office 2003

Nix

Manchmal schlägt
.Value = .Value fehl, nicht oft aber gewiss.

Mit Copy - PasteSpezial bist du auf der sicheren Seite und das
ist auch schneller

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
JR2007
von allem was, zusammen nicht viel


Verfasst am:
08. Okt 2010, 02:35
Rufname: Jörg


AW: Code funktioniert nicht richtig - AW: Code funktioniert nicht richtig

Nach oben
       Version: Office 2003

danke für die Info
_________________
bis später
Jörg

Ein Dank an alle die sich die Mühe machen auf meine Fragen zu antworten. Wenn ich auch mal zur Problemlösung beitragen kann, schön. Kurze Antwort wenn es funktioniert, perfekt.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: sverweis funktioniert nicht immer 1 Dr. Carlos 575 20. Jul 2007, 12:00
< Peter > sverweis funktioniert nicht immer
Keine neuen Beiträge Excel Formeln: SVerweis funktioniert nicht!! 9 Gast 2637 15. Mai 2007, 11:42
Thomas Ramel SVerweis funktioniert nicht!!
Keine neuen Beiträge Excel Formeln: Richtig Sortieren 7 Cyclemen 575 04. Mai 2007, 18:57
Thomas Ramel Richtig Sortieren
Keine neuen Beiträge Excel Formeln: SVERWEIS zu externer Quelle funktioniert nicht 1 Shaggy84 588 20. März 2007, 11:29
Shaggy84 SVERWEIS zu externer Quelle funktioniert nicht
Keine neuen Beiträge Excel Formeln: Script funktioniert in Excel2003 nicht 1 earl_of_kiel 599 07. Feb 2007, 19:03
olafB Script funktioniert in Excel2003 nicht
Keine neuen Beiträge Excel Formeln: Zelle farbig, wenn ein Code (14 an der Zahl) nicht erscheint 3 Linda G. 813 06. Feb 2007, 19:55
Gast Zelle farbig, wenn ein Code (14 an der Zahl) nicht erscheint
Keine neuen Beiträge Excel Formeln: Wennfunktion funktioniert nicht 24 Birgit-Anfängerin 1504 07. Jan 2007, 02:23
fridgenep Wennfunktion funktioniert nicht
Keine neuen Beiträge Excel Formeln: sverweis funktioniert plötzlich nicht mehr 4 Daniel1983 1087 03. Jan 2007, 13:35
urs sverweis funktioniert plötzlich nicht mehr
Keine neuen Beiträge Excel Formeln: Zählenwenn in WENN funktioniert nicht 17 doobie 1827 21. Nov 2006, 17:30
doobie Zählenwenn in WENN funktioniert nicht
Keine neuen Beiträge Excel Formeln: SVerweis funktioniert nicht durchgehend 9 havanaclubcup 1006 28. Sep 2006, 21:06
myfake SVerweis funktioniert nicht durchgehend
Keine neuen Beiträge Excel Formeln: Zählenwenn addiert nicht richtig... 6 falo1955 1509 28. Mai 2006, 18:17
falo1955 Zählenwenn addiert nicht richtig...
Keine neuen Beiträge Excel Formeln: DateDif funktioniert nicht 6 Excelminimalist 1199 06. Feb 2006, 15:30
Excelminimalist DateDif funktioniert nicht
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks