Top-Themen

Aktuelle Themen (A bis Z)

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

Frage Microsoft Microsoft Office

GELÖST

Excel: Zellen aus Zeile in 2. Tabllenblatt kopieren

Mitglied: Arafat

Arafat (Level 1) - Jetzt verbinden

27.01.2014 um 17:28 Uhr, 1738 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 ..
Ähnliche Inhalte
Microsoft Office
Excel Zelle dynamisch einer Zeile zuordnen
gelöst Frage von sammy65Microsoft Office3 Kommentare

Hallo miteinander, ich habe eine Excel Tabelle, die mir einer Acces Abfrage gefüttert wird. Funktioniert Tadellos. Jetzt vollen meine ...

Microsoft Office
Excel Tabellenblatt finden und Zeile kopieren
gelöst Frage von Florian86Microsoft Office3 Kommentare

Hallo, ich möchte anhand von Buttons einen Zugang bzw. einen Abgang auf bestimmte Tabellenblätter kopieren. Die Tabellenblätter entsprechen der ...

Microsoft Office
Excel: Einzelne Zeilen einer mehrzeiligen Zelle auslesen
gelöst Frage von Booster07Microsoft Office3 Kommentare

Hallo zusammen, ich habe folgendes Problem und hoffe auf Eure Hilfe. Vereinfachtes Beispiel: Zelle A1 ist zum mehrzeilig (Zeilenumbrüche ...

Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel
Frage von SebastianLMicrosoft Office3 Kommentare

Hallo, ich möchte in einer Excel Tabelle per Button den Inhalt von einer Zelle in eine andere Zelle im ...

Neue Wissensbeiträge
Router & Routing

PfSense als Addon auf QNAP

Information von magicteddy vor 12 StundenRouter & Routing2 Kommentare

Moin, für Spielereien eine ganz nette Idee aber ich fürchte das soetwas auch als echte Firewall genutzt wird: In ...

Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 19 StundenDatenschutz

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 23 StundenMicrosoft1 Kommentar

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 3 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Preis für Wartungsvertrag ok?
gelöst Frage von a-za-zNetzwerkmanagement22 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk13 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...

Windows Server
Terminal Server 2016 erkennt Berechtigungen nicht
gelöst Frage von Thomas2Windows Server10 Kommentare

Hallo Administratoren, folgendes Problem stellt sich dar: Es gibt zwei Windows Server 2016, die als Terminal Server fungieren. Jetzt ...

Sonstige Systeme
7-zip: Programm frägt nach Passwort erst bei einzelnen Dateien
Frage von freeskierchrisSonstige Systeme7 Kommentare

Guten Morgen, ich habe ein Problem beim Arbeiten mit 7-zip: Wenn ich die einzelnen Dateien zu einem Archiv verpacke ...