Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Zellen mit Wert markieren

Alle Zellen mit Wert markieren
25.05.2007 10:27:00
Thomy
Hallo
Wie kann ich mit einem Makro in einem Tabellenbaltt sämtliche Zellen markieren, die einen Werte enthalten.
Besten Dank für eure Hilfe.
Thomy

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Zellen mit Wert markieren
25.05.2007 10:29:28
chris
Hallo Thomy,
das geht zum Beispiel so..
Option Explicit

Sub allesel()
ActiveSheet.UsedRange.Select
End Sub


gruß Chris

AW: Alle Zellen mit Wert markieren
25.05.2007 10:31:00
Rudi
Hallo chris,
UsedRange kann auch leere Zellen beinhalten.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Alle Zellen mit Wert markieren
25.05.2007 10:34:00
chris
Habe es so verstanden das er sämtliche zellen markiert haben möchte..
nicht nur die in denen Werte sind.
Wenn das der Fall wäre müsste er denke ich mit einer Schleife arbeiten.. ?
gruß

AW: Alle Zellen mit Wert markieren
25.05.2007 10:40:28
Rudi
Hallo,

Wie kann ich mit einem Makro in einem Tabellenbaltt sämtliche Zellen markieren, die einen Werte enthalten.


Alle Zellen mit Zahlen, egal ob Konstanten oder aus Formel:


Sub ttt()
Dim rng As Range
Set rng = Union(Cells.SpecialCells(xlCellTypeConstants, xlNumbers), _
Cells.SpecialCells(xlCellTypeFormulas, xlNumbers))
rng.Select
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Alle Zellen mit Wert markieren
25.05.2007 10:39:20
mpb
Hallo Thomy,
was sind "Zellen mit Werten"?
Wenn Du konstante Angaben und Ergebnisse von Formeln meinst, dann

Sub Besetzte_Zellen_markieren()
Set Con = Cells.SpecialCells(xlCellTypeConstants, 23)
Set Frm = Cells.SpecialCells(xlCellTypeFormulas, 23)
Union(Con, Frm).Select
End Sub


Wenn Du nur konstante Werte meinst reicht die Codezeile
Cells.SpecialCells(xlCellTypeConstants, 23).Select
Gruß
Martin

44 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige