Home Office-Hilfe.com - Wir lösen Ihr Problem mit Microsoft Excel, Word, Outlook, PowerPoint, Access gratis Forum Impressum

  Tagesstärke/Urlaubsliste
Neues Thema eröffnenNeue Antwort erstellen
Autor Nachricht
gook
Schlauberger
Schlauberger


Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

BeitragVerfasst am: 06.02.2008, 19:57 Nach oben

Hallo zusammen, ich hätte gerne in meiner Urlaubsliste eine Tagesstärke.
Dort soll immer die Stärke für den jeweiligen Tag stehen. Und noch aufgesplittet in 3 Kategorien siehe meine Mappe.

Danke schonmal im Voraus

_________________
_____________

Gruß Manuel

Zuletzt bearbeitet von gook am 07.10.2008, 14:43, insgesamt einmal bearbeitet
Benutzer-Profile anzeigenPrivate Nachricht sendenE-Mail senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5749

BeitragVerfasst am: 06.02.2008, 22:01 Nach oben

Hallo!

Für die Offiziere:
=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT("C"&ZEILE(6:24)))*(INDEX(D6:AL24;;VERGLEICH(HEUTE();D5:AL5;))="")*(B6:B24="Hptm"))

Für die Feldwebel:
=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT("C"&ZEILE(6:24)))*(INDEX(D6:AL24;;VERGLEICH(HEUTE();D5:AL5;))="")*(((B6:B24="StFw")+(B6:B24="HFw")+(B6:B24="OFw")+(B6:B24="Fw")+(B6:B24="SU")+(B6:B24="U"))>0))

Für die Mannschaften:
=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT("C"&ZEILE(6:24)))*(INDEX(D6:AL24;;VERGLEICH(HEUTE();D5:AL5;))="")*(((B6:B24="SG")+(B6:B24="HG")+(B6:B24="OG")+(B6:B24="G")+(B6:B24="FU"))>0))

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!
Benutzer-Profile anzeigenPrivate Nachricht senden
gook
Schlauberger
Schlauberger


Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

BeitragVerfasst am: 06.02.2008, 22:20 Nach oben

Perfekt!! Kann die Formel zwar selber nicht ganz verstehen^^ aber sie geht das ist das wichtigste. DANKE!!
Benutzer-Profile anzeigenPrivate Nachricht sendenE-Mail senden
gook
Schlauberger
Schlauberger


Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

BeitragVerfasst am: 31.03.2008, 21:56 Nach oben

Hallo ist es möglich in meiner Urlaubsliste an jedem neuen Tag die Spalte D zu löschen und am ende bei IV eine neue Spalte einzufügen? Also so das es sozusagen eine unedliche Urlaubsliste wird?

Danke im Voraus
Benutzer-Profile anzeigenPrivate Nachricht sendenE-Mail senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5749

BeitragVerfasst am: 31.03.2008, 22:15 Nach oben

Hallo!

Das hier schmeißt der Makrorekorder aus, wenn ich
a) den Zellen D5:D24 lösche und
b) den Bereich AK5:AL24 am schwarzen Quadrat um eine Spalte nach rechts erweitere.
Code:
Sub Makro1()
    Range("D5:D24").Select
    Selection.Delete Shift:=xlToLeft
    Range("AJ5:AK24").Select
    Selection.AutoFill Destination:=Range("AJ5:AL24"), Type:=xlFillDefault
    Range("AJ5:AL24").Select
End Sub

Das Ergebnis ist das, was du wolltest.
Gekürzt bleibt dies:
Code:
Sub Makro1()
    Range("D5:D24").Delete Shift:=xlToLeft
    Range("AJ5:AK24").AutoFill Destination:=Range("AJ5:AL24"), Type:=xlFillDefault
End Sub


Kann aber sein, dass es dir dann deine obigen Formeln zerhaut und du deshalb noch ein bisschen INDIREKT einbauen musst:

=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT("C"&ZEILE(6:24)))*(INDEX(INDIREKT("D6:AL24");;VERGLEICH(HEUTE();INDIREKT("D5:AL5");))="")*(B6:B24="Hptm"))

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!
Benutzer-Profile anzeigenPrivate Nachricht senden
gook
Schlauberger
Schlauberger


Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

BeitragVerfasst am: 31.03.2008, 22:19 Nach oben

Ok alles klar und wie bekomme ich es hin das es das Makro an jedem Neuen Tag ausführt?
Benutzer-Profile anzeigenPrivate Nachricht sendenE-Mail senden
schatzi
Moderator
Moderator


Anmeldedatum: 09.12.2006
Beiträge: 5749

BeitragVerfasst am: 31.03.2008, 22:29 Nach oben

Hallo!

Vielleicht so?

Do Until Range("D5") = Date
'Dein Code
Loop

Und das ganze dann in ein Workbook_Open-Ereignis packen.

PS: Sicherheitshalber besser noch eine If-Then drumrum, sonst landest du in einer Endlos-Schleife, falls das Datum in D5 aus irgendwelchen Gründen größer ist als das aktuelle:

If Range("D5") < Date Then
Do Until...
...
Loop
End If

_________________

Viele Grüße vom Schatzi

------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!
Benutzer-Profile anzeigenPrivate Nachricht senden
gook
Schlauberger
Schlauberger


Anmeldedatum: 25.11.2007
Beiträge: 490
Wohnort: Fridingen an der Donau

BeitragVerfasst am: 31.03.2008, 22:35 Nach oben

Ja natürlich ! Wieso bin ich da nicht draufgekommen! Alles klar werde das morgen mal ausprobieren! Gruß
Benutzer-Profile anzeigenPrivate Nachricht sendenE-Mail senden
Beiträge der letzten Zeit anzeigen:      
Neues Thema eröffnenNeue Antwort erstellen


Ähnliche Beiträge
Thema Autor Forum Antworten Verfasst am
Keine neuen Beiträge Urlaubsliste cedric Microsoft Excel Hilfe 2 10.08.2008, 16:50 Letzten Beitrag anzeigen
Keine neuen Beiträge Urlaubsliste??? Mafiosi Microsoft Excel Hilfe 10 07.11.2006, 16:56 Letzten Beitrag anzeigen


 Gehe zu:   



Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer


SMS kostenlos versenden | Battle-Dream | Tuning Forum | Join the YoungGeneration | krankenversicherungsvergleich | Kalorienarme Rezepte!
Versicherungsvergleich | Bürobedarf | Papier | Betten

Ranking-Hits



Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de