Excel per VBA Bereich kopieren / bearbeiten / einfügen

Markus123456789 · 2025-07-14T17:32:58+02:00

Hallo zusammen, ich finde gerade nicht die richtigen Suchbegriffe um auf eine Antwort zukommen. Ich hab eine Tabelle da möchte ich einen bestimmen Zellbereich kopieren und dann bearbeiten um diesen Daten in einer anderen Tabelle einfügen zu können. Dazu müssen vor allem Spalten hinzugefügt werden, Formatierungen gelöscht werden usw. Kann ich sowas immer nur indem ich den markierten Bereich auf einem Tabellenblatt einfüge oder kann ich das auch komplett im Zwischenspeicher machen? Hätte mir jemand ein Beispiel dafür? Danke

Hi
die Beispieldatei ist noch sehr rudimentär.
könntest du sie etwas realitätsnäher gestalten?

zunächst einmal ein paar grundsätzliche Daten:
1. ist die Zieltabelle schon vorhanden und enthält sie Überschriften und Daten oder muss die Zieltabelle neu aufgebaut werden?
2. falls schon Daten vorhanden sind: sollten die kopierten Daten immer am Ende hinzugefügt werden oder auch mal zwischen drin eingefügt werden?
3. woher weiß man, in welche Spalte was kommt? kann man sich da ggf an Überschriften orientieren, dh die Inhalte werden in die Spalte mit der gleichen Überschrift geschrieben oder muss man da eine Zuordnungstabelle haben bzw "wissen", das der Inhalt von Spalte 3 im Ziel in die Spalte 5 kommt, wenn ja, wie und wo soll das hinterlegt werden?

so wie du dir das wünscht, wirst du wahrscheinlich um ein einfüge-Makro nicht herum kommen, ich würde das vermutlich so programmieren, dass aus der Auswahl jede Spalte einzeln kopiert und in die vorgegebene Zielspalte eingefügt wird.

Gruß Daniel

Hi
wenn Makros eine Option sind, könntest du sowas probieren.
hier wird der selektiere Bereich spaltenweise kopiert und in die Tabelle2 kopiert.
die Zielspalte wird dabei über die Spaltenüberschrift (beidesmal in Zeile 1) ermittelt, so dass die eingefügten Daten eine andere anordnung haben können als die die kopierten Daten.

Sub Copy_Spalten()

Dim c As Range

Dim üb As String

Dim Ziel As Range

Dim Fehler As String

Dim Zeilen As Long

Zeilen = Sheets("Tabelle2").Cells(1, 1).CurrentRegion.Rows.Count

For Each c In Selection.Columns

    üb = Intersect(Rows(1), c.EntireColumn)

    If üb > "" Then

        Set Ziel = Sheets("Tabelle2").Rows(1).Find(what:=üb, lookat:=xlWhole, LookIn:=xlValues)

        If Ziel Is Nothing Then

            Fehler = Fehler & vbLf & üb

        Else

            c.Copy

            Ziel.Offset(Zeilen, 0).PasteSpecial xlPasteValues

        End If

    End If

Next

If Fehler > "" Then MsgBox "diese Spalten konnten nicht kopiert werden:" & Fehler

End Sub

Excel per VBA Bereich kopieren / bearbeiten / einfügen

Forumthread: Excel per VBA Bereich kopieren / bearbeiten / einfügen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Excel per VBA Bereich kopieren / bearbeiten / einfügen

Forumthread: Excel per VBA Bereich kopieren / bearbeiten / einfügen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread