Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA - Vergleich Formel???

VBA - Vergleich Formel?
23.09.2004 14:17:29
Rehhirsch
Hallo, also es wäre echt nett wenn mir einer von euch mal ne Formel für VBA geben könnte mit der ich eine Zelle C mit einer Zelle B vergleiche. Und wenn in beiden das selbe drin steht dann soll er in Zelle A ein * machen.
Also so: "Ist Zelle C gleich Zelle B dann in schreib in A ein *"
Er soll das von B1:C593 machen!
Vielen Dank im vorraus!!!
MfG Rehhirsch

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Vergleich Formel?
Udo

Sub Stern()
dim z as long
for z = 1 to 593
if cells(z,2)=cells(z,3) then cells(z,1) = "*"
next
End Sub

Udo
AW: VBA - Vergleich Formel?
23.09.2004 14:31:36
Rehhirsch
Vielen Dank, das klpappt ja schon mal teilweise! Das Problem ist, das in den meisten Zellen von B nach dem Inhalt noch Leerzeichen sind. Ich kenn ja den Befehl Trim, um die Leerzeichen zu kürzen, aber wie kann ich den anwenden, so dass er in allen Zellen von Spalte B die Leerzeichen nach dem Inhalt weg macht?
MfG Rehhirsch
AW: VBA - Vergleich Formel?
Udo
Option Explicit
Sub Stern()
Dim z As Long
For z = 1 To 593
Cells(z, 2) = Trim$(Cells(z, 2))
If Cells(z, 2) = Cells(z, 3) Then Cells(z, 1) = "*"
Next

Udo
Anzeige
AW: VBA - Vergleich Formel?
23.09.2004 15:29:43
Rehhirsch
Alles klar danke schön!!!
If C=B Then A= "*" ;-))))
R.Win
Glaskugel leider kaputt.
AW: VBA - Vergleich Formel?
Uduuh
Hallo,
warum VBA?
In A1: =Wenn(B1=C1;"*";"") und runterkopieren.
Gruß aus'm Pott
Udo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige