Office: Makro über mehrere Spalten laufen lassen, Problem mit der Schleife

Moin alle zusammen,
ich habe die Suche jetzt mächtig gequält und nix gefunden. Mein Problem ist sicher völlig easy zu lösen. Nur ich bekomme es irgendwie nicht hin. Ich möchte ein Makro über mehrere Spaltenbereiche (F:K; AA:AK; BC:BG usw.) laufen lassen, bekomme aber die Schleife dafür nicht hin. Ich hab erstmal mit F:K angefangen:

Code:

Wenn ich debugge, ist vSpalte beim ersten Durchlauf immer 28, müsste doch aber 6 sein, oder?

Kann mir jemand bitte auf die Sprünge helfen?

:)

 

Hi andre!

Was hast du mit dem debug ausgelesen?

Probier doch mal Code:

Oder für die Spalte: Code:

 

Wenn man for Each ... in Range macht, gilt das doch für Zellen, nicht spalten.

D.h. der code in der schlaufe word fpr jede zelle ausgeführt.

wenn vSpalte = 28, heisst das nicht anderes als das der Wert der aktuellen Zelle 28 ist. (wie vSpalte.Text)

Müsste doch also heissen:

for each vSpalte in Columns("F:K")

Oder liege ich da falsch?

 

HAllo Andre

Versuchs mal so:

Option Explicit

Public Sub test()
Dim vSpalte As Range
For Each vSpalte In Range("F:K, AA:AK, BC:BG").Columns
MsgBox vSpalte.Column
Next
End Sub


ransi

 

Danke euch allen für die schnelle Hilfe. Anhand ransis Beispiel konnte ich meinen Code zum Funktionieren bewegen.

Gruß, André.