Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1136to1140
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
Inhaltsverzeichnis

rngAll.select --> Spalten-Teilbereich möglich?

rngAll.select --> Spalten-Teilbereich möglich?
Gregor
Den untenstehenden Code möchte ich so abändern, dass NICHT DIE GANZE ZEILE, sondern nur die Spalten C bis K in jeder Zeile mit "x" in Spalte B markiert werden (Ziel: alle Zeilen, welche das Kriterium erfüllen, sollen alle zusammen markiert werden, und zwar in den Spalten C bis K; habe im Archiv leider nicht's gefunden).
Ist das möglich?
Dim rngAct As Range, rngAll As Range
Dim strRng As String
For Each rngAct In Range("b1:b140").Cells
If rngAct.value = "x" Then
If rngAll Is Nothing Then
Set rngAll = rngAct
Else
Set rngAll = Union(rngAll, rngAct)
End If
End If
Next rngAct
rngAll.entireRow.Select
Merci für deinen Input!
Grusse Gregor

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: rngAll.select --> Spalten-Teilbereich möglich?
13.02.2010 10:51:47
Reinhard
Hallo Gregor,
Sub tt()
Dim rngAct As Range, rngAll As Range
For Each rngAct In Range("b1:b140")
If UCase(rngAct.Value) = "X" Then
If rngAll Is Nothing Then
Set rngAll = rngAct.Offset(0, 1).Resize(1, 9)
Else
Set rngAll = Union(rngAll, rngAct.Offset(0, 1).Resize(1, 9))
End If
End If
Next rngAct
If Not rngAll Is Nothing Then rngAll.Select
End Sub

Gruß
Reinhard
AW: rngAll.select --> Spalten-Teilbereich möglich?
13.02.2010 11:11:20
Gregor
Hallo Reinhard
Genial! Danke vielmals!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige