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

Bestimmte Spalten automatisch von Excel zu Excel kopieren

Frage Microsoft Microsoft Office

Mitglied: schosch

schosch (Level 1) - Jetzt verbinden

24.08.2011 um 15:58 Uhr, 7056 Aufrufe, 3 Kommentare

Hallo miteinander,

ich habe hier eine vollständige Mitarbeiterdatei im Excel 2010-Format, die natürlich nicht jeder einsehen darf. Darum möchte ich für diese Datei nur den entsprechenden Personalern Zugriff gewähren und bei einer Änderung automatisch einige Spalten in eine für alle Mitarbeiter zugängliche Excel-Datei kopieren.
Per Verlinkung auf die vollständige Datei klappt es nicht, da ich den Zugriff über die NTFS-Rechte einschränke.
Beim automatischen Kopieren per vba reichen meine Skriptkenntnisse leider nicht aus, weiß hier evtl jemand Rat?

VIele Grüße

Schosch
Mitglied: bastla
24.08.2011 um 16:36 Uhr
Hallo schosch!

Um die Antwort im Detailgrad an die Frage anzupassen: Um aus der aktuellen Tabelle die Spalte D als Werte in das aktuelle Blatt der geöffneten "Mappe2" in die Spalte B zu kopieren:
01.
Sub Kopieren() 
02.
Columns("D:D").Copy 
03.
Workbooks("Mappe2.xlsx").ActiveSheet.Range("B1").PasteSpecial xlPasteValues 
04.
Application.CutCopyMode = False 
05.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: schosch
24.08.2011 um 16:49 Uhr
Danke für die Antwort.

Hast Du vielleicht noch einen Tipp wie ich das schreiben kann, damit automatisch beim Schließen der vollständigen Datei mehrere Arbeitsblätter in die "kastrierte" Datei kopiert werden?

Viel Grüße

Schosch
Bitte warten ..
Mitglied: bastla
24.08.2011 um 17:10 Uhr
Hallo schosch!

Im VBA-Editor findest Du im Projekt-Explorer (links oben) für jede geöffnete Mappe unter "Microsoft Excel-Objekte" den Eintrag "DieseArbeitsmappe" - nach einem Doppelklick darauf kannst Du im linken Dropdown anstelle von "Allgemein" den Eintrag "Workbook" auswählen und siehst dann im rechten Dropdown die zugehörigen Ereignisse. Automatisch wird ein "Private Sub Workbook_Open()" erstellt; das kannst Du, wenn nicht benötigt, samt dem zugehörigen "End Sub" löschen. Für Dein Vorhaben geeignet sollte "BeforeClose" sein.

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel: Wenn Wert in Spalte A dann kopiere Zeile (8)

Frage von michi1983 zum Thema Microsoft Office ...

Batch & Shell
gelöst Bestimmte Spalten aus TXT in CSV kopieren - ab Spalte AE gibt es Übertragungsfehler (9)

Frage von freshman2017 zum Thema Batch & Shell ...

Batch & Shell
gelöst Ordner anhand einer Excel-Liste kopieren (6)

Frage von xsto123 zum Thema Batch & Shell ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
Uninitialisierte Festplatte - Daten retten (11)

Frage von peterla zum Thema Festplatten, SSD, Raid ...

Microsoft Office
Outlook 2016 in Ordneransicht starten - GPO (10)

Frage von D-Line zum Thema Microsoft Office ...