Hallo Freunde,

ich möchte aus einem Urlaubsplan (Zeile 1 besteht aus „Datums“ Zellen),
jede Zeile einzeln durchlaufen lassen, und an der Stelle an der, der Buchstabe u gefunden wird, das Datum(Zeile 1) in der Zelle x+41 KopierenM SO dass am Ende jeder Urlaubstag ausgelesen werden kann.

Kann mir jemand helfen? Ich habe es wie folgt, versucht aber.............


Dim x, y As Integer

ThisWorkbook.Activate
Worksheets("Mrz").Activate
Dim Urlaub As Variant

For x = 2 To 32
For y = 4 To 100

Urlaub = Cells(y, x).Value

Urlaub = Cells.Find("u", LookIn:=xlValues)

If Urlaub = "u" Then

Worksheets("Mrz").Cells(1, x).Select
Selection.Copy
Worksheets("Mrz").Cells(y, x + 41).Select
Selection.PasteSpecial xlPasteValues
Else:
Urlaub = ""
x = x + 1

End If
Next x
Next y
End Sub



Am Ende will ich alle Urlaubstage in einer Zelle zusammenfassen

Vielen Dank im Voraus

Erstmal brauchst du die ganzen .activate und .select und copy nicht; Siehe dazu http://www.online-excel.de/excel/singsel_vba.php?f=78
Dann definiere deinen Suchbereich als Range, den kannst du dann mit for..each durchlaufen.
etwas in der art:


musste noch etwas an deine Bedürfnisse anpassen...

Hallo FloFuchs

für Deine wertvolle Tips bedanke ich mich sehr,

es ist mir gelungen Dein Beispilcod anzupassen, aber.....

weiter habe ich versucht alle einzelne Tage in einer Zelle zu bringen,

mit Join(), ich hänge weiter daran, dass Join() von den leeren Zellen mir das

Trennzeichen ungewolt mitbringt. Akso ich möchte keine Trennzeichen von den leeren "" Zellen.



Gruß

Ich bin mir nicht sicher, daß ich wirklich verstehe was du willst
Wie genau sieht Dein Code mit dem Join denn aus?
Ich habe damit nicht gearbeitet bisher.
Ansonsten einfach in die for each Schleife mit rein packen...