For-Next Schleife funktioniert nicht

Lapana · 6. Juli 2018, 08:42

Hallöchen,

Ich habe ein Problem, und zwar funktioniert meine For-Next-Schleife nicht... Wenn ich sie durchführe, bleibt immer nur die gleiche Zelle ausgewählt. Kann mir wer helfen?

Visual Basic-Quellcode

i = 0
[E100].Activate
Application.Volatile
For Each oZelle In ActiveSheet.Range("E100:E1000")
If ActiveCell.Interior.ColorIndex = RGB(197, 217, 241) Then 'Alle farbigen Zellen auswählen
ActiveCell.Select
ActiveCell.Offset(1, 0).Select
FarbigeZellen(i) = ActiveCell.Value
i = i + 1
End If
Next oZelle

*Topic verschoben*

Vultrax · 6. Juli 2018, 09:36

Ich habe dort nicht viel Ahnung, vielleicht musst du das Offset von ActiveCell anpassen.

Das hilft Dir vielleicht weiter: support.microsoft.com/en-my/he…basic-procedures-in-excel

Lapana · 6. Juli 2018, 09:46

Danke sehr!

Soweit ich das richtig verstanden habe, ist das Offset so korrekt. Ich hab allerdings so gut wie keine Erfahrung mit VBA und kann das somit nur eingeschränkt beurteiilen...

Schoofi · 6. Juli 2018, 09:55

Ersetze mal activecell durch oZelle.
Die aktive Zelle bleibt bei Dir immer die gleiche, während Du mit oZelle die Zellen durchläufst.

Lapana · 6. Juli 2018, 09:58

Habe ich gemacht, bleibt trotzdem immer nur die gleiche Zelle ausgewählt...

HenryV · 6. Juli 2018, 11:06

Kannst du uns noch verraten was das gewünschte Ergebnis deines Codes sein sollte.

Lapana · 6. Juli 2018, 11:08

Also ich möchte, dass die Zellen durchlaufen werden und jede Zelle, die blau ist, in einem Array gespeichert wird. Also den Zellennamen, sodass ich später daraus eine Formel machen kann, ebenfalls per Makro.

Dksksm · 6. Juli 2018, 11:18

Ich kann auch nur raten und schon gar nicht testen, aber einen Versuch ist es Wert:

Visual Basic-Quellcode

i = 0
[E100].Activate
Application.Volatile
For Each oZelle In ActiveSheet.Range("E100:E1000")
If ActiveCell.Interior.ColorIndex = RGB(197, 217, 241) Then 'Alle farbigen Zellen auswählen
'ActiveCell.Select 'bringt was?
oZelle.Offset(1, 0).Select 'ich weiß nicht, ob diese Zeile wirklich nötig ist
FarbigeZellen(i) = oZelle.Offset(1, 0).Value
i = i + 1
End If
Next oZelle

Lapana · 6. Juli 2018, 11:22

Habe es ausprobiert, will immer noch nicht.

HenryV · 6. Juli 2018, 11:33

Visual Basic-Quellcode

Sub GetColoredCellAddresses()
Dim i As Integer
Dim oZelle As Range
Dim FarbigeZellen() As String
i = 0
[E100].Activate
Application.Volatile
For Each oZelle In ActiveSheet.Range("E100:E1000")
If oZelle.Interior.Color = RGB(197, 217, 241) Then 'Alle farbigen Zellen auswählen
ReDim Preserve FarbigeZellen(i)
FarbigeZellen(i) = oZelle.Address
i = i + 1
End If
Next oZelle
MsgBox (Join(FarbigeZellen, "; "))
End Sub

Lapana · 6. Juli 2018, 11:42

Das klappt! Danke sehr!Ist es möglich, dass die Daten dann nicht als Box aufpoppen, sondern direkt weiterverarbeitet wird? Ich habe bis jetzt das hier, doch es klappt auch nicht

Visual Basic-Quellcode

var = ""
Do While FarbigeZellen(i) <> 0 'Array auslesen
var = var + UBound(FarbigeZellen, i)
i = i - 1
Loop
[E45].Activate 'Formel in Zelle einfügen
alteFormel = ActiveCell.Formula
neueFormel = Replace(alteFormel, alteFormel, var)
ActiveCell.Formula = neueFormel

HenryV · 6. Juli 2018, 12:18

Mit diesem Code wird die Summenformel in Zelle "E99" geschrieben

Visual Basic-Quellcode

ActiveSheet.Range("E99").Formula = "=" & Join(FarbigeZellen, "+")

Falls die Formel auf ein anderes Blatt soll, musst du beim Auslesen der Zellen-Adressen den Blattnamen mitgeben.

Visual Basic-Quellcode

FarbigeZellen(i) = oZelle.Parent.Name & "!" & oZelle.Address

Lapana · 6. Juli 2018, 12:30

Bei mir wird nichts in die Zelle eingetragen...

For-Next Schleife funktioniert nicht

For-Next Schleife funktioniert nicht

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Benutzer online 1

Ähnliche Themen

5 Benutzer haben hier geschrieben