Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen nach rechts Markieren

Zellen nach rechts Markieren
Einzel
Hallo Excel Freunde,
Frohe Weinachten erst einmal.
Suche ein Code der mir von der Activen Zelle nach rechts hin alle ausgefüllten Zellen markiert.
Hat jemand dazu eine Idee?
Ich dachte so oder ähnlich
zeile = AktiveCells(Columns.Count).End(xlToRight).Column ' letzten Wert in Zeile finden
Range(AktiveCell), Cells(zeile)).Select
Nur leider funktioniert es so nicht.
MfG
Stephan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen nach rechts Markieren
25.12.2009 22:16:23
Peter
Hallo Stephan
versuch es so:
Option Explicit
Public Sub NachRechtsMarkieren()
With ActiveSheet
.Range(.Cells(ActiveCell.Row, ActiveCell.Column), .Cells(ActiveCell.Row, _
.Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column)).Select
End With
End Sub

Gruß Peter
AW: Zellen nach rechts Markieren
25.12.2009 22:26:44
Gerd
Hi,
ich weis nicht, ob dies deinen Bedingungen voll gerecht wird.
Sub b()
With ActiveCell
If Cells(.Row, Columns.Count).End(xlToLeft).Column > .Column Then Range(.Cells, Cells(.Row,  _
Columns.Count).End(xlToLeft)).Select
End With
End Sub
Gruß Gerd
Anzeige
AW: Zellen nach rechts Markieren
25.12.2009 22:34:30
Einzel
Absolut richtig so sollte es sein Danke.
MfG
Stephan

153 Forumthreads zu ähnlichen Themen

Mittelwert jeder 3. Zelle einer Zeile
Dennis

Hallo,
wie kann ich denn in Excel den Mittelwert jeder 3. Zelle einer Zeile berechnen. Also z.B. D1, G1, J1.
Mauelle Eingabe ist nicht möglich, da ich rund 200 Werte erfassen muss.
Viele Dank schonmal!
Grüße, Dennis
08.05.2009 20:21:07
Thread-ID: 1074006
5 Beiträge
Anzeige
Formelbezug zu jeder dritten Zeile
F

Hallo,
ich habe eine Datei mit mehreren Arbeitsblättern.
Im Arbeitsblatt: Tabelle3 steht in einer Zelle: =Tabelle1!D1
drei Zellen tiefer steht: =Tabelle1!D2
und noch einmal drei Zellen tiefer: =Tabelle1!D3
Jetzt möchte ich...
18.09.2009 13:13:21
Thread-ID: 1103894
6 Beiträge
jede 10te Zeile auswählen (Bereich.Verschieben)
Dirk

Hallo :-),
ich habe folgendes Problem.
Ich habe eine Wertetabelle mit 43000 Zeilen und
möchte nur jede den Wert jeder 10ten Zeile mit der Funktion Bereich.Verschieben anzeigen lassen.
Allerdings kommt immer Bezugs- oder Wertfehler.
= Bereich.Verschieben(Zeile()-9)*10;0)
...
12.11.2009 15:37:30
Thread-ID: 1116585
9 Beiträge
Anzeige
Innerhalb Markierung jede 2. Zeile löschen
Henning

Hallo zusammen,
ich habe schon gesucht, aber irgendwie keine Lösung gefunden.
Das Problem: Beim Einfügen von Daten aus einem anderen Programm übernehme ich Zeilen, die ich nicht brauche. Da ich die Daten immer wieder an anderen Stellen einfüge, suche ich nach einer Funktion, die mir in...
10.06.2010 16:54:13
Thread-ID: 1161292
3 Beiträge
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
Sortieren nur jede 4.Zeile
KlausF

Hallo Forum,
ich habe einen Bereich D13:N28 in dem nur jede 4. Zeile mit Werten gefüllt wird
(restliche Zeilen werden später schreibgeschützt und enthalten nicht sichtbaren Text).
https://www.herber.de/bbs/user/71107.xls
Ich möchte nun das nach Spalte D sortiert wird aber nur d...
17.08.2010 19:14:01
Thread-ID: 1172735
4 Beiträge
Jede fünfte Zeile löschen
amintire

Guten morgen,
wie kann ich mit VBA Code jede Fünfte Zeile löschen?
Lieben Gruß
Amina
06.05.2011 08:06:57
Thread-ID: 1213287
4 Beiträge
In andere Tab. den Wert aus jeder 3. Zeile einfüg.
Felix

Ich dachte, ich hätte es mir schon mal erklären lassen, kriege es aber nicht hin:
Ich möchte einen Tabellenblock beliebig oft nach unten kopieren. Dabei soll in einer Zeile dieses Tabellenblocks automatisch ein Wert aus einer anderen Tabelle übernommen werden. Und zwar z.B.:
In Tabelle...
16.12.2011 18:10:48
Thread-ID: 1242507
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
5
8
2
2
3
3
3
10
3
21
4
3
5
2
12
2
2
2
3
26
7
3
5