Erste Spalte in Auswahl ansprechen

Hallo werte Forumsgemeinde,
ich als absoluter VBA Anfänger hänge gerade an einem wahrscheinlich eher banalen Problem fest.
Bei dem unten stehenden Code Schnipsel möchte ich die erste Spalte der Auswahl ansprechen (wo jetzt Selection.Column steht). Also z.B. B, wenn der Anwender den Bereich B3:E6 ausgewählt hat. Momentan funktioniert das Makro nur wenn der User die Auswahl in Spalte A beginnt. Ich habe schon Sachen wie "cells (z, Selection.Columns(1))" ausprobiert, aber da bekomme ich Laufzeitfehler. Das Makro soll die Zeilen in der ersten Spalte der jeweiligen Auswahl durchlaufen. Wie gesagt ich bin blutiger Anfänger.
[...]
For z = 2 To Selection.Rows.Count
If Cells(z, Selection.Column) Cells(z - 1, Selection.Column) Then a = a+1
[...]
Weiß da jemand was? Sorry wenn das etwas unklar formuliert ist. Vielen Dank
Gruß
Gauss

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Aller besten Dank!
Mir ist jedoch aufgefallen, das ich jetzt noch ein anderes Problem habe. Mein Makro soll die Auswahl des Anwenders durchgehen und bei wechselnden Zeilenwerten in der ersten Spalte der Auswahl die Zeilen alternierend einfärben (weiß und grau abwechselnd). Das geht auch alles prinzipiell, was ich dabei aber nicht vernünftig hinkriege ist der korrekte Zellbezug: Wo unten Selection.Column (fett) steht soll die erste Spalte der Auswahl angesprochen werden. Ausgewählt werden soll in der Codezeile die erste bis letzte Spalte der Auswahl für die jeweilige Zeile. Hoffe das war nicht zu unklar. Danke!
Gruss
Gauss

Sub ZeilenMuster_v3() ' Makro zum abwechselndem Einfärben von Zeilen
Dim a, b As Integer ' Hilfsvariablen
Dim z As Integer
For z = 2 To Selection.Rows.Count
If Cells(z, Selection.Columns(1).Column).Value  Cells(z - 1, Selection.Columns(1).Column). _
Value Then
a = a + 1
b = a Mod 2
End If
If b = 1 Then
Range(Cells(z, Selection.Column), Cells(z, Selection.Columns.Count)).Interior.ColorIndex  _
= 15
End If
If b = 0 Then
Range(Cells(z, Selection.Column), Cells(z, Selection.Columns.Count)).Interior.ColorIndex  _
= xlNone
End If
Next z
End Sub

Sub ZeilenMuster_v3() ' Makro zum abwechselndem Einfärben von Zeilen Dim z&, zC&, z0&, s&, sC& ' & heißt so viel wie as long Dim farbe& s = Selection(1).Column ' (1) ist die linke, obere Ecke der Auswahl z0 = Selection(1).Row sC = Selection.Columns.Count zC = Selection.Rows.Count For z = z0 + 1 To z0 + zC - 1 If Cells(z, s).Value Cells(z - 1, s).Value Then If farbe = 15 Then farbe = xlNone Else farbe = 15 End If Cells(z, s).Resize(, sC).Interior.ColorIndex = farbe Next z End Sub

Beliebteste Forumthreads (12 Monate)

Erste Spalte in Auswahl ansprechen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread