For Each in Array

Guten Abend
ich versuche gerade das arbeiten mit Array zu verstehen bzw wie man das umsetzt oder umsetzen kann.
Ist eine For Each Schleife wie diese :
LetzteZeile = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set rngBereich = Range("C1:C" & LetzteZeile)
On Error Resume Next
For Each rngZelle In rngBereich
If rngZelle.Value = "Bestand" Then
rngZelle.Offset(0, 2).Value = "Bestand"
rngZelle.Offset(0, 3).Value = "Bestand"
rngZelle.Offset(0, 6).Value = "Bestand"
rngZelle.Offset(0, 7).Value = "Bestand"
End If
Next
umsetzbar in eine Array?
Wie würde diese aussehen und wenn ja könntet ihr mir die Schritte erläutern ?
Versuche mich da gerade ein wenig reinzudenken und dies geht glaub ich es beste mit einem Beispiel
wo ich die For Each Schleife selber zusammen gesetzt haben und das dann Stück für Stück durchgehe.
Würde mich über Informationen sehr freuen.
Viele Grüße
besten Dank
der Mani

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Meiner Meinung nach macht es in deinem Falle keinen Sinn, mit Array zu arbeiten, denn:
1) Wenn du einen eindimensionalen Bereich in ein Array packst, wird das Array zweidimensional und "For Each" würde jedes Element des Arrays ansprechen.
2) Du benutzt nicht die Zellen selbst, sondern nur die Nachbarzellen mit Offset - die Adresse der Zellen wäre jedoch im Array futsch.
3) Du solltest besser statt "For Each" und Array einfach die Zeilennumer als Laufvariable einer For-Next-Schleife nehmen:

For ze =1 to LetzteZeile
If cells(ze,3).Value = "Bestand" Then
cells(ze, 5).Value = "Bestand"
cells(ze, 6).Value = "Bestand"
cells(ze, 9).Value = "Bestand"
cells(ze, 10).Value = "Bestand"
End If
Next ze

Wozu
On Error Resume Next ?
Gewöhne dir das ab - Du solltest das NUR anwenden, wenn du einen BESTIMMTEN Fehler an einer BESTIMMTEN Stelle erwartest, aber nicht als "Superpenicillin" gegen alle möglichen Fehler. Es unterdrückt die Symptome (Fehlermeldung), aber der Programmierfehler besteht immer noch und kann dadurch an ganz anderer Stelle ganz ndere Probleme verursachen, und du merkst nicht einmal, warum.

Sub Test() Dim arrTemp As Variant Dim rngBereich As Range Dim i As Long With ActiveSheet Set rngBereich = .Range(.Range("C1"), .Range("C" & Rows.Count).End(xlUp).Offset(0, 1)) End With arrTemp = rngBereich For i = 1 To UBound(arrTemp) If arrTemp(i, 1) = "Bestand" Then arrTemp(i, 2) = "Bestand" arrTemp(i, 4) = "Bestand" End If Next rngBereich = arrTemp End Sub

Sub Test() Dim LetzteZeile As Long Dim txt LetzteZeile = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row For ze = LetzteZeile To 2 Step -1 txt = Cells(ze, 2).Text If InStr(txt, "Aus") > 1 Then Cells(ze, 2).EntireRow.Delete End If Next ze End Sub

dim arr dim z as Long dim LetzteZeile as long LetzteZeile = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row arr = Range("C1:J" & letzteZeile).value for z = 1 to ubound(arr, 1) if arr(z, 1) = "Bestand" then arr(z, 3) = "Bestand arr(z, 4) = "Bestand" arr(z, 7) = "Bestand" arr(z, 8) = "Bestand" end if next Range("C1:J" & letzteZeile).value = arr

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

181 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

For Each in Array

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

181 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread