Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mittel VBA markieren

Forumthread: Zellen mittel VBA markieren

Zellen mittel VBA markieren
10.04.2008 08:49:04
Josef
Hallo!
Ich möchte mittels VBA alle Zellen ab der Zeile 1573 bis zur letzten mit Werten befüllten Zeile markieren.
(Es kommen täglich neue Datensätze daz.) Wie würde hier bitte eine VBA Lösung in Bezug der Markierung aussehen?
Danke
Josef

Anzeige

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 08:51:00
Hajo_Zi
Hallo Josef,
Warum? In VBA kann zu 99,9% auf select verzichtet werden.

AW: Zellen mittel VBA markieren
10.04.2008 09:05:00
Josef
Hallo Hajo!
Danke für Deine Antwort.
Ich würde ja gerne auf Select verzichten. Nur sollte die Markierung erst ab der Zeile 1573 anfangen.
Josef

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 09:12:00
Andi
Hi,
wozu brauchst Du denn die Markierung?
Wie Hajo schon schrieb, kommst Du mit allergrößter Wahrscheinlichkeit auch ohne Markierung zum Ziel.
Schönen Gruß,
Andi

AW: Zellen mittel VBA markieren
10.04.2008 09:09:10
selli
hallo josef,
was genau meinst du mit "markiert"?
sollen die zellen farbig oder mit fettdruck gestaltet werde, oder nur ausgewählt werden?
@hajo: wenn man milch trinken möchte, muß man milch kaufen (warum nicht select, wenn er es möchte?)
gruß
selli

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 09:12:41
Josef
Hallo seli!
Danke für Deine Antwort.
Es geht mir rein nur um die Auswahl, da ich im Anschluß eine Sortierung von 3 Spalten vornehmen möchte.
Josef

AW: Zellen mittel VBA markieren
10.04.2008 09:22:26
Andi
Hi,
eben, und dafür brauchst Du nämlich genau kein Select.
Statt
Range("A1:C6").Select
Selection.Sort , Key1:=Range("A1"), Order1:=xlAscending
kannst Du auch einfach schreiben
Range("A1:C6").Sort , Key1:=Range("A1"), Order1:=xlAscending
Select ist eine notwendige Nebenerscheinung des Makro-Rekorders, die im Grunde so überflüssig ist wie ein Kropf.
Zu Deinem Problem:
Den Bereich ab Zeile 1573 bis zur letzten gefüllten Zeile in Spalte C bekommst Du so:
Dim bereich As Range
Set bereich = Range("A1573:C" & Range("C65536").End(xlUp).Row)
Sortieren kannst Du dann zB mit
bereich.Sort , Key1:=Range("A1573"), Order1:=xlAscending
Schönen Gruß,
Andi

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 09:37:44
Josef
Hallo Andi!
Danke für Deine Antwort.
Habe mir jetzt folgendes Makro geschnitzt:

Sub Markieren_Master()
Dim bereich As Range
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Set bereich = wks.Range("A1573:BO" & wks.Range("BO65536").End(xlUp).Row)
End Sub


Leider dürfte ich hier noch etwas falsch machen, da nach dem Ausführen des Makros keine Markierung angezeigt wird.
Josef

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 09:40:00
Hajo_Zi
Hallo Josef,
Dein Makro ist ok. Nur Andi sortiert noch nachdem der Bereich zugewiesen wurde.
Zugewiesene Bereich sollten vor End Sub wieder gelöscht werden
Set bereich = Nothing
Gruß Hajo

AW: Zellen mittel VBA markieren
10.04.2008 09:47:00
Andi
Hi,

da nach dem Ausführen des Makros keine Markierung angezeigt wird

Natürlich nicht. Ich habe Dir ja auch eine Variante vorgeschlagen, die ohne Select (=Markierung) auskommt.
Wie gesagt, Select macht einen Code unübersichtlich, langsam, und ist in höchstens 0,1% der Fälle wirklich notwendig, um das gewünschte Ergebnis zu erreichen.
Schönen Gruß,
Andi

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 09:57:00
Josef
Hallo nochmals!
Habe jetzt das Makro fertig. möchte nur noch bitte wissen, ob es richtig wäre:
Sort werden die Spalten G, E und I

Sub Markieren_Master()
Dim bereich As Range
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Set bereich = wks.Range("A1573:BO" & wks.Range("BO65536").End(xlUp).Row)
bereich.Sort Key1:=Range("E1573"), Order1:=xlAscending, Key2:=Range( _
"G1573"), Order2:=xlAscending, Key3:=Range("I1573"), Order3:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Set bereich = Nothing
End Sub


Danke
Josef

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 10:00:45
Hajo_Zi
Hallo Josef,
schreibe vor jedes Range Wks.
Gruß Hajo

AW: Zellen mittel VBA markieren
10.04.2008 10:06:00
Josef
Hallo!
Danke für den Hinweis.
Aber jetzt passt es oder?

Sub Markieren_Master()
Dim bereich As Range
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Set bereich = wks.Range("A1573:BO" & wks.Range("BO65536").End(xlUp).Row)
bereich.Sort Key1:=wks.Range("E1573"), Order1:=xlAscending, Key2:=wks.Range( _
"G1573"), Order2:=xlAscending, Key3:=wks.Range("I1573"), Order3:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Set bereich = Nothing
End Sub


Josef

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 10:14:37
Hajo_Zi
Hallo Josef,
ich baue das nicht nach, aber es sieht ok aus. Falls Du den Code bei einer Version vor XP verwendest solltest Du alle Schalter DataOption löschen.
Gruß Hajo

AW: Zellen mittel VBA markieren
10.04.2008 10:17:24
Josef
Hallo Hajo, Hallo Andi!
Danke für Eure Hilfe.
Schönen Tag noch

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 09:14:00
Renee
Hi Selli,
(warum nicht select, wenn er es möchte?)
Weil er es mangels Wissen, sich vielleicht nicht anders vorstellen kann! Darum nicht.
In Ahnlehnung an deinen Spruch:
Warum nicht einem Kind einen Flammenwerfer geben, wen es einen möchte ?
GreetZ Renée

AW: Zellen mittel VBA markieren
10.04.2008 09:34:00
selli
hallo renee,
dass dein vergleich dumm ist, merkst du selber, oder?
gruß selli

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 09:36:00
Hajo_Zi
Hallo Selli,
der Vergleich ist nur auf Deinen Vergleich aufbauend.
Gruß Hajo

ja, genau !
10.04.2008 09:52:00
selli
.

AW: Zellen mittel VBA markieren
10.04.2008 09:51:00
Andi
Hi Selli,
in einem 10-zeiligen Makro ist es im Grunde wirklich völlig wurscht, ob man Select verwendet oder nicht.
Wenn Du ein größeres Projekt hast, dann geht das uU schon merklich auf die Performance, und wenn Du in so einem Projekt schonmal einen Fehler gesucht hast, dann weißt Du eine effiziente Programmierung, die auf überflüssige Zeilen verzichtet, sicherlich zu schätzen, oder? Warum sollte man also einen Anfänger nicht von Anfang an auf einen sauberen Programmier-Stil hinweisen, der im später evtl viel Ärger erspart?
Es ist nunmal leider (aber unvermeidlicherweise) so, dass Anfänger vom Makro-Rekorder die exzessive Verwendung von Select und Activate vorgelebt bekommen. Was spricht dagegen, in diesem Forum da bisschen gegen zu steuern?
Schönen Gruß,
Andi

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 11:37:50
selli
hallo andi,
ich stimme dir ja vollkommen zu.
aber findest du, dass hajos erste antwort überhaupt auf die aufgabenstellung eingeht.
da kommt nur irgendsoein flappsiger kommentar und dazu noch völlig unbegründet. wie wird denn damit einem vermeindlichen anfänger geholfen?
das nervt. und nur das habe ich mit einem teil meiner antwort hervorheben wollen.
viele grüße
selli

Anzeige
AW: Zellen mittel VBA markieren
10.04.2008 11:51:56
Andi
Hi,
dass Hajo es in diesem Leben nicht mehr ins diplomatische Corps schaffen wird, darf man vermutlich als sicher betrachten.
Im Grunde will er mit seinen Antworten die Fragesteller imho oft nur dazu anhalten, die Fragen präzise zu stellen und auch darauf einzugehen, was eigentlich bezweckt wird. Das ist in meinen Augen ein gutes Anliegen, auch wenn seine Art es zu formulieren mitunter etwas, sagen wir, speziell ist... ;-)
Schönen Gruß,
Andi
Anzeige
;

Forumthreads zu verwandten Themen

Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 Beiträge
Zellen mit Validation.Type = 3 markieren, Fehler
Andreas

Hallo Herber Fans,
um in größeren Arbeitsblättern während der Arbeit/ Entwicklung nicht den Überblick zu verlieren, möchte ich gern alle Zellen markieren, die über eine Gültigkeit vom Typ: Liste verfügen. Ich weiß, daß es über „Gehe Zu“ die Funktion gibt, alle Zellen mit Gültigkeitsprüfung...
09.01.2009 15:09:36
Thread-ID: 1038251
3 Beiträge
Anzeige
Bereich mit Vorratsformeln per Code markieren
Carlo

Hallo,
ich habe Formeln auf Vorrat eingefügt. Also Bedingungsformeln, die je nachdem leer erscheinen. Hier im Beispiel von A92:C100. Wie kann ich diesen Bereich der "Leerformeln" per Code dynamisch markieren?
Beispiel: https://www.herber.de/bbs/user/59333.xls
Gruß,
Carlo
10.02.2009 23:25:23
Thread-ID: 1049408
7 Beiträge
Anzeige
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 Beiträge
Zellen mit Formeln einer Zeile kopieren
Jürgen

Hallo VBA-Profis,
da ich hinsichtlich VBA ein Anfänger bin, hoffe ich hier im Forum Hilfe zu bekommen.
Ausgangslage:
In größeren Excel-Tabellen sind neben Daten auch Formeln vorhanden.
Tabelle beginnt z.B. ab A4 und erstreckt sich bis Z800 (Zeile 4 sind Überschriften)
In den...
13.12.2009 15:54:18
Thread-ID: 1123590
3 Beiträge
vorhandene Zellen der Formeln markieren
Tim


Liebe Excel-User,
habt ihr eine Idee, wie man folgendes bewerkstelligen könnte?
Hier eine Bsp-Datei:
https://www.herber.de/bbs/user/68336.xls
Jetzt habe ich Formeln, die mir das Wachstum berechnen, z.B. mit:
=WENN(ISTFEHLER((C8/C3)-1);"kein Umsatz im darauffolgenden Ja...
03.03.2010 08:18:56
Thread-ID: 1142900
3 Beiträge
Bedingte Formatierung & Wenn-Formel ?!
Jessi

Liebe Excelgemeinde,
ich habe da ein kleines Problem und hoffe das ihr mir dabei helfen könnt:
______________________________
Formel für "Bedingte Formatierung" bei Excel-Version 2000:
Wenn in A2 und B2 ausgefüllt wurde, aber E2 nichts drinsteht, dann soll Zelle E2 rot gefärbt w...
28.04.2010 10:54:52
Thread-ID: 1154255
7 Beiträge
Anzeige
Alle Zellen mit Kommentaren farblich markieren
Ralph P.

Hallo.
Ich möchte in einer Excel-Tabelle alle Zellen farblich markieren, die einen Komentar enthalten. Mein Ansatzt ist dieser:Sub mark()laRow = Cells(Rows.Count, 1).End(xlUp).Row
laCol = Cells(Columns.Count).End(xlToLeft).Column
For col = 1 To laCol For Row = 1 To laRow
Cell...
29.04.2002 11:46:36
Thread-ID: 117105
4 Beiträge
Zellen mit gleichen Werten markieren
Melanie

Hallo Liebe Excel-Freunde,
ich mochte in einer Tabelle alle Zellen markieren, bei der die Werte aus Zelle B auch in Zelle C vorkommen. Dabei können in Zelle C auch mehrfach Zahlen aus B vorkommen, die müssen auch markiert werden. Sie Beispiel:
Tabelle1 BCDEFGHIJ2TestMaterialnummerW...
17.08.2010 13:53:00
Thread-ID: 1172624
6 Beiträge
Werte aus 'Zellen mit Formeln' holen
Markus

Hallo Leute!Das Problem lautet:
wenn Werte in Zellen durch Formeln eingetragen sind, wie kann ich dann per Makro auf die Werte zugreifen?
Grüße und vielen Dank im Voraus!Markus

16.05.2002 12:04:22
Thread-ID: 121322
3 Beiträge
Zellen in Spalten einzeln mit Formeln füllen
Werner

Hallo,
ich habe eine Tabelle (viele Datensätze), die in einigen Spalten mit Matrixformeln berechnet wird. Dementsprechend lange dauert es dann, wenn eine Neuberechnung anbeschubst wird.
Deswegen dachte ich, man könnte die Formeln jeweils nur um eine Zelle nach unten "ziehen" und dann...
11.02.2012 22:24:18
Thread-ID: 1250220
5 Beiträge
Zellen schützen, die mit Formeln belegt sind
Janine

Hallo zusammen,
Ich benötige bitte dringend Hilfe von Spezialisten.
Ich habe in meiner Excel-Tabelle Formeln eingefügt. Auf diese Tabelle haben mehrere Nutzer Zugriff.
Wie kann ich meine Formeln bzw. die jeweiligen Zellen schützen, damit sie nicht versehentlich verändert werden?
...
09.11.2012 15:54:56
Thread-ID: 1286047
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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