ChatGPT-Thema: Übertragung von Daten

Schlüsselwortsuche im Archiv: Übertragung, Daten

Excel / VBA deutsch: Erstelle mir den VBA-Code zum Übertragen von Daten aus Spalte A von Sheet1 zu Spalte D in Sheet2 und lege Worksheet-Variablen für die beiden Tabellenblätter fest.
Hier ist ein Beispiel für VBA-Code, der Daten aus Spalte A von Sheet1 in Spalte D in Sheet2 überträgt:

Sub TransferData()

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

ws2.Columns(4).Value = ws1.Columns(1).Value

End Sub


Die Codezeile Set ws1 = Worksheets("Sheet1") definiert eine Variablen ws1 als ein Tabellenblatt-Objekt und setzt es auf Sheet1. Die Codezeile Set ws2 = Worksheets("Sheet2") definiert eine Variablen ws2 als ein Tabellenblatt-Objekt und setzt es auf Sheet2.

Die Codezeile ws2.Columns(4).Value = ws1.Columns(1).Value überträgt die Daten von Spalte A in Sheet1 (ws1.Columns(1).Value) in Spalte D in Sheet2 (ws2.Columns(4).Value).

Um diesen Code auszuführen, können Sie ihn in ein Standardmodul einfügen und ihn entweder über eine Schaltfläche auf dem Arbeitsblatt oder über eine Tastenkombination aufrufen.