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

Code bleibt nach erstem Fund stehen

Forumthread: Code bleibt nach erstem Fund stehen

Code bleibt nach erstem Fund stehen
07.03.2013 13:56:39
Jockel
Hallo
Ich habe auf einem Formular eine Checkbox, wenn die angeklickt wurde, sollen auf meinem Sheet alle Spalten in der Zeile 9 mit "X" gefüllt werden, die in der Zeile 3 "CU" stehen haben.
Der COde füllt aber nur die erste gefundene Spalte und bricht dann ab.
Was muss ich ändern, damit der Code auch weitere nachfolgende Spalten prüft.
Danke
Jockel
If CheckBox19 = True Then
sHeader = "CU"
iHeader = WorksheetFunction.Match(sHeader, Rows(3), 0)
Cells(9, iHeader) = "X" 'X in Zeile 9 schreiben
End If

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code bleibt nach erstem Fund stehen
07.03.2013 13:58:17
Hajo_Zi
Du hast keine Schleife. Match findet den ersten.
Gruß Hajo

MATCH ist da nicht das richtige!
07.03.2013 14:03:22
Klaus
Hi,
MATCH bleibt sowieso beim ersten Treffer "stehen". Macht es als Formel im Blatt ja nicht anders.
Versuchs mal mit ner Schleife über Zeile 3:
dim iCol as integer
dim rBereich as range
dim sHeader as string
If CheckBox19 = True Then
iCol = cells(3,columns.count).end(xltoleft).column
sHeader = "CU"
'iHeader = WorksheetFunction.Match(sHeader, Rows(3), 0)
for each rBereich in Range(cells(3,1),cells(3,icol))
if rbereich.value = sheader then
cells(9,rbereich.column).value ="X"
end if
next rbereich
End If
Grüße,
Klaus M.vdT.

Anzeige
AW: Code bleibt nach erstem Fund stehen
07.03.2013 14:21:24
Daniel
Hi
wenn das "CU" direkt in den Zellen drinsteht, kannst du die aufgabe so lösen:
Rows(3).Replace "CU", True, xlwhole
With Rows(3).Specialcells(xlcelltypeconstants, 4)
Intersect(.EntireColumn, Rows(9)).Value = "x"
.Value = "CU"
End With
Gruß Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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