|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.11.2008 19:22:48 |
Sebastian23 |
|
|
 Aw:Externe Tabellenblätter importieren/exportieren |
02.11.2008 21:55:06 |
jh |
|
|
|
10.11.2008 19:26:00 |
Sebastian23 |
|
|
|
12.11.2008 20:33:15 |
jh |
|
|
|
12.11.2008 21:35:30 |
Sebastian23 |
|
|
Von:
jh |
Datum:
02.11.2008 21:55:06 |
Views:
1661 |
Rating:
|
Antwort:
|
Thema:
Aw:Externe Tabellenblätter importieren/exportieren |
Hallo
Private Sub TabellenImportieren()
Dim wkbSource As Workbook
Dim wkbDestination As Workbook
Dim wkbA As Workbook
Dim wksA As Worksheet
Dim strPathAndFilename As String
Dim vntSplit As Variant
Dim strFilename As String
Dim blnWkbOpen As Boolean
strPathAndFilename = Application.GetOpenFilename( _
FileFilter:="MS-Excel-Arbeitsmappe (*.xls), *.xls", _
Title:="Importieren")
If Not strPathAndFilename = "Falsch" Then
vntSplit = Split(strPathAndFilename, Application.PathSeparator)
strFilename = vntSplit(UBound(vntSplit))
' prüfen, ob Zieldatei schon geöffnet ist
For Each wkbA In Workbooks
If wkbA.Name = strFilename Then
blnWkbOpen = True
Exit For
End If
Next wkbA
Application.ScreenUpdating = False
If blnWkbOpen = True Then
Set wkbSource = wkbA
Else
Set wkbSource = Workbooks.Open(FileName:=strPathAndFilename)
End If
Set wkbDestination = ThisWorkbook
For Each wksA In wkbSource.Worksheets
wksA.Copy After:=wkbDestination.Worksheets( _
wkbDestination.Worksheets.Count)
Next wksA
If blnWkbOpen = False Then
wkbSource.Close SaveChanges:=False
End If
Application.ScreenUpdating = True
End If
End Sub
Den umgekehrten Fall (Export aus der aktuellen Mappe in die
ausgewählte) solltest du nun selbst hinbekommen.
Gruß
|
- 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
|
|
02.11.2008 19:22:48 |
Sebastian23 |
|
|
Aw:Externe Tabellenblätter importieren/exportieren |
02.11.2008 21:55:06 |
jh |
|
|
|
10.11.2008 19:26:00 |
Sebastian23 |
|
|
|
12.11.2008 20:33:15 |
jh |
|
|
|
12.11.2008 21:35:30 |
Sebastian23 |
|
|