Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1300to1304
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige