VBA: Markieren >=1

Forumthread: VBA: Markieren >=1

VBA: Markieren >=1

22.12.2014 09:10:35

PeTeR

Hallo VBA-Freaks,
bräuchte mal bitte eure Hilfe:
Wie MARKIERT man per VBA alle Zellen im Bereich G5:K10 deren Inhalt größergleich 1?
Am Ende müssen zwischen 0 u. 30 Zellen MARKIERT sein.
Vielen Dank für eure Lösungsvorschläge
PeTeR

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA: Markieren >=1

22.12.2014 09:24:06

ransi
AW: VBA: Markieren >=1

22.12.2014 09:24:48

hary
AW: VBA: Markieren >=1

22.12.2014 09:27:26

Rudi
AW: VBA: Markieren >=1

22.12.2014 09:44:45

PeTeR
AW: Hilfstabelle statt Schleife

22.12.2014 10:21:15

Gerd

AW: VBA: Markieren >=1

22.12.2014 09:24:06

ransi

Hallo Peter
DA musst du jede Zelle einzeln abprüfen.
Stimmt das Kriterium dann die Zelle in eine Range aufnehmen.
Stimmt es nicht einfach weiter.
Zum Schluß die Range selektieren.
Warum eigentlich selektieren ?
Tabelle1

	F	G	H	I	J	K	L
4
5		-2	0	2	-2	1
6		0	-2	0	0	-1
7		-2	-1	-1	1	1
8		-1	-2	0	1	-1
9		1	2	0	-1	-2
10		0	2	0	0	1
11

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Sub machs()
    Dim bereich As Range
    Dim zelle As Range
    Dim RngToSelect As Range
    Set bereich = Range("G5:K10")
    For Each zelle In bereich
        If zelle.Value >= 1 Then
            If RngToSelect Is Nothing Then 'die erste gefundene Zelle
                Set RngToSelect = zelle
                Else:
                Set RngToSelect = Union(RngToSelect, zelle) 'alle weitern gefundenen Zellen
            End If
        End If
    Next
    MsgBox RngToSelect.Address
    RngToSelect.Select
End Sub

ransi

AW: VBA: Markieren >=1

22.12.2014 09:24:48

hary

Moin Dim bereich As Range Dim Zelle As Range For Each Zelle In Worksheets("Tabelle1").Range("G5:K10") If Zelle >= 1 Then If bereich Is Nothing Then Set bereich = Zelle Else Set bereich = Union(bereich, Zelle) End If End If Next bereich.Select
gruss hary

AW: VBA: Markieren >=1

22.12.2014 09:27:26

Rudi

Hallo,

Sub yyyy()
Dim r As Range, rs As Range
For Each r In Range("g5:k10")
If r >= 1 Then
If rs Is Nothing Then
Set rs = r
Else
Set rs = Union(rs, r)
End If
End If
Next
If Not rs Is Nothing Then rs.Select
End Sub

Gruß
Rudi

AW: VBA: Markieren >=1

22.12.2014 09:44:45

PeTeR

Hallo ransi, hary u. "rudi",
vielen Dank für eure Musterlösungen - funktioniert perfekt :-) Den Union kannte ich noch nicht - again what learned!!
Schöne Weihnachten
PeTeR

AW: Hilfstabelle statt Schleife

22.12.2014 10:21:15

Gerd

Hallo PeTeR,
noch eine Alternative:

Application.Goto Worksheets("Tabelle1").Range("A1"), True
With Worksheets("Tabelle2").Range("G5:K10")
.Cells.FormulaR1C1 = "=IF(Tabelle1!RC>=1,TRUE,"""")"
.Cells.Formula = .Cells.Value
On Error Resume Next
Worksheets("Tabelle1").Range(.SpecialCells(xlCellTypeConstants, xlLogical).Address).Select
.Clear
On Error GoTo 0
End With

Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA: Markieren >=1

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread