Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.03.2014 11:31:50 |
TimmTimm |
|
|
|
21.03.2014 14:23:21 |
Gast31345 |
|
|
|
24.03.2014 10:26:59 |
Gast73489 |
|
|
2 Tabellen miteinander vergleichen - Unterschiedliche Zellen markieren! |
21.03.2014 23:40:08 |
Gast5279 |
|
|
|
24.03.2014 13:44:43 |
TimmTimm |
|
|
Von:
Gast5279 |
Datum:
21.03.2014 23:40:08 |
Views:
887 |
Rating:
|
Antwort:
|
Thema:
2 Tabellen miteinander vergleichen - Unterschiedliche Zellen markieren! |
P.S.: Wie kann ich dann noch erreichen, dass wenn ich eine Mappe öffne, diese aber aus mehreren Tabellenblätter besteht, ich alle Seiten importieren kann?
Option Explicit
Sub ImportMoreSheets()
Dim ExportDatei As Variant
Dim wbImport As Workbook
Dim wbExport As Workbook
Dim shImport As Worksheet
Dim shExport As Worksheet
'
ExportDatei = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel-Dateien (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm", _
Title:="Eine Datei auswählen")
'
If ExportDatei = False Then Exit Sub
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set wbImport = ActiveWorkbook
Set wbExport = Workbooks.Open(ExportDatei)
'
For Each shExport In wbExport.Sheets
For Each shImport In wbImport.Sheets
If shImport.Name = shExport.Name Then shImport.Delete
Next shImport
shExport.Copy After:=wbImport.Sheets(wbImport.Sheets.Count)
Next shExport
'
wbExport.Close
'
Application.ScreenUpdating = True
Application.DisplayAlerts = True
'
End Sub
|
- 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
|
|
21.03.2014 11:31:50 |
TimmTimm |
|
|
|
21.03.2014 14:23:21 |
Gast31345 |
|
|
|
24.03.2014 10:26:59 |
Gast73489 |
|
|
2 Tabellen miteinander vergleichen - Unterschiedliche Zellen markieren! |
21.03.2014 23:40:08 |
Gast5279 |
|
|
|
24.03.2014 13:44:43 |
TimmTimm |
|
|