Supportnet / Forum / Tabellenkalkulation

Option Explicit Sub Vergleichen() Dim Search1 As Range Dim Search2 As Range Dim lastRowA As Long Dim lastRowB As Long lastRowA = Range("A65536").End(xlUp).Row lastRowB = Range("B65536").End(xlUp).Row For Each Search1 In Range("A2:A" & lastRowA) For Each Search2 In Range("B2:B" & lastRowB) If Search1.Text = Search2.Text Then Search1.Interior.ColorIndex = 3 Search2.Interior.ColorIndex = 4 Cells(Search1.Row, 3) = 1 Cells(Search2.Row, 3) = 1 End If Next Next End Sub ============================= Hi Leute, habe noch nie ein Makro bedient. Was mache ich jetzt mit dem Quellcode oben? Wie kriege ich den in Excel zum Laufen? Danke!!! Moguai

Hallo Moguai,

Drücke in Excel die Tastenkombination Alt + F11 oder
geh auf Extras -> Makro -> Visual Basic Editor
dann gehst du mit rechtsklick auf:
VBAProject(DEIN_BLATTNAME)
Einfügen -> Modul
dann deinen Code einfügen
jetzt gehst du auf dein Arbeitsblatt

Benutzt am besten die Symbolleiste Zeichnen und machst
ein Rechteck oder so, dann rechtsklick auf die Zeichnung und
Makro zuweisen auswählen, dann Vergleichen wählen

Gruß Simon

ps. man kann sich auch einen Menüpunkt anlegen, falls du
es oft brauchst

Hi,

du kannst den Code auch über Extras -> Makro -> Makros starten oder du weist ihm einen Shortcut zu, wenn du ihn häufiger benötigst. Dazu Extras -> Makro -> Makros das Makro markieren -> Optionen.

Bis später,
Karin

• makros im ppt für mac
• Makros via Makro löschen
• Deaktivierte Makros in Word
• Makros Aktivieren in MS Word