arafat
Goto Top

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

Content-Key: 227852

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

Ausgedruckt am: 29.03.2024 um 07:03 Uhr

Mitglied: colinardo
colinardo 27.01.2014 aktualisiert um 18:10:39 Uhr
Goto Top
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
Mitglied: Arafat
Arafat 28.01.2014 um 12:10:00 Uhr
Goto Top
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
Mitglied: colinardo
Lösung colinardo 28.01.2014 aktualisiert um 12:36:30 Uhr
Goto Top
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.
Mitglied: colinardo
Lösung colinardo 28.01.2014 aktualisiert um 12:36:24 Uhr
Goto Top
hier noch als Nachtrag deine Version mit deinem gewünschten Button: Demo-Sheet mit Button
Mitglied: Arafat
Arafat 28.01.2014 um 12:36:01 Uhr
Goto Top
Hallo Colinardo,

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

Gruß Markus
Mitglied: Arafat
Arafat 28.01.2014 um 15:18:04 Uhr
Goto Top
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 * face-sad

Gruß Markus
Mitglied: colinardo
colinardo 28.01.2014 aktualisiert um 15:25:48 Uhr
Goto Top
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
Mitglied: Arafat
Arafat 28.01.2014 um 15:26:34 Uhr
Goto Top
Variante 2
Genau * vor und hinter dem Zelleninhalt der übergeben wird

A2 =*A2*

Dank!!!
Mitglied: colinardo
colinardo 28.01.2014 aktualisiert um 15:28:34 Uhr
Goto Top
OK dann siehe den moifizierten Code im vorigen Kommentar...
Mitglied: Arafat
Arafat 28.01.2014 um 15:35:20 Uhr
Goto Top
Sehr geil .. DANKE!!