Office: Einfügen

Hallo,

ich möchte mit folgendem Code die Formatierungen nach dem Einfügen wieder herstellen:

Code:

Normalerweise funktioniert das auch, aber es gibt dabei 2 Probleme:

1. Der Code setzt sämtliche Formatveränderungen der Tabelle zurück, soll sich aber nur auf Spalte A-E beziehen.

2. In Spalte C wird ein Datum mit Uhrzeit eingefügt, daraus macht er einen Haufen ########### und sagt negative Datumswerte werden so dargestellt.

Es geht mir lediglich darum die Bedingte Formatierung zu erhalten und die eingefügten Zeilenumbrücke zu deaktivieren.

Bin für jeden Hinweis dankbar.

Grüße Anja

:)

 

Hallo Forum,

ich bin inzwischen soweit dass ich auf die bedingte Formatierung verzichte und mit großer Hilfe von EarlFred das Ganze über VBA löse.

Um das Grundthema geht es aber immer noch.
Ich möchte aus einer externen Anwendung einfügen und die Tabellenformatierung beibehalten.

EarlFred hat mir diese Lösung vorgeschlagen:

Code:

Und den Strg+V Key über Workbook_Open Anweisung mit Sub Einfügen_Anja() belegt.

Das klappt prima, wenn ich Daten aus einer Excel-Tabelle in eine andere kopiere, aber wenn ich aus dieser externen Anwendung direkt in meine
Zieltabelle kopiere bekomme ich
"Laufzeitfehler 1004: Die PasteSpecial-Methode des Range Objekts konnte nicht ausgeführt werden."

Gibt es eine Möglichkeit direkt aus der externen (nicht Office-) Anwendung in die Zieltabelle zu kopieren und die Formate der Zieltabelle zu behalten?

Wenn nicht, wie kann ich ggf. die Formate nach dem Öffnen der Arbeitsmappe zurücksetzen?

Grüße Anja

 

Hallo Anja,

AHAAAAA! Das muss doch mal gesagt werden.
Was genau passiert, wenn Du die Daten "so" einfügst? Werden die Zellen richtig zugeordnet? Ist das einzige Problem, dass die Formate "gekillt" werden?
Dann lies doch mal testweise die Zwischenablage mit dem DataObject aus und versuche, den blanken Text einzufügen (mit Deinem "Umleitungsmakro").

Edit: Und wenn Du eine "Datenprobe" zur Verfügung stellen würdest, also das wär schon toll...

Grüße
EarlFred

 

Hallo EarlFred (wieder einmal *wink.gif*

Wenn ich sie von Extern einfüge kommt nur die Fehlermeldung mit Option Debuggen oder beenden, das Einfügen findet nicht statt.

Wenn ich aus einer anderen Exceltabelle oder sheet einfüge dann ist alles so wie es sein soll!

Ich werde mich dann mal bei Google über das Auslesen der Zwischenablage mit dem DataObject schlau machen...

Grüße Anja

 

Hallo Anja,

nimm einfach eine neue Tabelle, erstelle einen VBA-Verweis auf die "Microsoft Forms 2.0 Object Library" und erstelle in einem neuen Modul folgenden Code:

Code:

Poste dann mal beispielhaft, was in A1 steht.
Vermutlich wird dort irgendein Trenner sein, der als Quadrat dargestellt wird. Isoliere den mal als Text in der Zelle A1 und verwende die Formel
Code:

Dann sollte als Ergebnis eine Zahl kommen, die wir zum Trennen gebrauchen werden.

Grüße
EarlFred

 

Hallo EarlFred,

erstmal vorweg... ich betrete wieder totales Neuland aber ich bin froh dass mir jemand so kompetentes zur Seite steht. So genug gesäuselt *wink.gif*

Du hattest (wie meistens) Recht ich habe den Verweis auf die Microsoft Forms 2.0 Object Library hergestellt indem ich eine UserForm erstellt und dann wieder gelöscht habe.

Nach ausführung des Codes hatte ich den Inhalt des Clipboard in A1. Nach Kopie des Quadrats in B1 und Auslesen der Zelle B1 mit =Code(B1) erhielt ich als Ergebnis die Zahl 32.

Ich habe aber vorsichtshalber jeden Trenner ausgelesen. Ergebnis:
32 32 32 32 10


Wie trennen wir jetzt die Daten nach Zahl 32?

Grüße Anja

 

Hallo Anja,

na, wir trennen mit Split, wie denn sonnst? *wink.gif*

Code:

Grüße
EarlFred

 

Hallo EarlFred,

er trennt jetzt leider nach jedem Leereichen, aber nicht nach den Quadraten. Im Gegenteil, die sind immer noch drin im Text.

Datenprobe:
Code:

Weiterhin ist das Problem, dass er bei mehreren Zeilen die eingefügt werden sollen, alles hintereinander in eine zeile schreibt, statt nach dem letzten Wert (hier "West") in die nächste Zeile zu springen.

Gruß Anja

 

Hallo Anja,

hatte mich schon gewundert, dass das Zeichen 32 als Quadrat dargestellt wird, denn das ist ein "stino" (stink normales) Leerzeichen (Space). Dann ist das also nicht der korrekte Trenner. Dann müstest Du also nochmal ran.

Wenn mehrere Zeilen gleichzeitig eingetragen werden sollen / müssen, muss hier auch ein anderer Trenner vorliegen (das könnte die 10 sein).
Also nimm bitte nochmal mein "Versuchsmakro" und kopiere Text hinein, der in mehrere Zeilen ausgelesen werden soll und lies auch hier bitte wieder die Trenner, auch für den "Zeilenumbruch", aus

Grüße
EarlFred

 

Hallo EarlFred,

nach ein paar Versuchen hat's dann doch noch geklappt, die SpaltenTrennung muss noch Zahl 9 erfolgen und die 10 ist wohl wirklich der Zeilentrenner.

Mein Makro sieht jetzt so aus:

Code:

Die 9 hab ich schon eingesetzt und die Trennung macht er auch problemlos.
Funktioniert die Trennung nach Zeilen genauso?

Ich will den Code hinterher dann auf STRG+V legen wie wir es schon "geübt" haben.

Gruß Anja

 

Hallo Anja,

mit kleinem Schleifchen drumherum: Teste mal bitte:
Code:

Grüße
EarlFred

 

Hallo EarlFred,

das Einfügen dauert jetzt zwar einen kleinen Moment aber dafür dass ich die bed. Formatierung los bin und über STRG+V ohne Formatänderung einfügen kann das war es wert!!!

Vielen Dank!

Ich meld mich gleich nochmal mit vollständigem Code wenn ich das mit der STRG-V Kombi hinbekommen habe.

Grüße Anja

 

Hallo EarlFred,

mir ist aufgefallen dass ich bei den so eingefügten Daten die Zellformatierung in spalte C nicht mehr ändern kann.

Da steht das Datum+Uhrzeit drin z.B. 16.02.2011 08:13

Wenn ich jetzt mit Zellen formatieren-> Zahlen -> Benutzerdefiniert -> TT.MM.JJJJ das Format ändern will tut er das nicht mehr.

Wenn ich das datum manuell in der Zelle verändere passt er das Format auf TT.MM.JJJJ an.

Ist aber ein geringer Preis für das was gewonnen wurde.
Hast du zumindest eine erklärung dafür damit ich das verstehe?

Grüße Anja

 

Hallo Anja,

Geschwindigkeit:
Das Makro fügt Zeile für Zeile ein - das kann bei großen Datenmengen etwas dauern. Alternative wäre, stattdessen erstmal alle Daten innerhalb des Makros in ein "großes" Array zu schreiben und dieses in einem Rutsch in die Tabelle zu bringen. Dann hast Du nur noch einen einzigen Zugriff, das spart Zeit.
Zudem fehlt mir der genaue Überblick, wie umfangreich auf Eintragungen reagiert wird (Change-Ereignis) und welchen Zeitbedarf dies hat.

Datum:
Die Daten werden als Text in die Zellen übertragen. Einem Text kann man aber kein Zahlen-(Datums-)Format zuweisen. Durch das Bearbeiten erst erkennt Excel diese Eintragung als Datum, so dass sie formatiert werden kann.
Das Umwandeln könnte die Funktion Datevalue in einer Schleife erledigen (Achtung wieder beim Change-Ereignis).

Grüße
EarlFred

 

Hallo EarlFred,

mir ist doch noch etwas aufgefallen!

Wenn ich z.B. 3 Einträge in die Zwischenablage kopiere, fügt er mir nur 2 in Excel wieder ein.

Das geht natürlich nicht, weil mir dann immer eine Zeile fehlt.

Hast du noch mal nen Rat?

Gruß Anja