Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1396to1400
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

 FGHIJKL
4       
5 -202-21 
6 0-200-1 
7 -2-1-111 
8 -1-201-1 
9 120-1-2 
10 02001 
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

Anzeige
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

Anzeige
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige