Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel: Zellen aus Zeile in 2. Tabllenblatt kopieren

Frage Microsoft Microsoft Office

Mitglied: Arafat

Arafat (Level 1) - Jetzt verbinden

27.01.2014 um 17:28 Uhr, 1648 Aufrufe, 10 Kommentare

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
Mitglied: colinardo
27.01.2014, aktualisiert um 18:10 Uhr
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.):
01.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
02.
    Set sheetTarget = Worksheets(2) 
03.
    sheetTarget.Range("A4").Value = ActiveSheet.Cells(Target.Row, 1).Value 
04.
    sheetTarget.Range("A5").Value = ActiveSheet.Cells(Target.Row, 3).Value 
05.
    sheetTarget.Range("A6").Value = ActiveSheet.Cells(Target.Row, 5).Value 
06.
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
Bitte warten ..
Mitglied: Arafat
28.01.2014 um 12:10 Uhr
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
Bitte warten ..
Mitglied: colinardo
LÖSUNG 28.01.2014, aktualisiert um 12:36 Uhr
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.
Bitte warten ..
Mitglied: colinardo
LÖSUNG 28.01.2014, aktualisiert um 12:36 Uhr
hier noch als Nachtrag deine Version mit deinem gewünschten Button: Demo-Sheet mit Button
Bitte warten ..
Mitglied: Arafat
28.01.2014 um 12:36 Uhr
Hallo Colinardo,

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

Gruß Markus
Bitte warten ..
Mitglied: Arafat
28.01.2014 um 15:18 Uhr
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
Bitte warten ..
Mitglied: colinardo
28.01.2014, aktualisiert um 15:25 Uhr
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 ?
01.
Sub btnTransfer() 
02.
    Set sheetSource = Worksheets(1) 
03.
    Set sheetTarget = Worksheets(2) 
04.
     
05.
    sheetTarget.Range("A4").Value = "*" & sheetSource.Cells(Selection.Row, 1).Value & "*" 
06.
    sheetTarget.Range("A5").Value = sheetSource.Cells(Selection.Row, 3).Value 
07.
    sheetTarget.Range("A6").Value = sheetSource.Cells(Selection.Row, 5).Value 
08.
End Sub 
09.
 
Bitte warten ..
Mitglied: Arafat
28.01.2014 um 15:26 Uhr
Variante 2
Genau * vor und hinter dem Zelleninhalt der übergeben wird

A2 =*A2*

Dank!!!
Bitte warten ..
Mitglied: colinardo
28.01.2014, aktualisiert um 15:28 Uhr
OK dann siehe den moifizierten Code im vorigen Kommentar...
Bitte warten ..
Mitglied: Arafat
28.01.2014 um 15:35 Uhr
Sehr geil .. DANKE!!
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Microsoft Office
Excel 2010 - Microsoft Excel kann die Daten nicht kopieren (4)

Frage von EDV-Oellerking zum Thema Microsoft Office ...

Datenbanken
gelöst Access Abfrage in nächste freie Zeile von Excel Sheet kopieren (5)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Router & Routing
gelöst Ipv4 mieten (22)

Frage von homermg zum Thema Router & Routing ...

Windows Server
DHCP Server switchen (20)

Frage von M.Marz zum Thema Windows Server ...

Exchange Server
gelöst Exchange 2010 Berechtigungen wiederherstellen (20)

Frage von semperf1delis zum Thema Exchange Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...