Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

If.. and then

Forumthread: If.. and then

If.. and then
03.12.2003 11:28:48
Thorsten
Hallo,

Habe da ein ein kleines Problem...Ich möchte in meiner If-Then Abfrage mit mehreren Argmenten arbeiten, habe hierfür 2 And Verknüpfungen benutzt. Bekomme dabei allerdings den Laufzeitfehler 1004 als Meldung.

Meine Frage ist nun, wieviele Argumtent ich in die If- then anweisung einbauen darf.
Wäre als ein Abfrage wie:

If cells(1,1).Value="1" And Cells(1,2).value="2" And Cells(1,3).Value= "3" Then....

möglich?

Gruß T.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: If.. and then
03.12.2003 11:35:29
Lutz
Hallo Thorsten,

die Abfrage ist an sich erstmal fehlerfrei. Hast Du mal im Einzelschritt überprüft, wo genau im Code der Laufzeitfehler auftritt ?

Gruß Lutz

Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: If.. and then
03.12.2003 11:55:04
Thorsten
Hi,

also das Konkrte Probem scheint dann woanders zu liegen.

Mein Makro sieht so aus:


Sub Thorsten()
'markiert die Fehler rot
Dim intRow As Integer, intRowL As Integer
Dim EndeA As Integer
intRowL = Cells(Rows.Count, 6).End(xlUp).Row
EndeA = Cells(Rows.Count, 17).End(xlUp).Row
For intRow = intRowL To 2 Step -1
If Application.CountIf(Columns("F"), Cells(intRow, 6)) > 1 And _
Application.CountIf(Columns("J").Cells(EndeA, 17)) > 1 And _
Cells(intRow, 17).Value = "2" Then
Rows(intRow).Interior.ColorIndex = 3
End If
Next
End Sub


Das Makro soll somit folgendes tun
Es dursucht die Spalte F nach doppelten Werten und ebenfalls die Spalte J und letzendlich die Spalte q als letztes Kriterium.
Was gemacht werden soll ist folgendes:
In Spalte F stehen Namen und in Spalte J das Datum dazu, der Eintrag in Spalte F kann doppelt vorkommen und auch das Datum in J, allerdings nicht, wenn in der dazugehörigen Spalte Q der Wert 2 steht.
Gruß T.
Anzeige
AW: If.. and then
03.12.2003 12:39:23
Martin Beck
Hallo Thorsten,

statt

Application.CountIf(Columns("J").Cells(EndeA, 17))

Application.CountIf(Columns("J"), Cells(EndeA, 17))

(Komma statt Punkt).

Gruß
Martin Beck
Danke
03.12.2003 15:24:16
Thorste
Danke, das Komma war der Fehler
AW: If.. and then
03.12.2003 12:42:54
Gert Seler
Hallo Thorsten,
in der WENN(UND( Formel können im ersten Teil nur 2Werte abgefragt werden,
denn jetzt folgt der DANN-Teil der Formel. Nach dem DANN-Teil kann
eine weitere WENN-Abfrage erfolgen.
In der ersten IF Zeile schreibst Du ...(Columns("F") , Cells
In der zweiten ...(Columns("J") . Cells
Entweder Punkt oder Komma in beiden Anweisungen ?
Min VBA Kenntnisse meinerseits.

mfg
Gert
Anzeige
AW: If.. and then
03.12.2003 15:26:03
Roland Hochhäuser
Hallo Thorsten,

ich habe die Erfahrung gemacht, dass beim runterzählen hinter dem Next noch der Zähler verlangt wird. Versuch es einfach mal so:

Dim intRow As Integer, intRowL As Integer
Dim EndeA As Integer


intRowL = Cells(Rows.Count, 6).End(xlUp).Row
EndeA = Cells(Rows.Count, 17).End(xlUp).Row

For intRow = intRowL To 2 Step -1
If Application.CountIf(Columns("F"), Cells(intRow, 6)) > 1 And _
Application.CountIf(Columns("J").Cells(EndeA, 17)) > 1 And _
Cells(intRow, 17).Value = "2" Then
Rows(intRow).Interior.ColorIndex = 3
End If
Next intRow

End Sub
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige