in VBA Zeile mit for schleife durchsuchen

Hallo zusammen,
Ich möchte nachdem eine Zelle angeklickt wurde die Zellen rechts von der angeklickten Zelle durchsuchen. Und sobald eine gefüllte Zelle gefunden ist, soll ein Wert aus Zeile 6 und der Spalte der gefundenen Zelle in Spalte 8 und die gleiche Zeile der Zelle kopiert werden.
Die Codeschnipsel die ich dazu bisher habe sind wiefolgt:
Dim Cell As Range
For Each Cell in Range("weiß nicht wie man die Range angibt.. Soll von der angeklickten Zelle bis ActiveCell.row, 377")
if Cell.interior.color x1None then
Cells(ActiveCell.Row, 8).Value = Wert aus Gefundene Zelle Zeile 6 gleiche Spalte.
Else Cells(ActiveCell.Row, 9).Value = vbNullString (Falls er nichts findet & das funktioniert bereits)
End If
Ich hoffe man kann das ungefähr verstehen sonst kann ich gerne auch mal den gesamten Code posten.
vielen Dank schonmal
Gruss

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Zelle As Range For Each Zelle In Target.Resize(1, 377 - Target.Columns + 1) If Zelle.Interior.Color <> xlNone Then Cells(Zelle.Row, 8).Value = Cells(6, Zelle.Column).Value Else Cells(Zelle.Row, 9).Value = vbNullString End If Next End Sub

Dim rngCell As Range, Zeile As Long Dim wks As Worksheet Set wks = ActiveSheet With wks Zeile = ActiveCell.Row For Each rngCell In .Range(ActiveCell, .Cells(Zeile, 377)) 'angeklickten Zelle bis _ ActiveCell.row, 377 If rngCell.Interior.ColorIndex xlColorIndexNone Then .Cells(Zeile, 8).Value = .Cells(6, rngCell.Column).Value ' Wert aus Gefundene Zelle _ Zeile 6 gleiche Spalte. Else .Cells(Zeile, 9).Value = vbNullString '(Falls er nichts findet & das funktioniert _ bereits) End If Next End With

dim sp as Long dim ze as Long ze = activeCell.row for sp = 377 to activeCell.column step -1 if cells(ze, sp).interior.Colorindex xlColorindexnone then Cells(ze, 8).Value = Cells(6, sp).value Exit for end if next if sp

Hallo Daniel,
danke für deine Hilfe. Ich habe meinen Code jetzt auch so hinbekommen das er schnell durchläuft. (Das Problem war, dass wenn kein weiteres Kästchen ausgefüllt war, wurde jedes explicit geleert. Das hat dann bei den 360 verbleibenden etwas gedauert).
Nun habe ich allerdings ein neues Problem. Das Programm soll auch in die andere Richtung suchen um so ein anderes Kästchen zu korrigieren. Mein Code ist bisher so:

'loescht das Datum in Beginn, falls die Zelle mit dem gleichen Datum im Kalender deaktiviert  _
wird
If Cells(ActiveCell.Row, 8).Value = Cells(6, ActiveCell.Column).Value Then
Cells(ActiveCell.Row, 8).Value = vbNullString
Dim rngCell As Range
For Each rngCell In Range(ActiveCell, Cells(ActiveCell.Row, 377)) 'gehe von  _
der markierten Zelle das restliche Jahr in dieser Zeile durch
If rngCell.Interior.ColorIndex  xlColorIndexNone Then
Cells(ActiveCell.Row, 8).Value = Cells(6, rngCell.Column).Value
Exit For    'Wenn er den ersten Wert gefunden hat verlasse die Schleife
End If
Next
End If
'loescht das Datum in Ende, falls die Zelle mit dem gleichen Datum im Kalender  _
deaktiviert wird
If Cells(ActiveCell.Row, 9).Value = Cells(6, ActiveCell.Column).Value Then
Cells(ActiveCell.Row, 9).Value = vbNullString
Dim rngCellTwo As Range
For Each rngCellTwo In Range(Cells(ActiveCell.Row, 12, ActiveCell)) 'gehe  _
von der markierten Zelle das restliche Jahr in dieser Zeile durch
If rngCellTwo.Interior.ColorIndex  xlColorIndexNone Then
Cells(ActiveCell.Row, 9).Value = Cells(6, rngCellTwo.Column).Value
Exit For    'Wenn er den ersten Wert gefunden hat verlasse die Schleife
End If
Next
End If

Der obere Teil mit dem Beginn funktioniert einwandfrei, jz soll das ganze eigentlich nurnoch gespiegelt werden.
Vielen Dank für Eure Hilfe schonmal.
Grus Aelli

'loescht das Datum in Beginn, falls die Zelle mit dem gleichen Datum im Kalender deaktiviert _ wird If Cells(ActiveCell.Row, 8).Value = Cells(6, ActiveCell.Column).Value Then Cells(ActiveCell.Row, 8).Value = vbNullString Dim rngCell As Range For Each rngCell In Range(ActiveCell, Cells(ActiveCell.Row, 377)) 'gehe von _ der markierten Zelle das restliche Jahr in dieser Zeile durch If rngCell.Interior.ColorIndex xlColorIndexNone Then Cells(ActiveCell.Row, 8).Value = Cells(6, rngCell.Column).Value Exit For 'Wenn er den ersten Wert gefunden hat verlasse die Schleife End If Next End If 'loescht das Datum in Ende, falls die Zelle mit dem gleichen Datum im Kalender _ deaktiviert wird If Cells(ActiveCell.Row, 9).Value = Cells(6, ActiveCell.Column).Value Then Cells(ActiveCell.Row, 9).Value = vbNullString Dim rngCellTwo As Range For Each rngCellTwo In Range(Cells(ActiveCell.Row, 12, ActiveCell)) 'gehe _ von der markierten Zelle das restliche Jahr in dieser Zeile durch If rngCellTwo.Interior.ColorIndex xlColorIndexNone Then Cells(ActiveCell.Row, 9).Value = Cells(6, rngCellTwo.Column).Value Exit For 'Wenn er den ersten Wert gefunden hat verlasse die Schleife End If Next End If

Beliebteste Forumthreads (12 Monate)

in VBA Zeile mit for schleife durchsuchen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

in VBA Zeile mit for schleife durchsuchen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread