Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen vergleichen

Forumthread: Zeilen vergleichen

Zeilen vergleichen
05.06.2002 08:52:32
Zeilen vergleichen
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeilen vergleichen
05.06.2002 08:59:14
@lex
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
05.06.2002 09:12:53
Markus
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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige