Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Eine Exeldatei jede einzelne Zeile nach einem Buchstaben durchsuchen,
Autor: infinit
Datum: 19.03.12 03:01
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

Eine Exeldatei jede einzelne Zeile nach einem Buchstaben dur...	1.128	infinit	19.03.12 03:01
Re: Eine Exeldatei jede einzelne Zeile nach einem Buchstaben...	519	Giasinga	20.03.12 10:03
Re: Eine Exeldatei jede einzelne Zeile nach einem Buchstaben...	486	infinit	21.03.12 05:05

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen