Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen vergleichen



Excel-Version: 9.0 (Office 2000)

Betrifft: Zeilen vergleichen
von: Zeilen vergleichen
Geschrieben am: 05.06.2002 - 08:52:32

Liebes Forum!

Ich würde gerne in der ersten Spalte die ersten 3 Buchstaben vergleichen lassen. Wenn die obere Zelle mit der aktuellen Zelle übereinstimmt soll die aktuelle Zelle markiert werden.

Das ganze spielt sich in der Spalte A ab.

Liebe Grüße
Thomas


  

Re: Zeilen vergleichen
von: @lex
Geschrieben am: 05.06.2002 - 08:59:14

Hallo !
Ohne zu testen :

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column <> 1 Then Exit Sub
If Left(ActiveCell.Value, 3) = Left(Cells(1, 1).Value, 3) Then
Target.Cells.Interior.ColorIndex = 3
End If
End Sub

  

Re: Zeilen vergleichen
von: Markus
Geschrieben am: 05.06.2002 - 09:12:53

Versuch es mal so:
Sub Vergleich()
Dim sLeft As String
Dim i As Integer
For i = 1 To 65536
sLeft = Left(Cells(i, 1).Text, 3)
If sLeft = Range("B1").Text Then 'Vergleich mit der Zelle B1
Cells(i, 1).Interior.ColorIndex = 3 'Wird bei übereinstimmung rot eingefärbt
End If
Next i
End Sub

Ich würde die Schleife natürlich nicht bis A65536 laufen lassen, sondern die letzte Zelle ermitteln die Daten enthält.
Viele Grüsse Markus

 

Beiträge aus den Excel-Beispielen zum Thema "Zeilen vergleichen "