Datum

Titel

23.04.2024 14:59:21

Zellformel in VBA

23.04.2024 14:47:39

Formel SVERWEIS

23.04.2024 14:27:08

Excel - Zellen verketten anhand anderer Spalte

23.04.2024 14:23:45

Gehe zu Tabellenblatt

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

332to336

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

mehrere Zellen markieren

Forumthread: mehrere Zellen markieren
9 Beiträge zu diesem Forumthread
Anzeige
271 Threads zu ähnlichen Themen
Top 100 Forumthreads

05.11.2003 14:53:01

Tobias

hi @all!

so markieren ich eine Zelle in einer for-schleife:
Cells(i, s + 5).Select

was ist aber wenn ich 2, oder mehr zellen markieren will?
zB: cells(i, s + 5) und cells(i, s + 7)?

thx 4 ur answers!

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: mehrere Zellen markieren

05.11.2003 15:03:42

K.Rola
AW: mehrere Zellen markieren

05.11.2003 15:04:53

xXx
AW: mehrere Zellen markieren

05.11.2003 15:10:53

Tobias
Frage falsch verstanden-->K.Rola o.T.

05.11.2003 15:12:52

xXx
AW: Frage falsch verstanden-->K.Rola o.T.

05.11.2003 15:19:24

Tobias
AW: Frage falsch verstanden-->K.Rola o.T.

05.11.2003 15:26:32

K.Rola
AW: Frage falsch verstanden-->K.Rola o.T.

05.11.2003 15:34:50

Tobias
AW: Frage falsch verstanden-->K.Rola o.T.

05.11.2003 16:03:58

K.Rola
AW: mehrere Zellen markieren

05.11.2003 16:12:35

xXx

AW: mehrere Zellen markieren

05.11.2003 15:03:42

K.Rola

Hallo,

Union heißt das Schlüsselwort, mal ein Beispiel:


Sub Beispiel()
Dim Bereich As Range, z As Long
For z = 1 To 100 Step 3
If Bereich Is Nothing Then
Set Bereich = Cells(z, 1)
Else
Set Bereich = Union(Bereich, Cells(z, 1))
End If
Next
If Not Bereich Is Nothing Then Bereich.Select
End Sub

Gruß K.Rola

AW: mehrere Zellen markieren

05.11.2003 15:04:53

xXx

Hallo,
Select in VBA ist zu 99% überflüssig und verlangsamt nur den Code.

Range(cells(i,s+5),cells(i,s+7)).select

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!

AW: mehrere Zellen markieren

05.11.2003 15:10:53

Tobias

hi!

leider markiert er so nur einen bereich... und zwar von cells(i,s+5) bis cells(i,s+7)

danke trotzdem!

Frage falsch verstanden-->K.Rola o.T.

05.11.2003 15:12:52

xXx

AW: Frage falsch verstanden-->K.Rola o.T.

05.11.2003 15:19:24

Tobias

geht leider auch nicht

AW: Frage falsch verstanden-->K.Rola o.T.

05.11.2003 15:26:32

K.Rola

Hallo,

wie jetzt, was geht nicht?

Gruß K.Rola

AW: Frage falsch verstanden-->K.Rola o.T.

05.11.2003 15:34:50

Tobias

hi

das problem:
range ist immer ein bereich. oder?
ich möchte aber einzelne zellen markieren (bei mir zwei, weiter auseinander stehen) und dann in eine andere tabelle einfügen, wo sie aber nebeneinander stehen sollen..

tobias

AW: Frage falsch verstanden-->K.Rola o.T.

05.11.2003 16:03:58

K.Rola

Hallo,

das hat aber mit deiner ursprünglichen Frage nicht mehr viel zu tun.
Das geht ohnehin nur in einer Schleife.

Gruß K.Rola

AW: mehrere Zellen markieren

05.11.2003 16:12:35

xXx

Hallo,
du meinst wohl sowas:


Sub Kopieren()
Dim rngCopy As Range, iZeile As Integer, iSpalte As Byte
Dim shQuelle As Worksheet, shZiel As Worksheet
Set shQuelle = Sheets("Tabelle1")
Set shZiel = Sheets("Tabelle2")
iSpalte = 3
For iZeile = 2 To 20
Set rngCopy = Union(shQuelle.Cells(iZeile, iSpalte), _
shQuelle.Cells(iZeile, iSpalte + 3))
rngCopy.Copy Destination:=shZiel.Cells(iZeile, 1)
Next iZeile
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!