Markieren

Bild

Betrifft: Markieren von: Christoph
Geschrieben am: 25.02.2005 23:42:11

Hallo

habe eine ziemlich große Tabelle und muss jede 2 Zelle in einer Spalte markieren!
Das würde von Hand ganz schön lange dauer, gibt es vielleicht einen Trick wie es einfacher geht!

Christoph

Bild


Betrifft: AW: Markieren von: Bert
Geschrieben am: 25.02.2005 23:45:56

Es gibt kaum einen Grund, Zellen zu markieren. Was willst du mit der Markierung anschließend machen?

Bert


Bild


Betrifft: AW: Markieren von: Christoph
Geschrieben am: 25.02.2005 23:49:20

Hallo

ne Gültigkeit festlegen!

Gruß


Bild


Betrifft: AW: Markieren von: Bert
Geschrieben am: 25.02.2005 23:59:56

Wie du meinst:

Option Explicit
Sub Jede_zweite_Zeile()
Dim r As Long, Zeile As Range
Set Zeile = Rows(2)
For r = 4 To 20 Step 2
  Set Zeile = Union(Zeile, Rows(r))
Next
Zeile.Select
End Sub


Bert


Bild


Betrifft: AW: Markieren von: Christoph
Geschrieben am: 26.02.2005 00:09:21

Das klappt schon!
Nur ich möchte gerne in Spalte 8 anfangen und dann auch jede 2 Spalte nur geht das??

Gruß


Bild


Betrifft: AW: Markieren von: Bert
Geschrieben am: 26.02.2005 00:22:56

For r = 4 To 20 Step 2

statt der 4 die Zeile, wo es losgehen soll und statt der 20 die Zeile bis wohin
es gehen soll, Step ist die Schrittweite.

Bert


Bild


Betrifft: AW: Markieren von: Christoph
Geschrieben am: 26.02.2005 00:26:43

Hallo

das habe ich gemacht kann nur die Schrittweite der Zeilen aber nicht der Spalten bestimmen!

Möchte aber beides!!

Danke


Bild


Betrifft: AW: Markieren von: Bert
Geschrieben am: 26.02.2005 00:31:10

Ursprünglich gings nur um Zeilen, oder? Wie sollen jetzt noch Spalten markiert werden?

Bert


Bild


Betrifft: AW: Markieren von: Christoph
Geschrieben am: 26.02.2005 00:34:10

Hallo

ja sorry auch Spalten also beides!!

Danke


Bild


Betrifft: AW: Markieren von: Bert
Geschrieben am: 26.02.2005 00:43:28

Wie jetzt, Zeilen und Spalten gleichzeitig oder wahlweise?

Bert


Bild


Betrifft: AW: Markieren von: Christoph
Geschrieben am: 26.02.2005 00:49:54

Hallo

Wahlweise und alles!
Damit ich den Code dann mal so verändern kann was ich gerade brauche!!


Bild


Betrifft: AW: Markieren von: Bert
Geschrieben am: 26.02.2005 01:31:47

Option Explicit
Sub Jede_zweite_Zeile()
Dim r As Long, Zeile As Range
Set Zeile = Rows(2)
For r = 4 To 20 Step 2
  Set Zeile = Union(Zeile, Rows(r))
Next
Zeile.Select
End Sub
Sub Jede_zweite_Spalte()
Dim s As Integer, Spalte As Range
Set Spalte = Columns(2)
For s = 4 To 20 Step 2
  Set Spalte = Union(Spalte, Columns(s))
Next
Spalte.Select
End Sub
Sub Jede_zweite_beides()
Dim r As Long, s As Integer, Zeile As Range, Spalte As Range, Alles As Range
Set Zeile = Rows(2)
For r = 4 To 20 Step 2
  Set Zeile = Union(Zeile, Rows(r))
Next
Set Spalte = Columns(2)
For s = 4 To 20 Step 2
  Set Spalte = Union(Spalte, Columns(s))
Next
Set Alles = Union(Spalte, Zeile)
Alles.Select
End Sub


Bert


Bild


Betrifft: AW: Markieren von: Christoph
Geschrieben am: 26.02.2005 01:53:10

Hallo

das klappt der erste Code für die Zeilen ja aber die anderen beiden markieren alles das ganze Blatt!

Schade trotzdem schönen dank!


Bild


Betrifft: AW: Markieren von: Bert
Geschrieben am: 26.02.2005 02:04:20

Hä, das ist nicht möglich! Überprüf mal, ob du die Codes richtig kopiert hast.

Bert


Bild


Betrifft: AW: Markieren von: Christoph
Geschrieben am: 26.02.2005 11:33:26

HAllo

habe ich gemacht!!

Gruß


Bild


Betrifft: AW: Markieren von: Bert
Geschrieben am: 26.02.2005 11:42:09

https://www.herber.de/bbs/user/18845.xls

Bert


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Markieren"