Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle kopieren

Tabelle kopieren
09.09.2008 21:51:00
Werner
Hallo Erich,
ich war im Urlaub und melde mich deshallb erst jetzt. Das ich einen neuen Beitrag Schreibe liegt daran das ich deine Antwort nur über das Archiv Lesen kann und von dort aus keine Möglichkeit gefunden habe zu Antworten. Nun zur Lösung meines Problemes: Ich habe da warscheinlich einiges durcheinander gebracht, Sorry !! Ich habe jetzt den Code kopiert und Eingefügt , dass Ergebnis war leiter eine Fehlermeldung laufzeitfehler 438 und der Bereich .BreakLink Name:=vLinks(ii), Type:=xlExcelLinks ist gelb markiert.
Wo habe ich da noch einen Fehler gemacht?
Gruß Werner

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle kopieren
10.09.2008 00:05:00
Erich
Hallo Werner,
du hättest netterweise gleich dazu schreiben können, auf welchen alten Beitrag du dich jetzt beziehst
(Link oder Datum/Uhrzeit).
Es geht um den Archivthread https://www.herber.de/forum/archiv/1004to1008/t1005224.htm
Den Fehler kann ich nicht nachvollziehen.
Liegt es vielleicht daran, dass deine Excelversion 9 (Office 2000) die Methode Workbook-BreakLink
nicht kennen sollte? (Das glaube ich aber nicht - schau doch mal in die VBA-Hilfe, ob es dort BreakLink gibt.)
Ich kopiere den Code hier noch mal rein. Eine Kleinigkeit habe ich geändert:
Im alten Code waren die Konstanten xlExcelLinks und xlLinkTypeExcelLinks vertauscht.
Da beide den Wert 1 haben, sollte das nicht gestört haben. 

Private Sub CommandButton1_Click()
Dim vLinks, ii As Integer, strB As String
Sheets("Tabelle1").Copy       ' legt neue temp. Mappe an
With ActiveWorkbook           ' dort Links entfernen
vLinks = .LinkSources(Type:=xlExcelLinks)
If Not IsEmpty(vLinks) Then
For ii = 1 To UBound(vLinks)
.BreakLink Name:=vLinks(ii), Type:=xlLinkTypeExcelLinks
Next ii
End If
' Mitarbeiterablage öffnen
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Werner." & _
"ZAPF-PC1.003\Eigene Dateien\KalkulationKostenrechnung 23.08.2008\" & _
"Mitarbeiterablage.xls"
' in Zielmappe kopieren
.Sheets(1).Copy after:=Workbooks("Mitarbeiterablage.xls").Sheets(1)
.Close False               ' temp. Mappe schließen
End With
' Blatt umbenennen
strB = ActiveSheet.Cells(5, 2)
If SheetTest(strB) Then
MsgBox "Das kopierte Blatt konnte in " & ActiveWorkbook.Name & _
" nicht umbenannt werden." & vbLf & vbLf & "Blatt '" & strB & _
"' war bereits vorhanden.", vbExclamation, "weise hin..."
Else
ActiveSheet.Name = strB
' Mitarbeiterablage speichern + schließen
Workbooks("Mitarbeiterablage.xls").Close True
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Tabelle kopieren
12.09.2008 16:50:45
Werner
Hallo Erich,
zuerst mal danke zu der Info mit den Archiv (hab ich so nicht gewußt, werde ich aber in zukunft machen)
Den Code habe ich jetzt so wie nachfolgend eingesetzt und das Funktioniert jetzt so wie ich mir das vorstelle.
Nochmals herzlichen Dank für Deine Hilfe!
Gruß Werner

Public Function SheetTest(strName As String) As Boolean
On Error Resume Next
SheetTest = Not Sheets(strName) Is Nothing
End Function




Private Sub CommandButton2_Click()
Dim vLinks, ii As Integer, strB As String
ChDir _
"C:\Dokumente und Einstellungen\Werner\Eigene Dateien\Kalkulation Kostenrechnung 25.08. _
2008"
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\Werner\Eigene Dateien\Kalkulation Kostenrechnung 25.08. _
2008\Mitarbeiterablage.xls"
Windows("Kalkulation-Kostenrechnung Römerbad 25.08.2008.xls").Activate
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy after:=Workbooks("Mitarbeiterablage.xls").Sheets(1)
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
' Blatt umbenennen
strB = ActiveSheet.Cells(2, 2)
If SheetTest(strB) Then
MsgBox "Das kopierte Blatt konnte in " & ActiveWorkbook.Name & _
" nicht umbenannt werden." & vbLf & vbLf & "Blatt '" & strB & _
"' war bereits vorhanden.", vbExclamation, "weise hin..."
Else
ActiveSheet.Name = strB
' Mitarbeiterablage speichern + schließen
ActiveWorkbook.Save
ActiveWindow.Close
End If
End Sub


Anzeige
AW: Tabelle kopieren
13.09.2008 07:12:00
Erich
Hallo Werner,
im Thread https://www.herber.de/forum/archiv/1004to1008/t1005224.htm
hatte ich dich gefragt:
___Sollen nur die Verknüpfungen eliminiert werden, d. h. andere Formeln erhalten bleiben?
___Oder reicht es aus, wenn in der Kopie nur Werte stehen?
Deine Antwort war "Die Formeln sollen erhalten bleiben."
Mit "PasteSpecial " werden jetzt bei dir aber alle Formeln durch Werte ersetzt - du hast keine Formeln mehr.
Funktioniert das jetzt wirklich so, wie du dir das vorgestellt hast?
Dem Laufzeitfehler 438 bei .BreakLink bist du wohl nicht weiter nachgegangen, oder?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Tabelle kopieren
13.09.2008 14:31:00
Werner
Hallo Erich,
Es sollen nur die Werte erhalten bleiben. Der Hintergrund war folgender, ich habe in der Tabelle in der Zelle B5 einen Wert stehen der den Bezug =Startcenter!D13 hat. Wenn die Tabelle in die Ablage kopiert wird bleibt ja die Orginal bestehen. In der Kopierten Tabelle habe ich ja in den Code (Blatt umbenenen) mit eingebaut.Wenn jetzt in der Orginal Tabelle der Wert in Zelle B5 (=Bezug.......) geändert wird würde sich ja im Kopierten Blatt der Wert auch ändern, und das soll verhindert werden.
Ich hoffe das ich mich richtig ausgetrückt habe, denn ich komme da immer wieder etwas durcheinander.
Viele Grüße
Werner
Anzeige

299 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Datei vom Laufwerk kopieren
Walter

Guten Morgen Allerseits,
ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
14.08.2008 08:43:00
Thread-ID: 1001718
4 Beiträge
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 09:47:22
Thread-ID: 1002054
8 Beiträge
Makro, das automatisch Werte kopiert und entnimmt
Maxine

Hallo zusammen,
ich brauche für meine Diplomarbeit ein Makro, das folgendermaßen funktionieren soll:
Im Sheet "Conditional Expectations K2" soll es die Werte (x und t_x) von jeder ID in Zelle B6 bzw. B7 einsetzen. Für ID 1 wären das H2 und I2 in B6 und B7, für ID 2 H3 und I3 in B6 und...
15.08.2008 13:10:23
Thread-ID: 1002150
7 Beiträge
Tabellenblatt kopieren
Pia

Hallo zusammen,
ist es möglich von einem Tabellenblatt (Januar) auf mehrere Tabellenblätter kopieren aber in der Monat Reihenfolge?
z.B. Tabellenblatt 1 heisst Januar, TB 2 = Februar usw..bis Dezember?
Wie kann ich eine Datei mit dem Namen ihres Tabellenblattes versehen?
Danke.....
17.08.2008 16:16:41
Thread-ID: 1002424
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
4
8
10
2
3
7
6
1
6
3
4
16
11
14
5
4
2
4
2
4
1
8
8