Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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)

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
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige