Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen markieren

Zeilen markieren
08.11.2003 11:21:54
Mathias
Hallo und Guten Morgen,

in einem Arbeitsblatt möchte ich ab einer bestimmten Zeile alle darunterliegenden Zeilen, die Werte beinhalten, markieren, also die kompletten Zeilen,nicht nur die Zellen. Wie kann ich das per VBA lösen?

Für jede Antwort dankbar

Mathias aus Hamburg

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen markieren
08.11.2003 11:28:15
Hajo_Zi
Hallo Mathias

gehe auf die zelle und Tastenkombination strg+umschalt+Ende

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro


AW: Zeilen markieren
08.11.2003 11:33:41
Mathias
Hallo Hajo,
danke vorab. Jedoch werden bei strg+umschalt+ende nur die nichtleeren Zellen markiert, nicht aber die gesamte Zeile bis zum Ende, also auch mit den leeren Zellen rechts.

Hast Du noch eine Idee?

Gruß

Mathias
Anzeige
AW: Zeilen markieren
08.11.2003 11:34:08
Josef Ehrensberger
Hallo Mathias,

versuch mal dieses Makro.


Sub Markieren()
Dim rng As Range
Dim rngU As Range
Dim strRange As String
Dim strSearch As String
strRange = InputBox("Bitte geben Sie denn Bereich an," & vbLf & _
"in dem die Suche erfolgen Soll:" & vbLf & "(z.B.: A1:H500 )" _
, "Bereich", "A1:H500")
If strRange = "" Then Exit Sub
For Each rng In Range(strRange)
If rng <> "" And rngU Is Nothing Then
Set rngU = rng.EntireRow
ElseIf rng <> "" Then
Set rngU = Application.Union(rngU, rng.EntireRow)
End If
Next
rngU.Select
End Sub


Ich hoffe es funktioniert so wie Du es Dir vorstellst.

Gruß Sepp
Anzeige
AW: Zeilen markieren
08.11.2003 11:34:34
PeterW
Hallo Mathias,

per VBA beispielsweise:

Sub Markieren()
Rows(ActiveCell.Row & ":" & ActiveSheet.UsedRange.Rows.Count).Select
End Sub

wobei in VBA auf Select in der Regel verzichtet werden kann.

Gruß
Peter
AW: Zeilen markieren
08.11.2003 11:39:23
Mathias
Hallo an alle,

ihr seid so guuut! Und so schnell! Klasse, danke,

klappt prima!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige