Benutzerdef. Ansicht zwischen Mappen kopieren

27/04/2010 - 18:47 von Heinz Schneider | Report spam
Hallo,
ich habe eine Benutzerdefinierte Ansicht erstellt. Diese würde ich gerne per
Makro in eine neuerstellte Mappe übernehmen um sie dort in einzelne
Tabellenblàtter einzufügen.
Wie gehe ich dabei vor und welche Befehle benötige ich?

Ich habe geringe Kenntnisse in EXCEL-VBA.

Gruß
hs
 

Lesen sie die antworten

#1 Andreas Killer
28/04/2010 - 18:40 | Warnen spam
Heinz Schneider schrieb:

ich habe eine Benutzerdefinierte Ansicht erstellt. Diese würde ich gerne
per Makro in eine neuerstellte Mappe übernehmen um sie dort in einzelne
Tabellenblàtter einzufügen.


Warum mit einem Makro?

Wie gehe ich dabei vor und welche Befehle benötige ich?
Ich habe geringe Kenntnisse in EXCEL-VBA.


Tja, selbst mit umfassenden Kenntnissen hast Du hier ein kleines
Problem, denn die Einstellungen der Ansichten sind nicht übertragbar.

Du kannst aber die Liste der Ansichten durchlaufen, jede einzeln
anzeigen und dann die Formate des gesamten Blattes auf ein anderes
übertragen, dabei werden dann auch ausgeblendete Spalten/Zeilen
übernommen.

Von Hand geht das so:

1. Ansicht anzeigen
2. Alles markieren (Strg-A)
3. Kopieren (Strg-C)
4. In die andere Tabelle/Mappe wechseln
5. Menü\Bearbeiten\Inhalte einfügen, Formate anklicken, Ok
6. Ansicht speichern

Die Frage wàre nun woher soll das Makro wissen aus welcher Mappe
welche Ansicht in welche andere Mappe in welche Tabellen sollen?

Außerdem hat das aber einen Haken wenn Du die Formate das 2te Mal
übertràgst, dann musst Du vorher die eben gesetzte Ansicht wieder
aufheben, sonst "addierst" Du die Ansichten übereinander.

Desweiteren werden dabei natürlich die Druckeinstellungen nicht
übertragen..., die gerade aktiven Zellen kann man sich zur Not gerade
noch merken..., und was fehlt noch?

Andreas.

Sub Test()
Dim OurBook As Workbook, NewBook As Workbook
Dim Found As Boolean
Dim CV As CustomView, DefCV As CustomView
Dim S As String

'Unsere Mappe merken
Set OurBook = ThisWorkbook
'Durchlaufe alle Mappen
For Each NewBook In Workbooks
'Ist eine andere sichtbare Mappe?
If NewBook.Name <> OurBook.Name And NewBook.Windows(1) _
.Visible Then
'Ja in diese müssen die Ansichten
Found = True
Exit For
End If
Next

'Andere Mappe gefunden?
If Not Found Then
MsgBox "Bitte zuerst eine 2te Mappe öffnen in die die " & _
"Ansichten sollen."
Exit Sub
End If

'Zuerst in der anderen Mappe diese Standardansicht speichern
NewBook.Activate
Set DefCV = NewBook.CustomViews.Add("Standardansicht", True, _
True)
'Zurück in unsere Mappe
OurBook.Activate

'Durchlaufe alle Ansichten
For Each CV In OurBook.CustomViews
'Ansicht anzeigen
CV.Show
'Selektierte Zellen merken
S = Selection.Address(0, 0)
'Zellen kopieren
Cells.Copy
'Die andere Mappe aktivieren
NewBook.Activate
'Standardansicht anzeigen
DefCV.Show
'Formate einfügen
Cells.PasteSpecial Paste:=xlPasteFormats
'Zellen selektieren
Range(S).Select
'Ansicht mit gleichem Namen speichern
NewBook.CustomViews.Add CV.Name, CV.PrintSettings, CV _
.RowColSettings
'Zurück in unsere Mappe
OurBook.Activate
Next

'Kopiermodus aus
Application.CutCopyMode = False
End Sub

Ähnliche fragen