Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen Markieren

Forumthread: Zeilen Markieren

Zeilen Markieren
14.11.2017 12:52:33
Peter
Hallo Zusammen,
in einer Array Variable habe ich meherer Zeilennummer stehen, jetzt möchte ich alle Zeilen die in der Array Variable stehen gleichzeit selectiert werden.
hier mein Code (ist nur ein Teil einer Sub)
For i = 1 To UBound(arr)
If arr(i) 0 Then
strZeile = CStr(arr(i))
Range(strZeile & ":" & strZeile).Select
End If
Next i
hierbei wird nur eine Zeile selectiert.
Ich hoffe Ihr könnt mir hier weiter helfen.
Danke und Gruß
Peter (hpo)
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen Markieren
14.11.2017 13:03:52
Rudi
Hallo,
du must das erst in einem Range-Objekt sammeln.
  Dim r As Range
For i = 0 To UBound(arr)
If arr(i)  0 Then
If r Is Nothing Then
Set r = Rows(arr(i))
Else
Set r = Union(r, Rows(arr(i)))
End If
End If
Next i
r.Select

Gruß
Rudi
warum so kompliziert?
14.11.2017 13:31:33
Daniel
Hi
warum so kompliziert?
in dem Fall geht's auch ohne IFs
die erste Zeile kommt direkt in die Zielrange, alle ab der zweiten kann man dann mit Union dazupacken.
Dim r As Range
set r = rows(arr(0))
For i = 1 To UBound(arr)
Set r = Union(r, Rows(arr(i)))
Next i
r.Select
Gruß Daniel
Anzeige
AW: Zeilen Markieren
14.11.2017 13:06:15
yummi
Hallo Peter,
du musst dir alle nummern merken:

strZeile = ""
For i = 1 To UBound(arr)
If arr(i)  0 Then
if len strzeile = 0 then
strZeile = CStr(arr(i)) & ":" & CStr(arr(i))
else
strzeile = strzeile & "," & CStr(arr(i)) & ":" & CStr(arr(i))  'evtl muss hier anstatt , ein  _
end if
End If
Next i
Range(strZeile).Select
könnte so klappen
Gruß
yummi
Anzeige
AW: Zeilen Markieren
14.11.2017 13:18:12
Peter
Hallo Rudi, hallo yummi
Vielen Dank an Euch.
Der Vorschlag von Rudi ist perfekt.
Viele Grüße
Peter (hpo)
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige