Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.03.2014 11:31:50 |
TimmTimm |
|
|
2 Tabellen miteinander vergleichen - Unterschiedliche Zellen markieren! |
21.03.2014 14:23:21 |
Gast31345 |
|
|
|
24.03.2014 10:26:59 |
Gast73489 |
|
|
|
21.03.2014 23:40:08 |
Gast5279 |
|
|
|
24.03.2014 13:44:43 |
TimmTimm |
|
|
Von:
Gast31345 |
Datum:
21.03.2014 14:23:21 |
Views:
929 |
Rating:
|
Antwort:
|
Thema:
2 Tabellen miteinander vergleichen - Unterschiedliche Zellen markieren! |
Option Explicit
Private AltSh As Worksheet 'für alle Prozeduren im Modul
Private ActSh As Worksheet 'ditto
Private Sub CommandButton3_Click()
Dim ImportDatei As Variant
Dim wbImport As Workbook
Set AltSh = ActiveWorkbook.Sheets("Alt") 'Ziel bestimmen
ImportDatei = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel-Dateien (*.xls; *.xlsx; *.xlsm),*.xls; *.xlsx; *.xlsm", _
Title:="Eine Datei auswählen")
If ImportDatei = False Then Exit Sub
Application.ScreenUpdating = False 'Anzeige aus
Set wbImport = Workbooks.Open(ImportDatei)
Cells.Select
Selection.Copy Destination:=AltSh.Range("A1") 'kopiere direkt ins Ziel
wbImport.Close 'brauch ich ja net mehr
'
AltSh.Select 'wer´s mag
Application.ScreenUpdating = True 'Anzeige ein
End Sub
Private Sub CommandButton2_Click()
Dim AltRng As Range 'Quellbereich
Dim c As Range 'Durchlauf
Set AltSh = ActiveWorkbook.Sheets("Alt") 'Quelle bestimmen
Set ActSh = ActiveWorkbook.Sheets("Aktuell") 'Ziel bestimmen
Set AltRng = AltSh.Range("A1").CurrentRegion 'benutzter Quellbereich
Rem ich möchte aber nur, dass die jeweiligen Zellen markiert werden
For Each c In AltRng 'durch den Bereich
With ActSh.Range(c.Address) 'gleicher Bereich in Zieltabelle
'
If .Value <> c.Value Then .Interior.ColorIndex = 6 'Prüfung
'
End With
Next c
ActSh.Select
Range("A1").Select
'Unload Me '<- wieder einsetzen
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 |
|
|
2 Tabellen miteinander vergleichen - Unterschiedliche Zellen markieren! |
21.03.2014 14:23:21 |
Gast31345 |
|
|
|
24.03.2014 10:26:59 |
Gast73489 |
|
|
|
21.03.2014 23:40:08 |
Gast5279 |
|
|
|
24.03.2014 13:44:43 |
TimmTimm |
|
|