Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Monatserster bis Letzter

Monatserster bis Letzter
06.11.2007 18:06:07
Heinz
Hallo Leute
Habe unteres Macro der mir in A6:A28 die Tage Montag bis Freitag anzeigt.
Nur ist das ein Problem im Februar mit 28,29, bzw 30+31 Tage.
Hätte hirzu jemand ein Lösung,das nur die Tage bis zum Monatsletzten anzeigt.
Nicht so wie jetzt zB. A24 =30.4.2007 A25= 00.01.1900
A25 sollte dann leer bleiben.
Danke & Gruß Heinz
Function meinmonat(tag As Date) As Date tag = Day(tag) & "." & Month(tag) & "." & Year(tag) If Weekday(tag) = 7 Then tag = tag + 2 If Weekday(tag) = 1 Then tag = tag + 1 meinmonat = tag End Function


14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Monatserster bis Letzter
06.11.2007 18:16:03
Tino
Hallo,
so
Tabelle1

 AB
1Donnerstag, 1. Februar 200701.02.2007
2Freitag, 2. Februar 2007 
3Montag, 5. Februar 2007 
4Dienstag, 6. Februar 2007 
5Mittwoch, 7. Februar 2007 
6Donnerstag, 8. Februar 2007 
7Freitag, 9. Februar 2007 
8Montag, 12. Februar 2007 
9Dienstag, 13. Februar 2007 
10Mittwoch, 14. Februar 2007 
11Donnerstag, 15. Februar 2007 
12Freitag, 16. Februar 2007 
13Montag, 19. Februar 2007 
14Dienstag, 20. Februar 2007 
15Mittwoch, 21. Februar 2007 
16Donnerstag, 22. Februar 2007 
17Freitag, 23. Februar 2007 
18Montag, 26. Februar 2007 
19Dienstag, 27. Februar 2007 
20Mittwoch, 28. Februar 2007 
21Donnerstag, 1. März 2007 
22Freitag, 2. März 2007 
23Montag, 5. März 2007 
24Dienstag, 6. März 2007 
25Mittwoch, 7. März 2007 
26Donnerstag, 8. März 2007 
27Freitag, 9. März 2007 
28Montag, 12. März 2007 
29Dienstag, 13. März 2007 
30Mittwoch, 14. März 2007 

Formeln der Tabelle
ZelleFormel
A1=meinmonat(B1)
A2=meinmonat(A1+1)
A3=meinmonat(A2+1)
A4=meinmonat(A3+1)
A5=meinmonat(A4+1)
A6=meinmonat(A5+1)
A7=meinmonat(A6+1)
A8=meinmonat(A7+1)
A9=meinmonat(A8+1)
A10=meinmonat(A9+1)
A11=meinmonat(A10+1)
A12=meinmonat(A11+1)
A13=meinmonat(A12+1)
A14=meinmonat(A13+1)
A15=meinmonat(A14+1)
A16=meinmonat(A15+1)
A17=meinmonat(A16+1)
A18=meinmonat(A17+1)
A19=meinmonat(A18+1)
A20=meinmonat(A19+1)
A21=meinmonat(A20+1)
A22=meinmonat(A21+1)
A23=meinmonat(A22+1)
A24=meinmonat(A23+1)
A25=meinmonat(A24+1)
A26=meinmonat(A25+1)
A27=meinmonat(A26+1)
A28=meinmonat(A27+1)
A29=meinmonat(A28+1)
A30=meinmonat(A29+1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss
Tino

Anzeige
AW: Monatserster bis Letzter
06.11.2007 19:03:00
Heinz
Hallo Tino
So hab ich es, ABER dann bekomme ich auch nach dem zb. 30 April kommt dann 01.01.1900
Es dürfte aber nur bis zum 30. April gehen. Jedes Tab.Blatt darf nur vom 1. bis zum Monatsletzten gehen.
Gruß Heinz

AW: Monatserster bis Letzter
06.11.2007 19:31:21
Ramses
Hallo
Nachdem dies kein Makro ist, sondern eine Funktion die sowieso in jeder Zelle stehen muss, kannst du auch eine Formel verwenden.
Tabelle1

 ABCD
1JanuarFebruarMärz 
225.01.200725.02.200725.03.2007 
326.01.200726.02.200726.03.2007 
427.01.200727.02.200727.03.2007 
528.01.200728.02.200728.03.2007 
629.01.2007 29.03.2007 
730.01.2007 30.03.2007 
831.01.2007 31.03.2007 
9    
10    

Formeln der Tabelle
ZelleFormel
A3=WENN(A2="";"";WENN(MONAT(A2+1)<>MONAT(A2); "";A2+1))
B3=WENN(B2="";"";WENN(MONAT(B2+1)<>MONAT(B2); "";B2+1))
C3=WENN(C2="";"";WENN(MONAT(C2+1)<>MONAT(C2); "";C2+1))
A4=WENN(A3="";"";WENN(MONAT(A3+1)<>MONAT(A3); "";A3+1))
B4=WENN(B3="";"";WENN(MONAT(B3+1)<>MONAT(B3); "";B3+1))
C4=WENN(C3="";"";WENN(MONAT(C3+1)<>MONAT(C3); "";C3+1))
A5=WENN(A4="";"";WENN(MONAT(A4+1)<>MONAT(A4); "";A4+1))
B5=WENN(B4="";"";WENN(MONAT(B4+1)<>MONAT(B4); "";B4+1))
C5=WENN(C4="";"";WENN(MONAT(C4+1)<>MONAT(C4); "";C4+1))
A6=WENN(A5="";"";WENN(MONAT(A5+1)<>MONAT(A5); "";A5+1))
B6=WENN(B5="";"";WENN(MONAT(B5+1)<>MONAT(B5); "";B5+1))
C6=WENN(C5="";"";WENN(MONAT(C5+1)<>MONAT(C5); "";C5+1))
A7=WENN(A6="";"";WENN(MONAT(A6+1)<>MONAT(A6); "";A6+1))
B7=WENN(B6="";"";WENN(MONAT(B6+1)<>MONAT(B6); "";B6+1))
C7=WENN(C6="";"";WENN(MONAT(C6+1)<>MONAT(C6); "";C6+1))
A8=WENN(A7="";"";WENN(MONAT(A7+1)<>MONAT(A7); "";A7+1))
B8=WENN(B7="";"";WENN(MONAT(B7+1)<>MONAT(B7); "";B7+1))
C8=WENN(C7="";"";WENN(MONAT(C7+1)<>MONAT(C7); "";C7+1))
A9=WENN(A8="";"";WENN(MONAT(A8+1)<>MONAT(A8); "";A8+1))
B9=WENN(B8="";"";WENN(MONAT(B8+1)<>MONAT(B8); "";B8+1))
C9=WENN(C8="";"";WENN(MONAT(C8+1)<>MONAT(C8); "";C8+1))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss Rainer

Anzeige
AW: Monatserster bis Letzter
06.11.2007 19:46:34
Heinz
Hallo Rainer
Danke für Deinen Vorschlag,aber ich bräuchte nur die Tage von Mon. bis Freitag,also ohne Sam.& Son.
Darum das Makro.
Danke & Gruß Heinz

AW: Monatserster bis Letzter
06.11.2007 19:56:00
Ramses
Hallo
dann halt ein wenig länger :-)
Tabelle1

 ABCD
1JanuarFebruarMärz 
225.01.200725.02.200725.03.2007So
326.01.200726.02.200726.03.2007 
429.01.200727.02.200727.03.2007 
530.01.200728.02.200728.03.2007 
631.01.2007 29.03.2007 
7  30.03.2007 
8    

Formeln der Tabelle
ZelleFormel
D2=C2
A3=WENN(A2="";"";WENN(MONAT(A2+1)<>MONAT(A2); "";WENN(WOCHENTAG(A2+1;2)=6;WENN(MONAT(A2+3)<>MONAT(A2); "";A2+3); A2+1)))
B3=WENN(B2="";"";WENN(MONAT(B2+1)<>MONAT(B2); "";WENN(WOCHENTAG(B2+1;2)=6;WENN(MONAT(B2+3)<>MONAT(B2); "";B2+3); B2+1)))
C3=WENN(C2="";"";WENN(MONAT(C2+1)<>MONAT(C2); "";WENN(WOCHENTAG(C2+1;2)=6;WENN(MONAT(C2+3)<>MONAT(C2); "";C2+3); C2+1)))
A4=WENN(A3="";"";WENN(MONAT(A3+1)<>MONAT(A3); "";WENN(WOCHENTAG(A3+1;2)=6;WENN(MONAT(A3+3)<>MONAT(A3); "";A3+3); A3+1)))
B4=WENN(B3="";"";WENN(MONAT(B3+1)<>MONAT(B3); "";WENN(WOCHENTAG(B3+1;2)=6;WENN(MONAT(B3+3)<>MONAT(B3); "";B3+3); B3+1)))
C4=WENN(C3="";"";WENN(MONAT(C3+1)<>MONAT(C3); "";WENN(WOCHENTAG(C3+1;2)=6;WENN(MONAT(C3+3)<>MONAT(C3); "";C3+3); C3+1)))
A5=WENN(A4="";"";WENN(MONAT(A4+1)<>MONAT(A4); "";WENN(WOCHENTAG(A4+1;2)=6;WENN(MONAT(A4+3)<>MONAT(A4); "";A4+3); A4+1)))
B5=WENN(B4="";"";WENN(MONAT(B4+1)<>MONAT(B4); "";WENN(WOCHENTAG(B4+1;2)=6;WENN(MONAT(B4+3)<>MONAT(B4); "";B4+3); B4+1)))
C5=WENN(C4="";"";WENN(MONAT(C4+1)<>MONAT(C4); "";WENN(WOCHENTAG(C4+1;2)=6;WENN(MONAT(C4+3)<>MONAT(C4); "";C4+3); C4+1)))
A6=WENN(A5="";"";WENN(MONAT(A5+1)<>MONAT(A5); "";WENN(WOCHENTAG(A5+1;2)=6;WENN(MONAT(A5+3)<>MONAT(A5); "";A5+3); A5+1)))
B6=WENN(B5="";"";WENN(MONAT(B5+1)<>MONAT(B5); "";WENN(WOCHENTAG(B5+1;2)=6;WENN(MONAT(B5+3)<>MONAT(B5); "";B5+3); B5+1)))
C6=WENN(C5="";"";WENN(MONAT(C5+1)<>MONAT(C5); "";WENN(WOCHENTAG(C5+1;2)=6;WENN(MONAT(C5+3)<>MONAT(C5); "";C5+3); C5+1)))
A7=WENN(A6="";"";WENN(MONAT(A6+1)<>MONAT(A6); "";WENN(WOCHENTAG(A6+1;2)=6;WENN(MONAT(A6+3)<>MONAT(A6); "";A6+3); A6+1)))
B7=WENN(B6="";"";WENN(MONAT(B6+1)<>MONAT(B6); "";WENN(WOCHENTAG(B6+1;2)=6;WENN(MONAT(B6+3)<>MONAT(B6); "";B6+3); B6+1)))
C7=WENN(C6="";"";WENN(MONAT(C6+1)<>MONAT(C6); "";WENN(WOCHENTAG(C6+1;2)=6;WENN(MONAT(C6+3)<>MONAT(C6); "";C6+3); C6+1)))
A8=WENN(A7="";"";WENN(MONAT(A7+1)<>MONAT(A7); "";WENN(WOCHENTAG(A7+1;2)=6;WENN(MONAT(A7+3)<>MONAT(A7); "";A7+3); A7+1)))
B8=WENN(B7="";"";WENN(MONAT(B7+1)<>MONAT(B7); "";WENN(WOCHENTAG(B7+1;2)=6;WENN(MONAT(B7+3)<>MONAT(B7); "";B7+3); B7+1)))
C8=WENN(C7="";"";WENN(MONAT(C7+1)<>MONAT(C7); "";WENN(WOCHENTAG(C7+1;2)=6;WENN(MONAT(C7+3)<>MONAT(C7); "";C7+3); C7+1)))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss Rainer

Anzeige
AW: Monatserster bis Letzter
06.11.2007 20:00:00
Heinz
Hallo Rainer
Perfekt !!
Recht herzlichen Dank.
Gruß Heinz

AW: Arbeitstage bis Monatsletzter
06.11.2007 20:20:00
Erich
Hallo Heinz,
oder so:
 ABC
1JanuarFebruarMärz
221.01.200723.02.200730.03.2007
322.01.200726.02.2007 

Formeln der Tabelle
ZelleFormel
A3=WENN(A2="";"";WENN(MONAT(A2+1+2*(WOCHENTAG(A2+1;2)=6))<>MONAT(A2); ""; A2+1+2*(WOCHENTAG(A2+1;2)=6)))
B3=WENN(B2="";"";WENN(MONAT(B2+1+2*(WOCHENTAG(B2+1;2)=6))<>MONAT(B2); ""; B2+1+2*(WOCHENTAG(B2+1;2)=6)))
C3=WENN(C2="";"";WENN(MONAT(C2+1+2*(WOCHENTAG(C2+1;2)=6))<>MONAT(C2); ""; C2+1+2*(WOCHENTAG(C2+1;2)=6)))

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Arbeitstage bis Monatsletzter
06.11.2007 20:22:00
Heinz
Hallo Erich
Ihr seit alle Super drauf !!!!!
Recht herzlichen Dank
DANKE & Gruß Heinz

AW: Monatserster bis Letzter
06.11.2007 20:02:00
Josef
Hallo Heinz,
mit dieser Formel.
Tabelle1

 A
1Di          01.01.2008
2Mi         02.01.2008
3Do         03.01.2008
4Fr          04.01.2008
5Mo        07.01.2008
6Di          08.01.2008
7Mi         09.01.2008
8Do         10.01.2008
9Fr          11.01.2008
10Mo        14.01.2008
11Di          15.01.2008
12Mi         16.01.2008
13Do         17.01.2008
14Fr          18.01.2008
15Mo        21.01.2008
16Di          22.01.2008
17Mi         23.01.2008
18Do         24.01.2008
19Fr          25.01.2008
20Mo        28.01.2008
21Di          29.01.2008
22Mi         30.01.2008
23Do         31.01.2008
24 
25 
26 
27 
28 

Formeln der Tabelle
ZelleFormel
A2=WENN(A1="";"";WENN(MONAT(A1+1)=MONAT($A$1); A1+1+(WOCHENTAG(A1;2)=5)*2;""))
Excel Tabellen im Web darstellen  Excel Jeanie HTML
Gruß Sepp

Anzeige
AW: Monatserster bis Letzter
06.11.2007 20:17:37
Heinz
Hallo Josef
Auch Dir recht herzlichen Dank !!
Funkt.Super.
Gruß Heinz

AW: Monatserster bis Letzter
06.11.2007 20:26:00
Erich
Hallo Sepp,
deine Formel funzt nicht immer - F5 sollte leer sein...
 F
1Juni
227.06.2007
328.06.2007
429.06.2007
502.07.2007

Formeln der Tabelle
ZelleFormel
F3=WENN(F2="";"";WENN(MONAT(F2+1)=MONAT(F$2); F2+1+(WOCHENTAG(F2;2)=5)*2;""))
F4=WENN(F3="";"";WENN(MONAT(F3+1)=MONAT(F$2); F3+1+(WOCHENTAG(F3;2)=5)*2;""))
F5=WENN(F4="";"";WENN(MONAT(F4+1)=MONAT(F$2); F4+1+(WOCHENTAG(F4;2)=5)*2;""))

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Monatserster bis Letzter
06.11.2007 20:30:47
Heinz
Hallo Erich
Bei Funkts. aber 100%
Gruß Heinz

AW: Monatserster bis Letzter
06.11.2007 20:52:00
Josef
Hallo Erich hast recht, die Formel muss so lauten.
Tabelle1

 A
1Mi         27.06.2007
2Do         28.06.2007
3Fr          29.06.2007
4 
5 

Formeln der Tabelle
ZelleFormel
A2=WENN(A1="";"";WENN(MONAT(A1+1+(WOCHENTAG(A1;2)=5)*2)=MONAT(A$1); A1+1+(WOCHENTAG(A1;2)=5)*2;""))
Excel Tabellen im Web darstellen  Excel Jeanie HTML
Gruß Sepp

Anzeige

299 Forumthreads zu ähnlichen Themen

Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
Anzeige
aufrunden bis zu nächstem listeneintrag
lukas

moin moin die excelianer!
habe wiedermal ein kleines problem, bei welchem ihr mir behilflich sein könntet...
ich habe eine liste, die in etwa so aussieht: (die werte können variieren!)
45
100
300
500
...
jetzt habe ich noch eine zahl, die ich gerne jeweils zur nä...
08.09.2008 13:09:00
Thread-ID: 1008127
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Alee Zeilen bis auf bestimmte löschen
Silke

Hallo,
in meiner Liste muss ich Zählerstände den Kostenstellen zuordnen.
https://www.herber.de/bbs/user/59754.xls
Ich importiere eine TXT-Datei, die ich vom Drucker exportiere ins Excel. Leider sind viele Zeile dabei, die ich für die Auswertung nicht brauche.
In meiner Liste se...
25.02.2009 11:09:02
Thread-ID: 1053794
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
16
9
4
4
3
7
2
2
12
1
3
3
9
2
2
2
3
4
1
2
11
3
2
5