Thema Datum  Von Nutzer Rating
Antwort
14.05.2012 12:10:54 Igelchen
NotSolved
14.05.2012 18:40:55 Brumms
NotSolved
14.05.2012 23:41:39 Gast97260
NotSolved
15.05.2012 11:04:05 Igelchen
NotSolved
Rot Warnmeldung nach zweiter Änderung einer Zelle
 16.05.2012 19:19:08 Brumms
NotSolved
17.05.2012 16:55:32 Till
NotSolved

Ansicht des Beitrags:
Von:
Brumms		 Datum:
16.05.2012 19:19:08		 Views:
1762		 Rating:
     
Antwort:
  Ja
Thema:
Warnmeldung nach zweiter Änderung einer Zelle

Na einen Versuch mache ich noch :-)

(basiert nach wie vor auf der Idee eine versteckte Kopie anzulegen)

Sub Vergleich()
   Dim rng As Range
   Dim lRow As Long, lRowT As Long
   Dim iCol As Integer
   Dim bln As Boolean
   Set rng = Worksheets("Tabelle2").Range("A1").CurrentRegion
   For lRow = 1 To Range("A1").CurrentRegion.Rows.Count
      bln = True
      For lRowT = 1 To rng.Rows.Count
         For iCol = 1 To 4
            If Cells(lRow, iCol) <> rng(lRowT, iCol) Then
               bln = False
               Exit For
            End If
         Next iCol
         If bln = True Then
            Exit For
         ElseIf lRowT < rng.Rows.Count Then
            bln = True
         End If
      Next lRowT
      If bln = False Then
         MsgBox "Achtung Ihre Daten haben sich geändert ! -> in Zeile : " & lRow
      End If
   Next lRow
End Sub

 

 Als Grundlage dienen folgende sheets "Tabelle1" :

 

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20

 

 Tabelle2 :

 

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
500  
12  
13  
14  
15  
16  
17  
18  
19  
800  

 Führe obiges Makro in Tabelle1 aus (evtl. üer eine Schaltfläche, der Du obiges Makro zuweist)

... weiter weiß ich leider auch nicht ;-)

Brumms

 

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
14.05.2012 12:10:54 Igelchen
NotSolved
14.05.2012 18:40:55 Brumms
NotSolved
14.05.2012 23:41:39 Gast97260
NotSolved
15.05.2012 11:04:05 Igelchen
NotSolved
Rot Warnmeldung nach zweiter Änderung einer Zelle
 16.05.2012 19:19:08 Brumms
NotSolved
17.05.2012 16:55:32 Till
NotSolved