Thema Datum  Von Nutzer Rating
Antwort
Rot Markierung von Änderungen
 07.09.2011 12:32:32 Tobias
NotSolved
07.09.2011 12:38:21 Tobias
NotSolved

Ansicht des Beitrags:
Von:
Tobias		 Datum:
07.09.2011 12:32:32		 Views:
2764		 Rating:
     
Antwort:
  Ja
Thema:
Markierung von Änderungen

Guten Tag,

Ich habe für eine Mittarbeiterin ein Formular im Excel erstellt dass es ihr erlauben soll 2 dokumente miteinander zu vergleichen.

Dokument 2 beinhaltet ca. 1500 Zelleilen mit verschiedenen Dokumenten Kennungen und ähnlichem, diese Zeilen sind jedoch über mehrere Worksheets verteilt. Das andere Dokument ist eine Liste mit den für sie relevanten Daten. Wichtig für den Vergleich sind 3 Spalten (Dokumenten Kennung, Version und Status).

Beispiel:

unwichtig

Dokumentennummer

unwichtig

Version

Status

Also habe ich mich an die Arbeit gemacht und einen kleinen Vergleich geschrieben.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Do
        If (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = "" Or (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = "tbd" Then
            x = x + 1
        Else
            If (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = (Workbooks(wbdokument01).Worksheets("Abteilung 1").Range("B" & y)) _
            Or (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = (Workbooks(wbdokument01).Worksheets("Abteilung 2").Range("B" & y)) _
            Or (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = (Workbooks(wbdokument01).Worksheets("Abteilung 3").Range("B" & y)) _
            Or (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x)) = (Workbooks(wbdokument01).Worksheets("Abteilung 4").Range("B" & y)) Then
             
                If (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 1").Range("C" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 2").Range("C" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 3").Range("C" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 4").Range("C" & y)) Then
                 
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("I" & x).Select
                    Selection.Interior.ColorIndex = 3
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x).Select
                    Selection.Interior.ColorIndex = 46
                End If
                 
                If (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 1").Range("E" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 2").Range("E" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 3").Range("E" & y)) _
                And (Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x)) <> (Workbooks(wbdokument01).Worksheets("Abteilung 4").Range("E" & y)) Then
                 
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("J" & x).Select
                    Selection.Interior.ColorIndex = 3
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x).Select
                    Selection.Interior.ColorIndex = 46
                End If
                 
                x = x + 1
                y = 2
                 
            Else
                y = y + 1
                If y > maxy Then
                    Workbooks(wbdokument02).Worksheets("Dokumentederabteilung").Range("F" & x).Select
                    Selection.Interior.ColorIndex = 3
                    y = 2
                    x = x + 1
                End If
            End If
        End If
        Loop Until x = maxx

 

Funktioniert soweit alles ganz ausgezeichnet. Jedoch möchte die Kollegin nicht dass die Änderungen im Dokument02 markiert werden sondern im dokument01 leider hat aber dieses dokument01 4 verschiedene worksheets und ich weiss einfach nicht wie ich das am einfachsten hinbekommme.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Markierung von Änderungen
 07.09.2011 12:32:32 Tobias
NotSolved
07.09.2011 12:38:21 Tobias
NotSolved