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"