Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nur die Werte kopieren per Makro

Forumthread: Nur die Werte kopieren per Makro

Nur die Werte kopieren per Makro
24.09.2003 09:20:17
Oliver Giertz
Hallo liebe Excel Gemeinde,

ich arbeite mit einem Kollegen schon seid geraumer Zeit an einer Personaleinsatzplanung die auch soweit wunderbar funktioniert. Nun ist leider mein Kollege nicht mehr greifbar der alle Makros erstellt hat.

Ich habe folgenden kleinen Ausschnitt aus dem Makro:
Worksheets("3. Halbjahr").Activate
Range("E3:GD1000").Copy Destination:=Worksheets("1. Halbjahr").Range("E3")
Worksheets("4. Halbjahr").Activate
Range("E3:GF1000").Copy Destination:=Worksheets("2. Halbjahr").Range("E3")

Das Kopieren funktioniert wunderbar, doch ich möchte, das Excel NUR! der Inhalt kopiert und nicht die Formatierungen etc.

Ich weiss dass das geht doch geklappt hat bis jetzt nichts.

Bitte helft mir, ich verzweifle langsam...

Schönen Gruß

Oliver
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nur die Werte kopieren per Makro
24.09.2003 09:36:24
Hajo_Zi
Hallo Oliver

in VBA kann zu 99% auf Select, Activate usw. verzichtet werden.

VBA ist ja gut darum diesenm Ansatz


Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
Workbooks("Datei1.xls").Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
With Workbooks("Datei2.xls").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste:=xlValues           ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/

Anzeige
AW: Nur die Werte kopieren per Makro
24.09.2003 09:55:40
Oliver Giertz
Hallo Hajo,

leider funktioniert dies nicht. Es kommt dauernt die Meldung "Index außerhalb des Gültigen Bereiches".

Gibt es nicht noch eine andere Möglichkeit??

Gruß

Oliver
AW: Nur die Werte kopieren per Makro
24.09.2003 09:59:56
Hajo_Zi
Hallo Oliver

1. ich habe keine Glaskugel
2. ich habe keinen Heiligenschein
3. ich kann nicht auf Deinen Rechner schauen.

unter diesen Bedingungen mußt Du schon Deinen Code Posten. Ich habe es jetzt nochmal Extra in der Aktuellen Datei getestet ohne Probleme.


Sub Werte_Format()
'   Formeln ersetzen durch Werte mit Formate
Worksheets("Tabelle1").Range(Sheets("Tabelle1").UsedRange.Address).Copy
With Worksheets("Tabelle2").Range("A1")
.PasteSpecial Paste:=xlValues           ' Werte
.PasteSpecial Paste:=xlFormats      ' Formate
End With
Application.CutCopyMode = False
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Nur die Werte kopieren per Makro
24.09.2003 10:07:26
Oliver Giertz
Hallo Hajo,

zu 1 und 2 ich dachte du besitzt sowas :-)
zu 3 naja so gesichert ist dieser auch wieder nicht.

Also hier ist der Code den ich geändert habe...

Worksheets("3. Halbjahr").Range(Sheets("E3:GD1000").UsedRange.Address).Copy
With Worksheets("1. Halbjahr").Range("E3")
.PasteSpecial Paste:=xlValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
Application.CutCopyMode = False

Liegt das evtl. am bereich????

Gruß

Oliver
Anzeige
Fehler erkannt und gebannt
24.09.2003 10:12:25
Oliver Giertz
Hallo,
so lautet der Code richtig:

Worksheets("3. Halbjahr").Range("E3:GD1000").Copy
With Worksheets("1. Halbjahr").Range("E3")
.PasteSpecial Paste:=xlValues ' Werte
' .PasteSpecial Paste:=xlFormats ' Formate
End With
Application.CutCopyMode = False

Gruß

Oliver
Anzeige
Danke für Rückmeldung
24.09.2003 10:26:01
Hajo_Zi
Hallo Oliver

es wird ab und zu bhauptet ich hätte ne Glaskugel dem ist aber Definitiv nicht so.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Nur die Werte in Excel per VBA kopieren


Schritt-für-Schritt-Anleitung

Wenn Du in Excel nur die Werte kopieren möchtest, ohne die Formatierungen zu übernehmen, kannst Du dies mithilfe eines VBA-Makros tun. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub NurWerteKopieren()
       ' Kopiere Werte von einem Bereich in einen anderen
       Worksheets("3. Halbjahr").Range("E3:GD1000").Copy
       With Worksheets("1. Halbjahr").Range("E3")
           .PasteSpecial Paste:=xlValues  ' Nur Werte einfügen
       End With
       Application.CutCopyMode = False
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Mit diesem Makro kannst Du sicherstellen, dass nur die Werte kopiert werden, ohne die Formatierungen.


Häufige Fehler und Lösungen

Fehler: "Index außerhalb des gültigen Bereichs"
Dieser Fehler tritt häufig auf, wenn Du versuchst, auf ein Arbeitsblatt oder einen Zellbereich zuzugreifen, der nicht existiert. Überprüfe, ob die Namen der Arbeitsblätter korrekt sind.

Lösung: Stelle sicher, dass die Blattnamen im Code mit den tatsächlichen Namen in Deiner Excel-Datei übereinstimmen.


Alternative Methoden

Falls Du keinen VBA-Code verwenden möchtest, kannst Du auch die manuelle Methode nutzen:

  1. Markiere den gewünschten Bereich.
  2. Kopiere den Bereich mit CTRL + C.
  3. Gehe zu dem Zielbereich, klicke mit der rechten Maustaste und wähle Inhalte einfügen.
  4. Wähle Werte aus den Optionen.

Diese Methode funktioniert ebenfalls, ist jedoch weniger automatisiert als die VBA-Option.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du die VBA-Funktionalität nutzen kannst:

  1. Kopieren von Werten in eine andere Tabelle:

    Sub WerteKopieren()
       Worksheets("Tabelle1").Range("A1:A10").Copy
       Worksheets("Tabelle2").Range("B1").PasteSpecial Paste:=xlValues
    End Sub
  2. Kopieren und Einfügen von Werten in eine andere Arbeitsmappe:

    Sub WerteInAndereMappeKopieren()
       Workbooks("Mappe1.xlsx").Worksheets("Tabelle1").Range("A1:A10").Copy
       Workbooks("Mappe2.xlsx").Worksheets("Tabelle1").Range("B1").PasteSpecial Paste:=xlValues
    End Sub

Diese Beispiele zeigen, wie flexibel die VBA-Methoden für das Kopieren von Werten sind.


Tipps für Profis

  • Verwende Application.ScreenUpdating = False vor dem Kopieren und Application.ScreenUpdating = True nach dem Einfügen, um die Leistung zu verbessern.
  • Wenn Du mehrere Bereiche gleichzeitig kopieren möchtest, kannst Du Schleifen verwenden, um den Code dynamischer zu gestalten.
  • Teste Deinen Code immer in einer Kopie Deiner Datei, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kopiere ich nur den Text aus einer Zelle?
Verwende die gleiche Methode, aber achte darauf, nur den Inhalt der Zelle zu kopieren, manchmal kann es hilfreich sein, den Text in eine andere Zelle zu kopieren und dann die Formatierung zu entfernen.

2. Kann ich auch nur bestimmte Zellen kopieren?
Ja, Du kannst den Bereich in der Range-Eigenschaft anpassen, um nur die gewünschten Zellen zu kopieren, z.B. Range("A1, B2, C3").

3. Was ist, wenn ich Formeln habe und nur die Ergebnisse kopieren möchte?
Nutze PasteSpecial mit der Option xlValues, um die Formeln durch die aktuellen Werte zu ersetzen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige