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

gelöst Excel: Zellen aus Zeile in 2. Tabllenblatt kopieren

Mitglied: Arafat

Arafat (Level 1) - Jetzt verbinden

27.01.2014 um 17:28 Uhr, 1917 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 Formel: Zähle Texteinträge mit 2 Bedingungen

gelöst Frage von chef1568Microsoft Office7 Kommentare

Hallo zusammen ich habe eine Tabelle wie folgt aufgebaut: SpalteA 1. Text1 2. Text2 3. Text3 4. Text4 5. ...

Microsoft Office

Excel: Summenberechnung unter Berücksichtigung von 2 Zahlungszielen!

gelöst Frage von Carlos1964Microsoft Office2 Kommentare

Sehr geehrte Damen und Herren, ich bitte um eure geschätzte Unterstützung bei einer Formelerstellung, da ich einfach nicht dahinter ...

Microsoft Office

Excel 2016 öffnet immer mitdestens 2 Dateien

Frage von cmfm01Microsoft Office

Hallo zusammen, ich habe im Vorlagenverzeichnis von Excel 2016 eine Datei angelegt. Wenn ich nun einen Doppelklick auf eine ...

VB for Applications

Excel VBA 2 Listen mit doppelten Werten vergleichen

gelöst Frage von AnneSchVB for Applications3 Kommentare

Hallo, Ich hoffe, dass mir hier jemand bei meinem Excel/VBA Problem helfen kann: Und zwar habe ich eine Arbeitsmappe ...

Neue Wissensbeiträge
Humor (lol)

"Linux und 5 Gründe Warum man kein Windows verwenden sollte sondern Ubuntu Linux"

Tipp von Snowbird vor 1 TagHumor (lol)8 Kommentare

Gerade gefunden. Ja, ist etwas älter, aber irgendwie lustig?

Humor (lol)

"Warum Linux in einer vernetzten Welt einfach keinen Komfort bietet!"

Tipp von Snowbird vor 2 TagenHumor (lol)13 Kommentare

Ein interessanter Einblick warum Linux nichts für Geräteübergreifende Arbeit ist :)

Humor (lol)
Zuviel Speicher ist ungesund. :-)
Tipp von Lochkartenstanzer vor 2 TagenHumor (lol)17 Kommentare

Moin Kollegen, Heute hatte ich ein ungewöhnliches Aha-Erlebnis: Über das Wochenende habe ich einen einen 6 Jahre alten Bare-Metal ...

Windows Update

KB4517297 verfügbar, behebt Fehler in VB6 VBA VBScript

Information von sabines vor 2 TagenWindows Update

Das Update behebt mögliche Fehler in VB6, VBA und VBScript, die durch das Update KB4512486 vom August entstanden sind. ...

Heiß diskutierte Inhalte
Router & Routing
Deinstalliertes Geräte wird in FritzBox noch immer als verbundenes Gerät angezeigt
gelöst Frage von imebroRouter & Routing18 Kommentare

Hallo, in meiner FritzBox 7490 wird im Bereich "Funknetz" ein Gereät bei den verbundenen Geräten angezeigt, wobei ich nicht ...

Windows 10
Windows 10 druckt nicht mehrere Kopien?
Frage von StefanKittelWindows 1015 Kommentare

Hallo, ich hatte gerade einen Anruf eines Kunden. Sein neuer PC (Win 10 1903) druckt nicht mehr mehrere Seiten ...

Verschlüsselung & Zertifikate
Mit BitLocker verschlüsselte Festplatte löschen?
gelöst Frage von SnowbirdVerschlüsselung & Zertifikate14 Kommentare

Hallo, ich habe eine mit Bitlocker verschlüsselte externe Festplatte. Diese möchte ich gerne löschen sodass nichts mehr auffindbar ist. ...

Sonstige Systeme
Ist es möglich ein ISDN-Telefon an einen analogen Anschluss anzuschließen?
Frage von cramtroniSonstige Systeme14 Kommentare

Also anders herum geht es ja, da gibt es ja diese Adapter von RJ11 auf TAE-F, aber gibt es ...