Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel schneidet beim Kopieren alles über 255 ab

Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 10:48:00
Joachim
Hi,
ich möchte eine komplette Tabellen von einer Mappe in die andere kopieren. Dabei werden mir aber alle Zellen, die mehr als 255 Zeichen haben, auf 255 gestuzt.
Excel meint dazu, ich soll alle Zellen , die mehr als 255 haben, einzeln kopieren :-((((
Mache ich was falsch ?
Danke mal
Joachim

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 11:04:12
Tino
Hallo,
versuche es mal so und kopiere die gesamte Tabelle.
With Workbooks("MeineDatei2.xls") 'Dateinamen anpassen 
' Tabelle1 in die Datei kopieren und ans ende stellen 
 Sheets("Tabelle1").Copy After:=.Sheets(.Sheets.Count)
End With


Gruß Tino

AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 11:12:00
Joachim
Hi Tino,
funktioniert das auch auf zwei Dateien übergreifend ? Meine beiden Blätter befinden sich nicht in der selben Datei. Sind zwei verschidene.
Gruss
joachim
Anzeige
AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 11:34:00
Tino
Hallo,
meinst Du so?
ThisWorkbook ist die Datei von der aus der Code ausgeführt wird.
With Workbooks("MeineDatei2.xls") 'Dateinamen anpassen 
' Tabelle1 in die Datei kopieren und ans ende stellen 
 ThisWorkbook.Sheets("Tabelle1").Copy After:=.Sheets(.Sheets.Count)
End With

With Workbooks("MeineDatei2.xls") 'Dateinamen anpassen 
' Tabelle1 in die Datei kopieren und ans ende stellen 
 ThisWorkbook.Sheets("Tabelle2").Copy After:=.Sheets(.Sheets.Count)
End With


Gruß Tino

Anzeige
AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 11:41:00
Tino
Hallo,
hier war natürlich der Kommentar falsch.

With Workbooks("MeineDatei2.xls") 'Dateinamen anpassen
' Tabelle2 in die Datei kopieren und ans ende stellen
ThisWorkbook.Sheets("Tabelle2").Copy After:=.Sheets(.Sheets.Count)
End With


Gruß Tino

AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 12:45:00
Joachim
Hi Tino,
muss die Datei "MeineDatei2.xls" (sprich meine Quelldatei) bei dem kopieren auch geöffnet sein ?
Gruss
Joachim
AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 12:55:00
Tino
Hallo,
Quelle ist ThisWorkbook, beide müssen offen sein.
Muss auf die Mittagschicht.
Gruß Tino
AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 19:18:00
Joachim
Hallo Tino,
also, wenn ich alles richtig verstehe, denn kopiere ich die daten VON meiner QUELLDATEI (Export.xls) in die Zieldatei (Master.xls) .
Ist das Richtig ?
Wenn ja, gibt es auch den Weg anderst herum ? Ich würde lieber die Daten von der Quelldatei holen, dass der Code lieber in der Masterdatei steht.
Oder haber ich Dein Code nicht richtig verstanden ?
(wohl möglich)
Gruss
Joachim und Danke
Anzeige
AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 23:02:00
Tino
Hallo,
ok., hier mal zwei Beispiele, Kommentare stehen im Code, die sollten alles erklären.
Beide Dateien müssen geöffnet sein!
Option Explicit
'von Export.xls nach Master.xls 
Sub Makro1()
'Zieldatei ist hier Master.xls 
With Workbooks("Master.xls")
'Quelle ist Export.xls die Tabelle mit den Namen Tabelle1 
 Workbooks("Export.xls").Sheets("Tabelle1").Copy After:=.Sheets(.Sheets.Count)
End With
End Sub

'von Master.xls nach Export.xls 
Sub Makro2()
'Zieldatei ist hier Export.xls 
With Workbooks("Export.xls")
'Quelle ist Master.xls die Tabelle mit den Namen Tabelle1 
 Workbooks("Master.xls").Sheets("Tabelle1").Copy After:=.Sheets(.Sheets.Count)
End With
End Sub


Gruß Tino

Anzeige
AW: Excel schneidet beim Kopieren alles über 255 ab
13.10.2008 08:53:27
Joachim
Hallo Tino,
das einlesen funktioniert, aber die Zellinhalte werden trotzdem nach 255 zeichen abgeschnitten. Kann das sein ?
Gruss
joachim
AW: Excel schneidet beim Kopieren alles über 255 ab
13.10.2008 15:52:00
Tino
Hallo,
habe hier 2007 und da funktioniert es.
Versuchen wir mal diese Möglichkeit.
Kopiert wird von Export.xls Tabelle1 nach Master.xls, beide Dateien müssen offen sein. 
Option Explicit


'von Export.xls nach Master.xls 
Sub Makro1()
Dim Bereich As Range

'Quelle********* 
With Workbooks("Export.xls").Sheets("Tabelle1")
 Set Bereich = .Range("A1", .Cells.SpecialCells(xlCellTypeLastCell))
End With
'*************** 

With Application
.ScreenUpdating = False
.DisplayAlerts = False
'Zieldatei ist hier Master.xls 
    With Workbooks("Master.xls")
    'Quelle ist Export.xls die Tabelle mit den Namen Tabelle1 
     Workbooks("Export.xls").Sheets("Tabelle1").Copy After:=.Sheets(.Sheets.Count)
      Bereich.Copy
      .Sheets(.Sheets.Count).Range("A1").PasteSpecial
    End With
.CutCopyMode = False
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub


Gruß Tino

Anzeige
AW: Excel schneidet beim Kopieren alles über 255 ab
14.10.2008 15:17:26
Joachim
Hallo Tino,
das funktioniert nun, Daten werden nicht mehr abgeschnitten. Vielen Dank :-))
Falls Du nochmal Lust und Zeit hast, ob es nicht möglich ist, die Daten auf die gleiche Weise von der Master-datei aus der Export datei zu HOLEN, da ich alle meine Makros auch schon in der Master habe.
Auf jeden fall danke bis hierher.
Joachim
AW: Excel schneidet beim Kopieren alles über 255 ab
14.10.2008 16:15:00
Tino
Hallo,
Du brauchst doch nur die Dateinamen entsprechend austauschen.
Gruß Tino
AW: Excel schneidet beim Kopieren alles über 255 ab
15.10.2008 11:59:03
Joachim
Hi Tino,
super jetzt läufts. Hätte ich ja selber drauf kommen können. Der Quellcode kopiert nun das gesamte Tabellenblatt von der Exportdatei in meine Master-datei. Allerdings legt es dabei ein neues Tabellenblatt an mit dem Namen der des Sheets aus der Exportdatei.
Wie kann ich es machen, damit der Quellcode die daten in mein bestehendes Sheet "DATEN" in der Masterdatei reinschreinschreibt und kein neuen Blatt anlegt ?
Wenn ich den Tabellenname in meiner Exportdatei einfach umbenene in "Daten" , dann habe ich nachher in meiner Masterdatei ein neues Tabellenblatt mit "DATEN(2)" stehen und mein bestehen des Blatt "DATEN" bleibt leer.
Gruss
joachim
Anzeige
AW: Excel schneidet beim Kopieren alles über 255 ab
15.10.2008 14:59:24
Tino
Hallo,
ist Deine Tabelle schon vorhanden, versuche es mal hiermit.
Modul Modul1 
Option Explicit 
 
 
'von Export.xls nach Master.xls 
Sub Makro1() 
Dim Bereich As Range 
 
'Quelle ist hier Export.xls Tabelle = Daten *************************** 
With Workbooks("Export.xls").Sheets("Daten")                         '* 
 Set Bereich = .Range("A1", .Cells.SpecialCells(xlCellTypeLastCell)) '* 
End With                                                             '* 
'********************************************************************** 
 
With Application 
.ScreenUpdating = False 
.DisplayAlerts = False 
'Zieldatei ist hier Master.xls Tabelle = Daten***** 
    With Workbooks("Master.xls").Sheets("Daten") '* 
'************************************************** 
      .Cells.Clear 
       Bereich.Copy 
      .Range("A1").PasteSpecial 
    End With 
.CutCopyMode = False 
.DisplayAlerts = True 
.ScreenUpdating = True 
End With 
End Sub


Gruß Tino

Anzeige
Supi, Vielen Dank
15.10.2008 15:32:29
Joachim
Hi Tino,
Danke, jetzt klappts wunderbar. :-))
Gruss
Joachim
AW: Excel schneidet beim Kopieren alles über 255 ab
10.10.2008 11:11:34
Nepumuk
Hallo Joachim,
du machst nichts falsch, das ist so. Du musst in dem Fall nach dem kopieren der Tabelle deren Inhalt nochmal komplett kopieren. Also:
Ursprungstabelle.Cells.Copy Destination:=Zieltabelle.Cells(1, 1)
Gruß
Nepumuk

301 Forumthreads zu ähnlichen Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Anzeige
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Daten beim kopieren bereits abschneiden
Joachim

Hi,
ich kopiere mit folgendem Code Daten von einer Spalte zur anderen:
Worksheets("Temp").Range("CW2:CW1000").Copy Worksheets("data").Range("B10")
Inhalte sehen etwar so aus:
AUTO000005003
AUTO000005002
AUTO000005009
MOFA000004001
MOFA000004002
MOFA000004003<...
19.01.2009 10:02:00
Thread-ID: 1041326
14 Beiträge
Anzeige
Excel-VBA stürzt ab beim Kopieren
Gunther

Hallo!
Ich hoffe, dass Ihr mir bei meinem Problem weiterhelfen könnt.
Ich hatte folgende Aufgabenstellung zu bearbeiten: In einem Verzeichnis befinden sich viele, gleich aufgebautet Excel-Datein. Jede Datei enthält mehrere Blätter die mit Berichten gefüllt sind. Nun soll ein neue Datei...
16.09.2009 11:40:13
Thread-ID: 1103178
9 Beiträge
WAV-Datei einbetten und beim Öffnen abspielen
Martha

Hallo liebe Forumler,
ich möchte eine bestimmte WAV-Datei (kein Standardsound!) so in meine Excel-Datei einbinden, dass Sie beim Öffnen einmalig abgespielt wird.
Dabei soll im VBA-Modul nicht auf eine WAV-Datei in einem Windows-Ordner verwiesen werden, sondern der Wavesound quasi in der...
25.11.2009 15:09:59
Thread-ID: 1119997
8 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Makroeditor stürzt beim Öffnen ab
andi

Hallo zusammen,
ich habe jetzt seit ca. 2 wochen das Problem, dass auf einem Rechner Excel abstürzt, sobald man versucht den Makro-Editor zu öffnen, oder irgendein Makro auszuführen. Es stürzt selbst dann ab, wenn man den Editor in einem neuen, leeren Workbook öffnet. Hat also nichts mit de...
24.02.2010 13:07:32
Thread-ID: 1140626
3 Beiträge
makro geht nach Spalten einfügen nicht mehr
morbiuz

Hallo liebes Forum,
Möchte ich in einem Makro den Wert aus der Zelle A1 auslesen, geht das ja ohne probleme mit...
variable = tabelle1.range("a1").value
Fügt ein User jedoch manuell 2 Spalten ein, verschiebt sich ja die Original Zelle auf die Zelle C1.
Wie muss ich meine Zelle f...
19.05.2010 18:33:41
Thread-ID: 1157897
3 Beiträge
Anzeige

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
2
6
7
13
4
8
7
1
2
2
1
1
5
4
1
3
2
9
1
3
7
4
2
8
6