|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Schließen einer zuvor geöffneten Seite |
14.07.2009 13:38:17 |
Sebastian |
|
|
|
14.07.2009 15:53:53 |
Murdoc |
|
|
|
15.07.2009 08:49:55 |
Florian |
|
|
|
15.07.2009 15:12:29 |
Murdoc |
|
|
Von:
Sebastian |
Datum:
14.07.2009 13:38:17 |
Views:
2821 |
Rating:
|
Antwort:
|
Thema:
Schließen einer zuvor geöffneten Seite |
Hallo liebe Leute ;) ,
Ich werk schon 2 Stunden daran aber ich komme einfach nicht dahinter. Ich kopiere von einem anderen Excel Sheet eine Tabelle ins aktuelle Sheet. Danach möchte ich aber die Datei, von der Kopiert wurde wieder schließen.
Hier mein vorläufiger Code:
Private Sub btn_tfz_Click()
Dim i As Boolean
Dim Ziel As Workbook
Set Ziel = ThisWorkbook 'für Excel Zwischenspeicherung
i = Application.Dialogs(xlDialogOpen).Show 'öffne Quelldatei
Worksheets(1).Range("1:40000").Copy 'kopiere alles zur Zieldatei
Ziel.Worksheets(2).Activate 'wechselt zur Zieldatei zurück
Ziel.Worksheets(2).Range("1:65535").PasteSpecial _
Paste:=xlPasteValues
Application.CutCopyMode = False 'setzt Zwischenablage in Datei ein
Worksheets(2).Cells(1, 1).Select 'zeigt Zieldatei wieder an
'Ziel.Source.Worksheets(1).Activate
'Schließen
'If i = True Then
'Set Source = ActiveWorkbook
'MsgBox Source.Name & " wird wieder geschlossen."
'Else
' MsgBox "Nichts ausgewählt"
'Exit Sub
'End If
'Source.Close SaveChanges:=False 'schließen
End Sub
Ich hoffe einer von euch kann mir helfen. ;)
lg |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Schließen einer zuvor geöffneten Seite |
14.07.2009 13:38:17 |
Sebastian |
|
|
|
14.07.2009 15:53:53 |
Murdoc |
|
|
|
15.07.2009 08:49:55 |
Florian |
|
|
|
15.07.2009 15:12:29 |
Murdoc |
|
|