Thema Datum  Von Nutzer Rating
Antwort
21.03.2014 11:31:50 TimmTimm
NotSolved
21.03.2014 14:23:21 Gast31345
Solved
24.03.2014 10:26:59 Gast73489
NotSolved
Blau 2 Tabellen miteinander vergleichen - Unterschiedliche Zellen markieren!
 21.03.2014 23:40:08 Gast5279
Solved
24.03.2014 13:44:43 TimmTimm
NotSolved

Ansicht des Beitrags:
Von:
Gast5279		 Datum:
21.03.2014 23:40:08		 Views:
871		 Rating:
     
Antwort:
 Nein
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

 

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
21.03.2014 14:23:21 Gast31345
Solved
24.03.2014 10:26:59 Gast73489
NotSolved
Blau 2 Tabellen miteinander vergleichen - Unterschiedliche Zellen markieren!
 21.03.2014 23:40:08 Gast5279
Solved
24.03.2014 13:44:43 TimmTimm
NotSolved