Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1264to1268
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt kopieren in freigegebener Datei

Tabellenblatt kopieren in freigegebener Datei
Crossboy
Guten Morgen,
ich brauche mal einen Ansatz von euch. Ich habe eine Tabelle in der ich sowohl Formatierungen habe, als auch VBA-Code der auf Bearbeitungen in der Tabelle reagiert. Diese Tabelle will ich per Makro kopieren und unter neuem Namen abspeichern. Das funktioniert super, bis ich die Datei freigegeben habe. Um das freigeben komme ich nicht drum rum, also muss ich für das kopieren eine Alternative finden.
Hat jemand eine Idee?
Danke & Gruß
Mark
AW: Tabellenblatt kopieren in freigegebener Datei
24.05.2012 10:09:14
Rolf
Hallo Mark,
handelt es sich bei "Tabelle" wirklich um ein Worksheet, oder um ein Workbook (mit mehrenen Tabellen)?
Meinst du mit "kopieren" die Funktion "ActiveWorkbook.SaveAs"?
Gruß, Rolf
AW: Tabellenblatt kopieren in freigegebener Datei
24.05.2012 11:18:18
Crossboy
Hallo Rolf,
sorry für die nicht klaren Formulierungen. Ich habe einen Worksheet der mir als Vorlage dient. Da sind Buttons und Formatierungen drin und im Hintergrund auch VBA-Code, der zum Beispiel auf Änderungen in Zellen reagiert. Mein Code für das Kopieren sieht so aus:
ThisWorkbook.Worksheets("Vorlage").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = "Neuer Name"
Es kommt dann leider eine Meldung, dass das bei freigegebenen Dateien nicht möglich ist.
Gibt es einen anderen Weg? Code und Formatierungen getrennt kopieren?
Gruß Mark
Anzeige
AW: Tabellenblatt kopieren in freigegebener Datei
24.05.2012 10:45:15
Rudi
Hallo,
du musst die Freigabe zwischenzeitlich aufheben.
Gruß
Rudi
AW: Tabellenblatt kopieren in freigegebener Datei
24.05.2012 11:35:11
Crossboy
Hallo Rudi,
kann ich das auch über einen Code machen?
Gruß Mark
AW: Tabellenblatt kopieren in freigegebener Datei
24.05.2012 12:16:40
Rudi
Hallo,
ja. Bemüh mal den Recorder.
Gruß
Rudi
AW: Tabellenblatt kopieren in freigegebener Datei
24.05.2012 12:50:49
fcs
Hallo Mark,
bei freigegebenen Arbeitsmappen gibt es jede Menge Funktionalitäten, die eingeschränkt (siehe unter Excel-Hilfe).
Was willst du denn mit dem kopierten Blatt machen?
Du kannst es problemlos per Makro in eine neue/andere Datei/Arbeitsmappe kopieren.
Zum Kopieren innerhalb der freigegebenen Mappe funktioniert im Prinzip folgendes Makro.
Falls via "Arbeitsmappe schützen" zusätzlich die Struktur geschützt ist, dann muss dieser vor dem Kopieren zusätzlich aufgehoben und anschliessend wieder gesetzt werden.
Gruß
Franz 
'Makro in einem allgemeinen Modul - Erstellt unter Excel 2010
Sub Copy_in_FreigegegebenerMappe()
On Error GoTo Fehler
Dim wb As Workbook, wks As Worksheet
If InputBox("Bitte Kennwort für Zugriff auf geschützte Arbeitsmappe eingeben", _
"Blatt kopieren in " & ActiveWorkbook.Name) = "Test" Then
'        Set wb = Workbooks("AM_freigabeCopySheet.xlsm") 'Name der freigegebenen Datei
Set wb = ThisWorkbook 'wenn Makro in Modul der freigegebenen Datei
Set wks = wb.Worksheets("MyTab") 'zukopierendes Blatt
If wb.MultiUserEditing = True Then
Application.DisplayAlerts = False
wb.ExclusiveAccess 'hebt freigegeben-Status auf
'            wb.Unprotect Password:=""
wks.Copy After:=wks  'Blatt kopieren innerhalb der freigegebenen Mappe
'ggf. weitere Aktionen
'            wb.Protect Password:="", structure:=True, Windows:=False
wb.SaveAs Filename:=wb.FullName, Accessmode:=xlShared 'Arbeitsmappe speichern und  _
freigeben
Application.DisplayAlerts = True
Else
MsgBox "Die Datei ist zur Zeit nicht freigegeben"
End If
Else
MsgBox "Eingegebenes Kennwort ist falsch"
End If
Fehler:
With Err
Select Case .Number
Case 0 ' alles OK
Case Else
Application.DisplayAlerts=True
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Anzeige

304 Forumthreads zu ähnlichen Themen

Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
Anzeige
Zeilen aus anderer datei kopieren
Dieter

Hi,
habe mal wieder ein schweres Problem:
ich möchte aus einer anderen Excel Date ein paar Zeilen kopieren. das Ganze soll folgendermassen funktionieren:
Quelldatei : "IMPORT.XLS
Tabellenblatt : "DATEN" oder "FPC"
Zieldatei : "EXPORT.XLS
Tabelnneblatt : "EINGABE"
so,...
01.12.2008 11:51:16
Thread-ID: 1029203
5 Beiträge
Erzeugung einer bat Datei mittels VBA
Josef

Hallo!
Wie kann ich bitte mittels VBA eine bat Datei erzeugen und diese in einem gewünschten Ordner abspeiichern?
Danke
Josef
04.12.2008 06:51:22
Thread-ID: 1030010
5 Beiträge
Anzeige
flexible txt-Datei öffnen mit VBA
Mike

Hey Cracks,
mittels nachfolgendem Code importiere ich .txt-Dateien ins Excel.
Da es nicht immer die gleiche txt-Datei ist, würde ich gerne die
Auswahl "flexibel" halten. Wie mach ich das?
Sub Txt1_KST_importieren() ' öffnet die exportierten Kostenstellen - Txt1_importieren Mak...
05.02.2009 15:36:31
Thread-ID: 1047405
3 Beiträge
Zugriff auf Tabellenblatt in anderer Datei
Ulrich

Hallo,
ich würde gerne in einer Datei eine Zusammenfassung darstellen, und gebe dazu einen Namen eines Tabellenblattes einer anderen Datei ein, aus der dann eine Zelle übernommen wird. Ziel ist es in der Zusammenfassung z.b. 2012 als Jahr (Name des Tabellenblattes) einzugeben und ich bekomm...
01.03.2009 18:03:43
Thread-ID: 1055274
2 Beiträge
Programm und Daten in andere Datei
Steffen

Hi Excelkenner
Habe da mal eine simple Frage:
Wenn ich ein Programm in VBA entwerfe aber die Daten auf eine separate Datei speicher will ist dies eine Variante. Wenn ich aber das Programm benutzen will, dass die Datendatei nicht immer gleich heisst ist wiederum etwas anders.
Wie mac...
10.03.2009 19:00:43
Thread-ID: 1058828
2 Beiträge
Daten in andere Datei üebrtragen-Netzlaufwerk
Andreas

Hallo zusammen,
ich habe folgendes Problem. Ich muss eine Datei zur Verfügung stellen, welche nur eine bestimmte Anzahl von Daten benötigt. Die Originaldatei hat also zuviel Infos (zuviel Spalten). Daß man Spalten innerhalb einer Arbeitsmappe übertragen kann ist mir bewußt. Kann ich jedoch...
20.05.2009 11:58:36
Thread-ID: 1076320
8 Beiträge
Daten aus einer anderen Datei
Werner

Hallo zusammen,
ich möchte Daten aus einer anderen Datei herholen. Das klappt ganz gut mit der Formel
='C:\Dokumente und Einstellungen\Werner.ZAPF-PC1.002\Eigene Dateien\[Mitarbeiterablage.xls]Mitarbeiterliste'!$A$8
Diese Formel Schreibe ich z.B. in die Zelle H2 der Aktuellen Datei...
16.06.2009 23:22:38
Thread-ID: 1082083
2 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
4
4
6
2
1
1
7
1
4
2
5
3
3
2
4
2
6
2
9
1
1
7
1