Thema Datum  Von Nutzer Rating
Antwort
11.03.2016 13:49:16 Lars
NotSolved
11.03.2016 18:03:48 Gast64155
NotSolved
14.03.2016 12:26:35 Lars
NotSolved
Blau z.B. so
 14.03.2016 15:16:42 Gast64155
NotSolved
15.03.2016 10:18:12 Lars
NotSolved
15.03.2016 11:59:31 Gast45970
NotSolved

Ansicht des Beitrags:
Von:
Gast64155		 Datum:
14.03.2016 15:16:42		 Views:
673		 Rating:
     
Antwort:
  Ja
Thema:
z.B. so		 
Option Explicit
Sub ForOne()
Dim oWbMaster As Excel.Workbook, oWbSlave As Excel.Workbook, oWbk As Excel.Workbook
Dim oWsMaster As Excel.Worksheet, oWsSlave As Excel.Worksheet
Dim rngMaster As Range, rngSlave As Range, c As Range
On Error GoTo Abbruch
Set oWbMaster = Workbooks.Open(Filename:=Dateipfad("Masterdatei wählen"))
Set oWsMaster = oWbMaster.ActiveSheet
Set oWbSlave = Workbooks.Open(Filename:=Dateipfad("Slavedatei wählen"))
Set oWsSlave = oWbSlave.ActiveSheet
Set rngMaster = oWsMaster.UsedRange
rngMaster.Interior.Color = xlNone
For Each c In rngMaster
   If oWsSlave.Range(c.Address).Value <> c.Value Then
      c.Value = oWsSlave.Range(c.Address).Value
      c.Interior.Color = RGB(230, 230, 230)
   End If
Next c
Set rngSlave = oWsSlave.UsedRange
For Each c In rngSlave.Columns
   If c.Column > rngMaster.Columns.Count Then
      c.Copy oWsMaster.Cells(1, c.Column)
   End If
Next c
For Each c In rngSlave.Rows
   If c.Row > rngMaster.Rows.Count Then
      c.Copy oWsMaster.Cells(c.Row, 1)
   End If
Next c
Abbruch:
For Each oWbk In Application.Workbooks
         If oWbk.Name <> ThisWorkbook.Name Then oWbk.Close True
Next oWbk
End Sub
Private Function Dateipfad(ByVal strTitel As String) As String
Dim objFileDialog As Office.FileDialog

Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogFilePicker)
With objFileDialog
   .AllowMultiSelect = False
   .ButtonName = "Übernehmen"
   .Filters.Clear
   .Filters.Add "Excel", "*.xls; *.xlsx; *.xlsm"
   .InitialView = msoFileDialogViewList
   .Title = strTitel
   If .Show = -1 Then
      Dateipfad = .SelectedItems(1)
   End If
End With
End Function

 

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
11.03.2016 13:49:16 Lars
NotSolved
11.03.2016 18:03:48 Gast64155
NotSolved
14.03.2016 12:26:35 Lars
NotSolved
Blau z.B. so
 14.03.2016 15:16:42 Gast64155
NotSolved
15.03.2016 10:18:12 Lars
NotSolved
15.03.2016 11:59:31 Gast45970
NotSolved