Bitte um Hilfe mit Vergleichsproblem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi David,
einen "Befehl für das Überschreiben" gibt es eigentlich nicht in VBA.
Man kann einer Zelle (oder mehreren) einfach einen Wert zuweisen.
Falls in der Zelle vorher ein Wert stand, wird der bei der Zuweisung natürlich überschrieben.
Die drei folgenden Anweisungen tun alle dasselbe:
Q2 erhält den Wert "OK" bzw. den Wert von Q1. If Range("Q1") = "OK" Then Range("Q2") = "OK" If Range("Q1") = "OK" Then Range("Q2") = Range("Q1") If Range("Q1") = "OK" Then Range("Q2") = "OK" End If Die dritte Variante mit "End If" ist zu empfehlen, wenn man außer Range("Q2") = "OK"
noch weitere Anweisungen (...) ausführen lassen will, wenn Range("Q1") = "OK" ist.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Hi David,
allmählich wird dieser Thread etwas unübersichtlich. :-(
Wer erinnert sich noch daran, dass es anfangs um Excelformeln für einen Vergleich ging?
Und nun sind wir anscheinend in einem VBA-Grundkurs...
Damit der Thread nicht auch noch optisch nach rechts aus dem Ruder läuft, fange ich mal wieder links an.
Zu
Wenn Q1 = "OK" Dann X1 = "OK"
Wenn Q2 = "OK" Dann X2 = "OK"
usw.
Du hast nicht angegeben, in wie vielen Zeilen die Belegung stattfinden soll.
Ich geh mal von den ersten 47 Zeilen aus:


Option Explicit
Sub aTest()
Dim zz As Long
For zz = 1 To 47        ' alle Zeilen von 1 bis 47
'  Q ist die 17. Spalte      X ist die 24. Spalte
If Cells(zz, 17) = "OK" Then Cells(zz, 24) = "OK"
Next zz
End Sub

Ich habe hier statt Range("Q1") die Schreibweise Cells(1, 17) benutzt - dabei lässt sich die 1 leichter
durch eine Variable zz ersetzen.
Deine Fragen zeigen mir, dass du dich mit VBA, mit Programmierung allgemein kaum auskennst.
Ich empfehle dir, mit Hilfe eines Buches und anhand konkreter Aufgaben in die Materie einzusteigen.
Nein - ein bestimmtes Buch kann ich dir nicht empfehlen. Du musst selbst (in der Buchhandlung) herausfinden,
welches Buch zu dir, deinen Vorkenntnissen und Zielen passt.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G
1	daten	daten	daten	Herstellernummer	preis	daten
2	xy	xy	yx	25zy1	35	xy
3				25zy1	25	xy	OK

Zelle	Formel
G2	=WENN(SUMMENPRODUKT((Tabelle2!$C$2:$C$100=D2)(Tabelle2!$D$2:$D$100=E2)1);"OK";"")
G3	=WENN(SUMMENPRODUKT((Tabelle2!$C$2:$C$100=D3)(Tabelle2!$D$2:$D$100=E3)1);"OK";"")

	C
1	OK?
2
3	OK

	C
1	OK?
2
3	OK

Bitte um Hilfe mit Vergleichsproblem

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread