VBA kopieren und einfügen von Werten, Formeln und der Spaltenbreite

[@A5C89]

Hi, danke für das Video. Ich habe zwei excel Blätter in einer Datei. Möchte aus diesen Tabellen zwei Werte vergleichen. Wenn die Bedingung erfüllt ist möchte ich, dass die weiteren Daten aus dem einen Blatt in das andere kopiert werden. Hast du da vielleicht eine Idee oder einen Tipp?

[@excelmastervba]

Hi, klar gerne. Dein VBA-Code könnte folgendermaßen aussehen. ‘Bedingung If Sheets(“Blatt1“).Range(“A1“).value = Sheets(“Blatt2“).Range(“A1“).value Then ‘Falls die Bedingung zutrifft: Sheets(“Blatt1“).Range(“B1“).value = Sheets(“Blatt2“).Range(“C1“).value … Else ‘Falls die Bedingung nicht zutrifft: … End If Du müsstest nun nur noch Blatt1/Blatt2 mit deinen Tabellenblattnamen tauschen und A1 mit dem Bereich, den du vergleichen möchtest. Wenn also die Werte beider Blätter aktuell in der Zelle A1 übereinstimmen wird der Wert aus dem Blatt2 Zelle C1 in das Blatt1 Zelle B1 übertragen. Auch diese Bereiche müsstest du noch an deine Tabelle anpassen. Solltest du mehrere Bereiche haben die übertragen werden sollen kannst du diese ebenfalls in dem Bereich “Falls die Bedingung zutrifft“ hinterlegen. Zur einfacheren Übersicht könntest du hier auch erst Blatt2 auswählen, dann den Bereich kopieren, der übertragen werden soll. Dann wählst du wieder Blatt1 aus und den Bereich, wohin die Werte übertragen werden sollen. Jetzt nur noch einfügen und fertig. Wenn du noch nicht so lange bei VBA dabei bist wird dir das wahrscheinlich eher einfacher fallen um auch nachvollziehen zu können was der Code Schritt für Schritt macht. Diesen Teil des Makros (kopieren und einfügen) könntest du auch mit dem Makrorekorder aufnehmen und dann im Bereich „Falls die Bedingung zutrifft“ einsetzen. Mein Vorschlag: Führe dein Makro mit der Taste F8 Schritt für Schritt aus, somit kannst du jeden Einzelschritt sehr viel besser nachvollziehen und Fehler im Makro korrigieren. Ich hoffe ich konnte dir damit weiterhelfen. LG Daniel

[@A5C89]

@@excelmastervba vielen Dank, wenn ich eine einzelne e Zelle angebe funktionierts. Bei mehreren Bezugsbereichen kamen Fehler auf. Da ich nicht so viel Zeit hatte, habe ich es mit SVerweis gelöst.

[@mrruckyou]

Hallo und Danke für das Video! Ich habe immer ein Problem mit der den Tausender Trennzeichen wenn ich Werte über VBA einfüge. Jedes mal wenn ich beispielsweise 234.000 als Zahl reinkopiere, macht VBA 234 bzw. 234,000 daraus, was natürlich alles nachgelagerte verfälscht. Ich habe schon eine ganze Menge ausprobiert, aber komme leider nicht weiter. Hättest du hier einen Vorschlag, was man machen kann? Danke und viele Grüße

[@excelmastervba]

Hallo, wenn du Werte bei VBA in der Form "234.000" einfügst, wird der "." nicht als Tausender Trennzeichen gewertet, sondern als Komma! Du kannst das umgehen, in dem du die Zahl so schreibst "234000" oder aber via Format(Expression,Format) ein entsprechendes Format angibst. Hier mal 4 Zeilen Code, die ganz gut verdeutlichen, was wann passiert: Sub Format() Range("A1") = 23412 Range("B1") = 234.12 Range("C1") = Format(23412, "#,##0.00") Range("D1") = Format(234.12, "#,##0.00") End Sub Ich hoffe, ich konnte dir weiterhelfen. :)

[@LebenWerden]

Innerhalb meines Code habe ich Kopieren und einfügen verwendet. Wenn aber das Makro zu Ende ist, dann will ich das der Zwischenspeicher leer ist. Wie mache ich das?

[@excelmastervba]

Hallo Excelfreund, der Zwischenspeicher in VBA lässt sich mit dem Code " Application.CutCopyMode = False" leeren. Wenn du aber die Standard-Windows-Zwischenablage meinst kannst du folgenden Code verwenden : Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long) Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard& Lib "user32" () Public Sub ClearClipboard() OpenClipboard 0& EmptyClipboard CloseClipboard End Sub

[@ferhatkurt8898]

Hey, ich kannte bis vor 10 Minuten das kopieren und Einfügen durch Markieren und Kopieren und strg+V einfügen. Doch Excel ist so fleißig das es die Zahlen die ich Kopiere weiterführt und die nächstgrößere Zahl einfügt. Wie kann ich das ausschalten? Ich habe das mal flüchtig in der Schule gelernt, doch nun sind es 10 Jahre her -.- LG

[@excelmastervba]

Um das automatische Weiterführen von Zahlen in Excel zu deaktivieren, können Sie die Option "Automatisch ausfüllen" in den Excel-Einstellungen ändern. Hier ist, wie Sie das machen können: 1. Öffnen Sie Excel und klicken Sie auf die Registerkarte "Datei" oben links. 2. Wählen Sie im Menü den Punkt "Optionen" aus. Es öffnet sich ein neues Fenster. 3. In den Excel-Optionen wählen Sie den Reiter "Erweitert". 4. Suchen Sie unter "Bearbeitungsoptionen" die Option "Automatisch ausfüllen von Zellen aktivieren" und entfernen Sie das Häkchen daneben. 5. Klicken Sie auf "OK", um die Einstellungen zu speichern. Nachdem Sie diese Änderung vorgenommen haben, sollte Excel das automatische Weiterführen von Zahlen nicht mehr aktivieren, wenn Sie Zahlen kopieren und einfügen. Beachten Sie jedoch, dass diese Einstellung global für Excel gilt und sich auf das Verhalten in allen Arbeitsblättern auswirkt. Es ist möglich, dass die genaue Bezeichnung der Option je nach Excel-Version leicht variieren kann. Die oben genannten Schritte gelten für Excel 2016 und 2019. In älteren oder neueren Versionen können die Einstellungen an leicht unterschiedlichen Stellen zu finden sein, aber das grundlegende Prinzip sollte ähnlich sein. In Excel 365 können Sie das automatische Ausfüllen von Zahlen über die Einstellungen deaktivieren. Hier ist, wie Sie es in Excel 365 machen können: 1. Öffnen Sie Excel 365 und klicken Sie auf "Datei" oben links. 2. Wählen Sie "Optionen" aus dem Menü. Ein Fenster mit den Excel-Optionen wird geöffnet. 3. Klicken Sie im linken Bereich des Fensters auf "Erweitert". 4. Scrollen Sie im rechten Bereich des Fensters nach unten, bis Sie die Überschrift "Bearbeitungsoptionen" sehen. 5. Suchen Sie die Option "Ausfüllkästchen und Drag & Drop von Zellen aktivieren". Entfernen Sie das Häkchen, um das automatische Ausfüllen von Zahlen zu deaktivieren. 6. Klicken Sie auf "OK", um die Änderungen zu speichern. Ich hoffe, dass löst ihr Problem.

[@ferhatkurt8898]

@@excelmastervba Danke es hat geklappt, nur der Befehl war unter "Datenbereichsformate und -Formeln erweitern hinterlegt" bin das Risiko eingegange und habe es ausprobiert. Wissen sie auch zufällig wie man einstellen kann das ab einer bestimmten Spalte die darauf folgenden Zeilen, zwei Zeilen auf einer Zellspalten passen beziehungsweise zeigen ?

[@excelmastervba]

Ok, ich vermute sie möchten einen "Textumbruch" einstellen, damit alles leserlich bleibt. 1. Markieren Sie die Zelle oder Spalte, ab der Sie den Textumbruch einfügen möchten. 2. Klicken Sie mit der rechten Maustaste auf die markierte Spalte und wählen Sie "Zellen formatieren". 3. Wählen Sie im Dialogfeld "Zellen formatieren" das Register "Ausrichtung". 4. Aktivieren Sie das Kontrollkästchen "Textumbruch" unter "Textsteuerung". 5. Klicken Sie auf "OK", um die Formatierung zu bestätigen. Nachdem Sie den Textumbruch aktiviert haben, werden die Textinhalte in den nachfolgenden Zeilen der markierten Spalte automatisch in zwei Zeilen angezeigt, um Platz für den zusätzlichen Text zu schaffen. Bitte beachten Sie, dass dies nur für Textinhalte gilt. Wenn Sie beispielsweise Zahlen oder andere Werte in den Zellen haben, werden diese nicht automatisch umbrochen. Oder sie meinen „Zellen verbinden und zentrieren“, dann geht das wie folgt: 1. Markieren Sie die Zellen, die Sie verbinden möchten. Zum Beispiel, wenn Sie die Zellen A1 bis B1 verbinden möchten, markieren Sie beide Zellen. 2. Klicken Sie mit der rechten Maustaste auf die markierten Zellen und wählen Sie "Zellen formatieren" aus dem Kontextmenü. 3. Wählen Sie im Dialogfeld "Zellen formatieren" das Register "Ausrichtung". 4. Aktivieren Sie das Kontrollkästchen "Zellen verbinden". 5. Klicken Sie auf "OK", um die Formatierung zu bestätigen. Excel bietet aber auch unter dem Reiter Start; Ausrichtung das entsprechende Symbol zum "Verbinden und zentrieren" an. Bitte beachten Sie, dass beim Verbinden von Zellen nur der Inhalt der ersten Zelle beibehalten wird, während der Inhalt der restlichen Zellen gelöscht wird. Stellen Sie daher sicher, dass der gewünschte Inhalt in der ersten Zelle steht, bevor Sie die Zellen verbinden.

[@ferhatkurt8898]

@@excelmastervba können sie zur zweiten Frage ein Video machen? Denke das wäre am einfachsten