Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
296to300
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
296to300
296to300
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen markieren

Zeilen markieren
23.08.2003 11:16:06
Richard
Hallo Leute,
habe da ein Problem, für dessen Lösung meine VBA-Kenntnisse nicht ausreichen.
Ich habe mir eine Tabelle erstellt, in der ich mir der Übersicht halber über VBA jede zweite Zeile markieren möchte (Bereich A3:K1000). Diese Markierung jeder zweiten Zeile soll auch noch nach dem Filtern von Daten erhalten bleiben.
Für jegliche Lösungsvorschläge wäre ich dankbar.
Richard

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen markieren
23.08.2003 15:46:25
Andre
hallo richard,
im prinzip so:
Public

Sub UngeradeMarkieren()
' % = integer = -32.768 bis 32.767
' & = long = -2.147.483.648 bis 2.147.483.647
' Dim je nach Lage der Zeilen % oder &
Dim erste%, letzte%, i%, j%
Dim auswahlstring(1 To 10) As String
erste = 3
letzte = 1000
For j = 1 To 10
For i = erste To letzte - (10 - j) * 100
' <> für ungerade, = für gerade zeilen
If i / 2 <> Int(i / 2) Then auswahlstring(j) = auswahlstring(j) & "A" & i & ","
Next i
' Komma am Ende entfernen
auswahlstring(j) = Left(auswahlstring(j), Len(auswahlstring(j)) - 1)
' Anfang auf letzte ... + 1 hochsetzen
erste = letzte - (10 - j) * 100 + 1
Next j
' Markieren
Union( _
Range(auswahlstring(1)), _
Range(auswahlstring(2)), _
Range(auswahlstring(3)), _
Range(auswahlstring(4)), _
Range(auswahlstring(5)), _
Range(auswahlstring(6)), _
Range(auswahlstring(7)), _
Range(auswahlstring(8)), _
Range(auswahlstring(9)), _
Range(auswahlstring(10)) _
).Select
End Sub

gruss andre

Anzeige
AW: Zeilen markieren
23.08.2003 18:33:12
Hajo_Zi
Hallo Richard
siehe Dir mal folgende Datei an
Beispieldatei
Das Makro muß nach Autofilter gestartet werden.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

Anzeige
AW: Zeilen markieren
24.08.2003 20:40:42
Richard
Hallo Hajo,
hab deinen VBA Code in meine Excel Tabelle eingebunden und es hat funktioniert.
Ich denke ich werde ihn noch oft verwenden.
Danke für Deine hilfe.
Richard


Danke für die Rückmeldung
24.08.2003 20:46:21
Hajo_Zi
Hallo Richard
immer auf die Antwort antworten, damit man auch sieht was man geantwortet hat.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige