Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: "an zielformatierung anpassen" beim einfügen?

"an zielformatierung anpassen" beim einfügen?
19.09.2014 12:04:40
Tommy
Hi,
gibt es eine Möglichkeit die Einfügemethode "An Zielformatierung anpassen" beim einfügen von Daten aus der Zwischenablage per VBA zu realisieren? Wenn ich das Testweise mit dem Makrorecorder aufzeichne kommt folgendes heraus:
Sheets("Tabelle1").Select
Worksheets("Tabelle1").Range("A3").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Allerdings hätte ich den Einfügebereich gern als Variable ala .cells (3,i) oder ähnliches gelöst. Hat da jemand eine Idee?
Danke

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: "an zielformatierung anpassen" beim einfügen?
19.09.2014 12:06:53
Hajo_Zi
Sheets("Tabelle1").cells(3,i).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True

AW: "an zielformatierung anpassen" beim einfügen?
19.09.2014 12:12:50
Tommy
das führt leider zu "Laufzeitfehler 1004: Anwendungs- oder Objektdefinierter Fehler" :(

AW: "an zielformatierung anpassen" beim einfügen?
19.09.2014 12:24:13
Hajo_Zi
ich kann das nicht nachvollziehen, was wohl daran liegt das ich nicht sehe was Du kopierst und das ich den letzten kompletten Code nicht sehe.

Anzeige
AW: "an zielformatierung anpassen" beim einfügen?
19.09.2014 12:46:24
Tommy
ich kopiere mit:
WebBrowser1.ExecWB 17, 0
WebBrowser1.ExecWB 12, 0
eine komplette webseite und möchte diese Zwischenablage dann einfügen.
Das ganze Codestückchen ist daher auch kaum mehr. Hier:
WebBrowser1.document.getElementById("vfilter").selectedindex = 0
WebBrowser1.document.getElementById("vfilter").FireEvent ("onchange")
While WebBrowser1.readyState 4
DoEvents
Wend
Do: Loop Until WebBrowser1.Busy = False
Do: Loop Until WebBrowser1.Busy = False
WebBrowser1.ExecWB 23, 0
WebBrowser1.ExecWB 17, 0 'Select All
Sleep 300
WebBrowser1.ExecWB 12, 0 'Copy
Sleep 100
Sheets("Tabelle2").Select
Worksheets("Tabelle2").Range("A3").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Thats it :)

Anzeige
AW: "an zielformatierung anpassen" beim einfügen?
19.09.2014 12:48:49
Hajo_Zi
gut Du möchtest meinen Code also nicht einarbeiten. Ich bin dann raus.
Gruß Hajo

AW: "an zielformatierung anpassen" beim einfügen?
19.09.2014 13:12:01
Tommy
doch, ich dachte du möchtest mein "original" sehen. Sorry. Ich habe deinen wie folgt eingebaut:
WebBrowser1.document.getElementById("vfilter").selectedindex = 0
WebBrowser1.document.getElementById("vfilter").FireEvent ("onchange")
While WebBrowser1.readyState 4
DoEvents
Wend
Do: Loop Until WebBrowser1.Busy = False
Do: Loop Until WebBrowser1.Busy = False
WebBrowser1.ExecWB 23, 0
WebBrowser1.ExecWB 17, 0 'Select All
Sleep 300
WebBrowser1.ExecWB 12, 0 'Copy
Sleep 100
Sheets("Tabelle2").cells(3,i).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Und bekomme dann eben leider den Fehler :(
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

An Zielformatierung anpassen beim Einfügen in Excel


Schritt-für-Schritt-Anleitung

Um in Excel die Einfügemethode „An Zielformatierung anpassen“ zu nutzen, kannst du die folgenden Schritte befolgen:

  1. Daten kopieren: Stelle sicher, dass die Daten, die du einfügen möchtest, in der Zwischenablage sind. Dies kann durch eine einfache Kopieraktion im Excel oder aus einer anderen Anwendung erfolgen.

  2. Zielbereich auswählen: Wähle die Zelle in Excel aus, in die du die Daten einfügen möchtest.

  3. Einfügen mit Shortcut: Um die Einfügemethode „An Zielformatierung anpassen“ zu verwenden, kannst du die Tastenkombination

    Strg + Alt + V

    verwenden, um das „Einfügen Spezial“-Menü zu öffnen. Wähle dann „An Zielformatierung anpassen“ aus.

  4. Makro verwenden: Wenn du die Einfügemethode automatisieren möchtest, kannst du ein einfaches VBA-Makro verwenden:

    Sheets("Tabelle1").Cells(3, i).PasteSpecial Paste:=xlPasteAllUsingSourceTheme

Häufige Fehler und Lösungen

  • Laufzeitfehler 1004: Dieser Fehler tritt häufig auf, wenn der Zielbereich nicht korrekt definiert ist. Stelle sicher, dass Sheets("Tabelle1").Cells(3, i) korrekt auf eine existierende Zelle verweist.

  • Datenformatierung nicht übernommen: Wenn die formatierte Darstellung nicht übernommen wird, überprüfe die Einstellungen in „Einfügen Spezial“. Möglicherweise musst du die Option „An Zielformatierung anpassen“ aktivieren.


Alternative Methoden

Es gibt mehrere Möglichkeiten, um Daten in Excel einzufügen und die Zielformatierung anzupassen:

  • Drag & Drop: Du kannst Daten auch per Drag & Drop von einer Zelle in eine andere ziehen und dabei die Alt-Taste gedrückt halten, um die Zielformatierung beizubehalten.

  • Format übertragen: Um das Format einer Zelle auf eine andere zu übertragen, kannst du den „Format übertragen“-Pinsel in der Symbolleiste verwenden.

  • Excel Shortcut für Format übertragen: Nutze die Tastenkombination

    Strg + Shift + C

    um das Format einer Zelle zu kopieren und dann mit

    Strg + Shift + V

    auf eine andere Zelle anzuwenden.


Praktische Beispiele

  1. Einfügen von Webdaten: Wenn du Daten von einer Webseite kopierst, kannst du den folgenden VBA-Code verwenden, um diese in Excel einzufügen:

    WebBrowser1.ExecWB 17, 0 'Select All
    WebBrowser1.ExecWB 12, 0 'Copy
    Sheets("Tabelle2").Cells(3, i).PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  2. Einfache Kopieraktion: Wenn du eine einfache Excel-Tabelle hast, die du in eine andere Tabelle übertragen möchtest, kannst du dies mit der oben beschriebenen Shortcut-Methode erledigen.


Tipps für Profis

  • Makros optimieren: Wenn du häufig Daten in ein bestimmtes Format einfügen musst, erstelle ein Makro, das diese Aktion automatisiert. Dies spart Zeit und reduziert Fehler.

  • Tastenkombinationen nutzen: Lerne die verschiedenen Excel Shortcuts, um deine Effizienz zu steigern, insbesondere die, die mit „An Zielformatierung anpassen“ zu tun haben.

  • Formatvorlagen verwenden: Überlege, Formatvorlagen in Excel zu erstellen, um konsistentere Ergebnisse beim Einfügen von Daten zu erzielen.


FAQ: Häufige Fragen

1. Wie kann ich die Einfügemethode „An Zielformatierung anpassen“ als Standard festlegen?
Aktuell gibt es keine Möglichkeit, diese Methode als Standard festzulegen. Du musst die „Einfügen Spezial“-Option jedes Mal auswählen.

2. Welche Tastenkombination kann ich verwenden, um schnell zu „An Zielformatierung anpassen“ zu gelangen?
Die Tastenkombination

Strg + Alt + V

öffnet das „Einfügen Spezial“-Menü, wo du diese Option auswählen kannst.

3. Funktioniert das „An Zielformatierung anpassen“ auch mit anderen Datenquellen?
Ja, du kannst diese Funktion auch mit Daten aus anderen Anwendungen verwenden, solange die Daten im richtigen Format kopiert werden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige