title image


Smiley VBA: 2 Mappen in Excel zusammenfügen und vergleichen??
Hallo,mit diesem Makro werden die Inhalte von 2 Arbeitsblättern innerhalb derselben Mappe verglichen, bei Unterschieden wird die Zellfarbe der jeweiligen Zelle im Ursprungsblatt rot gefärbt:Sub vergleich()For Each c In ActiveSheet.UsedRange vzelle = c.Address vwert = c.Value If Not vwert = Sheets(2).Range(vzelle).Value Then c.Interior.ColorIndex = 3Next cEnd SubAnalog dazu für verschiedene Arbeitsmappen, hier wirst Du dazu aufgefordert die zu vergleichende Mappe zu öffnen und das Arbeitsblatt anzugeben:Sub vergleich()istdatei = ActiveWorkbook.NameApplication.Dialogs(xlDialogOpen).Showneudatei = ActiveWorkbook.Nameblatt = Application.InputBox("Bitte Blattnamen der zu vergleichenden Tabelle angeben")Workbooks(istdatei).ActivateFor Each c In ActiveSheet.UsedRange zelle = c.Address If c.Value Workbooks(neudatei).Sheets(blatt).Range(zelle).Value Then c.Interior.ColorIndex = 3Next cEnd SubUnd weil heute Rosenmontag ist ein allgemeines "Hel(lbl)au".... ;-)
Gruß,
Sven

CnC Community News
Infos rund um alle RTS Games (und natürlich Renegade)
von Westwood.
Unsere Foren: CnC Foren




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: