Excel: Zellen aus Zeile in 2. Tabllenblatt kopieren

Hallo Zusammen,

ich benötige für die Inventarisierung eine Excelliste, aus der ich Etiketten drucken kann. Die Liste ist vorhanden, das Etikett als solches auch.

Ich suche jetzt die Möglichkeit, von der aktuellen Zeile in Blatt1, vorher bestimmte Zellen in vorherbestimmte Zellen von Blatt2 zu füllen, um dieses dann als Etikett zu drucken.

Ich denke das geht irgendwie per VBS, da kenne ich mich aber nicht wirklich aus.
Hat jemand von Euch schon ein Lösung die ich nur anpassen kann?

Beispiel:
Markiert ist Blatt1, Zeile3 --> kopiert werden Zelle A3, C3, E3 und sollen nach Blatt2 Zelle A4, A5, A6 kopiert werden.

Danke und Gruß Markus

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 227852

Url: https://administrator.de/contentid/227852

Ausgedruckt am: 26.11.2024 um 08:11 Uhr

10 Kommentare

Neuester Kommentar

Hallo Markus,
öffne den VBA-Editor indem du einen Rechtsklick auf den Tab deines ersten Sheets machst, und Code anzeigen wählst. Dann fügst du dort folgenden Code ein (Bitte den Code über die "Quelltext"-Funktion über dem Code kopieren, sonst werden die Nummern vor dem Quelltext mit kopiert.):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set sheetTarget = Worksheets(2)
    sheetTarget.Range("A4").Value = ActiveSheet.Cells(Target.Row, 1).Value  
    sheetTarget.Range("A5").Value = ActiveSheet.Cells(Target.Row, 3).Value  
    sheetTarget.Range("A6").Value = ActiveSheet.Cells(Target.Row, 5).Value  
End Sub

Sobald sich dann im ersten Sheet die Auswahl der Zeile ändert werden die Zellen in Sheet2 entsprechend mit den Daten aus Sheet1 aktualisiert.

Grüße Uwe

Hallo Colinardo,

soweit super!

Gibt es noch die Möglichkeit die Zeile aus dem ersten Sheet auszuwählen?
ZB. über einen Knopf, der dann die Daten den aktuellen Cusor Zeile in das 2. Sheet weitergibt?

Gruß Markus

Klar geht das auch, aber schau dir mal das Demo-Sheet an, das etwas ähnliches auch ohne Makro erledigt. Im Demo-Sheet hast du die Möglichkeit eine Zeile via DropDown-Feld in Tabelle 2 auszuwählen.

hier noch als Nachtrag deine Version mit deinem gewünschten Button: Demo-Sheet mit Button

Hallo Colinardo,

herzlichen Dank!! Ich hätte dafür wahrscheinlich Tage benötigt!

Gruß Markus

Hi nochmal,

Könnte ich zu der Übergabe auch noch etwas anhängen?
Also Zelle1 plus * vorne und hinten?
Die Daten werden als Barcode gedruckt, diese benötigen leider ein *

Gruß Markus

klar ... welche Variante hast du denn jetzt genommen ?

Also Zelle1 plus * vorne und hinten?

wie meinen ? also einfach ein Sternchen vor und hinter dem Text der ersten Zelle ?

Sub btnTransfer()
    Set sheetSource = Worksheets(1)
    Set sheetTarget = Worksheets(2)
    
    sheetTarget.Range("A4").Value = "*" & sheetSource.Cells(Selection.Row, 1).Value & "*"  
    sheetTarget.Range("A5").Value = sheetSource.Cells(Selection.Row, 3).Value  
    sheetTarget.Range("A6").Value = sheetSource.Cells(Selection.Row, 5).Value  
End Sub