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
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