Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vergleich 2er Spalten

Vergleich 2er Spalten
26.06.2003 17:55:55
Andreas
Hallo,

konnte folgendes Problem leider immmer noch nicht lösen. Kann mir jemand ein simples (funktionierendes) VBS-Programm schicken zu diesem Problem:

ich möchte 2 Spalten, die Text enthalten vergleichen: wenn eine beliebige Zelle der erste Spalte mit den gleichen 4 Buchstaben anfängt wie irgendeine Zelle in der 2. Spalte, sollen beide Zellen farbig markiert werden.


Vielen Dank im voraus!
Andreas

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

Betreff
Datum
Anwender
Anzeige
Re: Vergleich 2er Spalten
26.06.2003 20:07:16
Herbert

Hallo Andreas,

versuch' doch mal folgendes:

Sub SpaltenVergleichen()
'A4:A8 und B4:B9 sind nur Testbereiche
For Each ZelleSp1 In Range("A4:A8")
txtSp1 = Left(ZelleSp1, 4)
For Each ZelleSp2 In Range("B4:B9")
txtSp2 = Left(ZelleSp2, 4)
' MsgBox "Sp1: " & txtSp1 & " Sp2: " & txtSp2
If txtSp1 = txtSp2 Then
ZelleSp1.Interior.ColorIndex = 8
ZelleSp2.Interior.ColorIndex = 8
End If
Next ZelleSp2
Next ZelleSp1
End Sub

Grüsse Herbert

Re: Vergleich 2er Spalten
26.06.2003 20:08:56
Herbert

Hallo Andreas,
versuch doch mal folgendes:

Sub SpaltenVergleichen()
'A4:A8 und B4:B9 sind nur Testbereiche
For Each ZelleSp1 In Range("A4:A8")
txtSp1 = Left(ZelleSp1, 4)
For Each ZelleSp2 In Range("B4:B9")
txtSp2 = Left(ZelleSp2, 4)
' MsgBox "Sp1: " & txtSp1 & " Sp2: " & txtSp2
If txtSp1 = txtSp2 Then
ZelleSp1.Interior.ColorIndex = 8
ZelleSp2.Interior.ColorIndex = 8
End If
Next ZelleSp2
Next ZelleSp1
End Sub
Grüsse Herbert

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige