Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wochentage im VBA aufsplitten, aber wie?

Wochentage im VBA aufsplitten, aber wie?
08.01.2007 07:47:21
Midgaardslang
Hallo,
habe noch ein Problem, nachdem mir Bertram hier aus dem Forum so perfekt geholfen hat, nochmals Danke.
Und zwar möchte ich gerne mit VBA Wochentage feststellen, oder generell anfragen wie ein Ansatz dazu aussehen könnte. Ich bräuchte eine Aufteilung in Mo-Do und Fr, und das über das ganze Jahr. Mir wäre es im Extremfall auch nicht zu umständlich, alle Wochen nach R10:R13 und R14 zu sortieren. Leider wüßte ich nur, wie man dies mit einer Formel bewerkstelligen könnte, jedoch nicht wie mit VBA.
Da ich bereits den mir hier gelieferten Ansatz im VBA meinen Bedürfnissen angepasst habe, und idealerweise alle von mir in unterschiedlicher Farbe markierten Tage perfekt auszählen lassen konnte, würde ich dieses Makro gerne vervollständigen und mir die markierten Tage in Mo-Do und Fr aufsplitten, um diese Daten dann weiterzuverwenden.
Über jede Form von Hilfe bin ich natürlich sehr dankbar...

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wochentage im VBA aufsplitten, aber wie?
08.01.2007 07:58:00
Heiko
Hallo ?,
du sprichst in Rätsel und lange im Archiv zu suchen was du denn mal für einen Code von Bertram bekommen hast, willst du uns doch nicht wirklich zumuten. !!!
Aus einem Datum den Wochentag zu bekommen geht grundsätzlich mit der WeekDay Funktion:

Sub TestT()
MsgBox Weekday(CDate("08.01.07"))
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Wochentage im VBA aufsplitten, aber wie?
08.01.2007 08:05:56
Midgaardslang
Bertram hat mir nur einen guten Code gegeben mit Integer Funktion gegeben, der die Anzahl Zellen zählt, die in verschiedenen Farben markiert sind.
Habe leider kein Datumsangabe integriert, daher wär es mir auch recht, im VBA alle Mo-Do als bsp R10:R13 und alle Freitage als R14 einzutragen, und dann diese sortieren zu lassen.
Beispiel 2 Freitag sind rot markiert, 4 "rote" Tage an anderen Werktagen, im Endeffekt möchte ich in einer Zelle 2, in der anderen 4 stehen haben.
Hier nochmal mein angepasster Code:

Sub TageAuszählen()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
Dim intRosa As Integer
Dim intGrau As Integer
intRot = 0
intGelb = 0
intGrün = 0
intRosa = 0
intGrau = 0
For Each zelle In Range("A1:M140").Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "43" Then intGrün = intGrün + 1
If zelle.Interior.ColorIndex = "15" Then intGrau = intGrau + 1
If zelle.Interior.ColorIndex = "7" Then intRosa = intRosa + 1
Next zelle
Range("P20").Value = intGrün
Range("P21").Value = intRot
Range("P22").Value = intGelb
Range("P23").Value = intGrau
Range("P24").Value = intRosa
End Sub

Anzeige
Noch offen !!!
08.01.2007 08:18:49
Heiko
Hallo ?
das ist mir zu kompliziert, ich bin raus !!!
Frage also noch offen für weitere Vorschläge !!!
Gruß Heiko
AW: Noch offen !!!
08.01.2007 08:20:45
Midgaardslang
Kein Problem,
bin gerade selber nach Drübergucken über eine mögliche Lösung gestolpert, wenns geklappt hat, poste ich das Ergebnis hier.
AW: Noch offen !!!
08.01.2007 08:27:50
Midgaardslang
Hallo,
habe es jetzt so gelöst, dachte nicht das es geht, bin wie gesagt leider VBA-n00bie.
For Each zelle In Range("D8:D11,F8:F11,H8:H11,J8:J11,L8:L11,usw.").Cells
Einziges Problem, das ich jetzt noch habe, wie kann ich mir an zeigen lassen, das er
D8:D11,F8:F11,H8:H11 usw in Zelle A
und D12,F12,H12 ind Zelle B zählt, wenn man von dem vorher geposteten Code ausgeht?
Danke
Anzeige
AW: Noch offen !!!
08.01.2007 08:55:38
Bertram
Guten Morgen,
am Einfachsten wäre es wohl, wenn du mal deine (abgespeckte) Datei hochlädst und dort reinschreibst was wohin gezählt werden soll.
Gruß
Bertram
AW: Noch offen !!!
08.01.2007 09:11:33
Franc
Denk auch das es das beste ist wenn du die Datei hochlädst. Ich habe auch net soviel Ahnung aber der Code den du gepostet hast, ist doch sehr einfach zu verstehen.
Zu deiner Frage
Erst werden die Variablen festgelegt und hier wird auch gleich gesagt was die Variablen enthalten sollten. Integer heisst in dem Fall, das die Variable eine Zahl von -32768 bis 32767 enthalten darf.
Mit den nächsten Zeilen wird geprüft welche Farbe die Zelle hat und je nachdem die entsprechende Variable hochgezählt.
Zum Schluß noch den Ausgabeort angeben.
In deinem Fall würde das dann so aussehen wobei x für den Namen deiner Variablen steht.
[A1] = x
PS: Das man jeden Bereich angibt wo ein entsprechender Wochentag auftaucht, ist umständlich.
Anzeige
AW: Noch offen !!!
08.01.2007 10:33:00
Midgaardslang
Hallo,
habe es soweit doch allein geschafft, und nach 1 2 Problemen am Anfang läuft es sogar.
Hätte jetzt ein anderes, da ich den Code mal unten anfüge.
Kann ich ein Makro erstellen, das alle anderen ausführt, ohne das ich jedesmal alle aufrufen muss? Code is unten dran, Datei kann ich leider nicht hochladen, diese ist um die 4500 KByte groß. Außerdem will ich ja auch was Lernen, um nicht in 10 Tagen das gleiche zu fragen und nicht euch alle Arbeit machen lassen. Ich bin ja schon für deine geleistete Hilfe sehr dankbar @Bertram.

Sub TageAuszählenMoDoFrühjahr()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
Dim intRosa As Integer
Dim intGrau As Integer
intRot = 0
intGelb = 0
intGrün = 0
intRosa = 0
intGrau = 0
For Each zelle In Range("D8:L11,D19:L22,D30:J33").Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "43" Then intGrün = intGrün + 1
If zelle.Interior.ColorIndex = "15" Then intGrau = intGrau + 1
If zelle.Interior.ColorIndex = "7" Then intRosa = intRosa + 1
Next zelle
Range("P20").Value = intGrün
Range("P21").Value = intRot
Range("P22").Value = intGelb
Range("P23").Value = intGrau
Range("P24").Value = intRosa
End Sub



Sub TageAuszählenMoDoSommer()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
Dim intRosa As Integer
Dim intGrau As Integer
intRot = 0
intGelb = 0
intGrün = 0
intRosa = 0
intGrau = 0
For Each zelle In Range("L30:33,D42:L45,D53:L56,D64:L67,D76:L79,D87:L90,D98:L101").Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "43" Then intGrün = intGrün + 1
If zelle.Interior.ColorIndex = "15" Then intGrau = intGrau + 1
If zelle.Interior.ColorIndex = "7" Then intRosa = intRosa + 1
Next zelle
Range("T20").Value = intGrün
Range("T21").Value = intRot
Range("T22").Value = intGelb
Range("T23").Value = intGrau
Range("T24").Value = intRosa
End Sub



Sub TageAuszählenMoDoWinter()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
Dim intRosa As Integer
Dim intGrau As Integer
intRot = 0
intGelb = 0
intGrün = 0
intRosa = 0
intGrau = 0
For Each zelle In Range("D110:L113,D121:L124,D132:N135").Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "43" Then intGrün = intGrün + 1
If zelle.Interior.ColorIndex = "15" Then intGrau = intGrau + 1
If zelle.Interior.ColorIndex = "7" Then intRosa = intRosa + 1
Next zelle
Range("X20").Value = intGrün
Range("X21").Value = intRot
Range("X22").Value = intGelb
Range("X23").Value = intGrau
Range("X24").Value = intRosa
End Sub



Sub TageAuszählenFrFrühjahr()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
Dim intRosa As Integer
Dim intGrau As Integer
intRot = 0
intGelb = 0
intGrün = 0
intRosa = 0
intGrau = 0
For Each zelle In Range("D12:L12,D23:L23,D34:J34").Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "43" Then intGrün = intGrün + 1
If zelle.Interior.ColorIndex = "15" Then intGrau = intGrau + 1
If zelle.Interior.ColorIndex = "7" Then intRosa = intRosa + 1
Next zelle
Range("Q20").Value = intGrün
Range("Q21").Value = intRot
Range("Q22").Value = intGelb
Range("Q23").Value = intGrau
Range("Q24").Value = intRosa
End Sub



Sub TageAuszählenFrSommer()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
Dim intRosa As Integer
Dim intGrau As Integer
intRot = 0
intGelb = 0
intGrün = 0
intRosa = 0
intGrau = 0
For Each zelle In Range("L34,D46:L46,D57:L57,D68:L68,D80:L80,D91:L91,D102:L102").Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "43" Then intGrün = intGrün + 1
If zelle.Interior.ColorIndex = "15" Then intGrau = intGrau + 1
If zelle.Interior.ColorIndex = "7" Then intRosa = intRosa + 1
Next zelle
Range("U20").Value = intGrün
Range("U21").Value = intRot
Range("U22").Value = intGelb
Range("U23").Value = intGrau
Range("U24").Value = intRosa
End Sub



Sub TageAuszählenFrWinter()
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
Dim intRosa As Integer
Dim intGrau As Integer
intRot = 0
intGelb = 0
intGrün = 0
intRosa = 0
intGrau = 0
For Each zelle In Range("D114:L114,D125:L125,D136:N136").Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "43" Then intGrün = intGrün + 1
If zelle.Interior.ColorIndex = "15" Then intGrau = intGrau + 1
If zelle.Interior.ColorIndex = "7" Then intRosa = intRosa + 1
Next zelle
Range("Y20").Value = intGrün
Range("Y21").Value = intRot
Range("Y22").Value = intGelb
Range("Y23").Value = intGrau
Range("Y24").Value = intRosa
End Sub

Anzeige
AW: Noch offen !!!
08.01.2007 10:59:20
Bertram
Hi,
im Prinzip kanst du ein Makro schreiben, das dir alle nacheinander ausführt:

Sub Alle()
Call MoDoFrühjahr
Call MoDoSommer
etc.
End Sub

Das ist allerdings sehr unschön, da sich ja nur die Bereiche ändern, ansonsten der Code aber gleich ist. Besser du vergibst für deine Bereich Namen und sprichst diese dann im Code an. Folgender Code ist zwar auch nicht das Highlight der Programmierkunst, sollte aber funktionieren, wenn du die entsprechenden Namen vergibst.

Sub TageAuszählenMoDoFrühjahr()
Dim i As Integer
Dim zelle As Range
Dim intGelb As Integer
Dim intRot As Integer
Dim intGrün As Integer
Dim intRosa As Integer
Dim intGrau As Integer
Dim ArrBereiche(1 To 6) As String
Dim ArrErg(1 To 6) As Integer
ArrBereiche(1) = "MoDoFrühjahr"
ArrBereiche(2) = "MoDoSommer"
ArrBereiche(3) = "MoDoWinter"
ArrBereiche(4) = "FrFrühjahr"
ArrBereiche(5) = "FrSommer"
ArrBereiche(6) = "FrWinter"
ArrErg(1) = "P"
ArrErg(2) = "T"
ArrErg(3) = "X"
ArrErg(4) = "Q"
ArrErg(5) = "U"
ArrErg(6) = "Y"
For i = 1 To 6
For Each zelle In Range(ArrBereiche(i)).Cells
If zelle.Interior.ColorIndex = "6" Then intGelb = intGelb + 1
If zelle.Interior.ColorIndex = "3" Then intRot = intRot + 1
If zelle.Interior.ColorIndex = "43" Then intGrün = intGrün + 1
If zelle.Interior.ColorIndex = "15" Then intGrau = intGrau + 1
If zelle.Interior.ColorIndex = "7" Then intRosa = intRosa + 1
Next zelle
Range(ArrErg(i) & "20").Value = intGrün
Range(ArrErg(i) & "21").Value = intRot
Range(ArrErg(i) & "22").Value = intGelb
Range(ArrErg(i) & "23").Value = intGrau
Range(ArrErg(i) & "24").Value = intRosa
intRot = 0
intGelb = 0
intGrün = 0
intRosa = 0
intGrau = 0
Next i
End Sub

Hab den Code nicht getestet, sollte aber funktionieren:-)
Gruß
Bertram
Anzeige
AW: Noch offen !!!
08.01.2007 11:09:16
Midgaardslang
Tja, ich kann Dir wie immer nur danken.
Habe leider nur Erfahrungen mit den "Excel-Formelbefehlen" und im Grunde gar keine mit VBA, daher siehts auch so schlecht aus. Ich würde gerne noch einmal darauf zurückkommen und Dich vielleicht noch einmal auf den Code ansprechen wollen, da meine VBA-Künste im Grunde nicht vorhanden sind, und ich die meisten Befehle und Scripte nur aus Erfahrung (wie z.b. Integer, Strukturen, usw.) mit anderen Programmiersprachen (paar Jahre Delphi & VisualC in der Schule) deuten kann.
Die sind aber schon ordentlich angerostet, und ich verstehe eben auch gerne, was ich schreibe, um es bei Bedarf später anzupassen :-) oder zu korrigieren. Vielleicht kannst Du mir dann das eine oder andere erklären nachdem ich mich in nem Kurztutorial darüber schlau gemacht habe - mit Arr*** kann ich spontan z.b. wenig anfangen.
Und wiederum ein Danke...Du bist einfach eine extrem kompetente Hilfe.
Anzeige
AW: Noch offen !!!
08.01.2007 11:20:13
Bertram
Erst mal ne kleine Korrektur:
Statt
Dim ArrErg(1 To 6) As Integer
muss es heißen
Dim ArrErg(1 To 6) As String
Zur Erklärung:
Alles was hinter den DIMs steht sind Variablennamen, d.h. die kannst du auch "Hinz" und "Kunz" nennen. DAmit aber das ganze übersictlich bleibt, solltest du namen vergeben, die dir auch ungefähr sagen, wozu sie gut sind.
"intGelb" ist als Integer deklariert und soll die gelben Zellen zählen (könnte aber auch "ZählGelb" oder sonstwie heißen.
"ArrBereiche" zeigt mir nur, dass es sich bei der Variablen um ein Feld (Array) handelt (hier mit 6 Einträgen).
Die Namen "MoDoFrühjahr" usw. weist du im Tabelenblatt direkt zu, indem du die entsprechenden Zellen markierst und in dem Kasten links oben (dort, wo sonst der Zellname z.B. A1) den Namen reinschreibst oder über
Einfügen, Namen, Definieren...
Der Code an sich macht im Prinzip immer noch das gleiche wie vorher. Mit der Schleife
For i = 1 to 6
usw.
durchläufst du alle Bereiche, die du davor definiert hast und du musst nicht 6 Makros für die selbe Sache schreiben.
Falls du noch Fragen hast meld dich einfach.
Gruß
Bertram
Anzeige
AW: Noch offen !!!
08.01.2007 11:45:36
Midgaardslang
Und wieder Danke.
Wenn Du mir es schon anbietest, eine Frage hätte ich doch noch, die aber nichts damit zu tun hat.
Kann ich meine fertigen Tabellenblätter auch schützen, da ich sehr viele Formeln abseits dieses Scriptes eingebaut und geschrieben habe (Verhältnis Eingabefelder/Formelfelder 30/70), aber dem Benutzer es nur ermöglichen möchte, Werte in bestimmte Bereiche einzutragen, so dass dieser mir auf keinen Fall etwas daran verändern kann. Leider ist dieses Dokument auch für einige, naja, Datentypisten vorgesehen, die stur und dämlich über alles drüber schreiben und mit Müh und Not Excel beherrschen. Wenn da z.B. #WERT steht, wird eben die ganze Tabelle einfach mit 0 ausgefüllt und überschrieben - der Grund? Damit die "Fehler" vorm Eingeben raus sind, habe das ernsthaft schon des öfteren gehört, auch wenn diese Bereiche mit den Fehlern explizit für andere Bearbeiter gekennzeichnet sind.
Ich habe zwar schon für alle Dummen alle Bereiche farbig unterlegt, die mit Formeln gespickt sind, das interessiert jedoch nur sehr wenige und ich bekomme regelmäßig Tabellen zurück, die zwar korrekt ausgefüllt, jedoch fast komplett formelbereinigt sind.
Könnte ich also auf dem Tabellenblatt bestimmte Bereiche "sperren" oder ist das nur ein Wunschtraum :-) ?
Anzeige
AW: Noch offen !!!
08.01.2007 12:14:26
Midgaardslang
Ich eröffne dazu mal einen neuen Thread, damit auch andere was davon haben

51 Forumthreads zu ähnlichen Themen

Jüngstes Datum in Textstring ausgeben
Markus

Hallo zusammen,
nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
25.08.2008 18:19:00
Thread-ID: 1004535
17 Beiträge
Anzeige
Datumsformat ins englische
Werner

Hallo
ich habe ein Datumsfeld mit dem folgenden Format "TT.MM.JJJJ"
Benötige dieses aber im JJJJ-MM-TT Format.
Was kann ich tun?
Vielen Dank!
02.12.2009 08:12:07
Thread-ID: 1121324
4 Beiträge
Einzelne Wochentage aus Zellen mit Datum zählen
Karli

Hallo,
ich habe, um die Anzahl der einzelnen Wochentage in einer Spalte mit Datumangaben zu ermitteln, die Daten in einer anderen Spalte in Text umgewandelt, und dann Montage, Dienstage usw. gezählt.
Gibt es dafür auch einen direkten Weg die Summe bzw. Anzahl der einzelnen Wochentage in...
14.12.2009 21:03:03
Thread-ID: 1123898
6 Beiträge
Anzeige
Wochentag aus Datum zählen
Bastian

Hallo,
ich habe einen Zeitraum von zwei Wochen. Also von 07.6.2010 bis 22.6.2010. In die Spalte A habe ich die Werbungen, die in der Spalte B eingetragene Datums angezeigt werden. Jede Werbung kann einmal, oft oder niemals angezeigt werden. Zur Veranschaulichung werde ich versuchen, meine F...
10.06.2010 19:38:20
Thread-ID: 1161311
5 Beiträge
VBA von Deutsch auf Englisch ??
Deutsch

Hallo,
habe ein Excel Buch wo VBA auf Deutsch geschrieben ist.
Gibt es ein Programm die Sprache auf VBA zu übersetzen?
Vielen Dank.
Gruß Amina
08.08.2010 13:26:19
Thread-ID: 1171151
12 Beiträge
Formel auf Deutsch und Englisch
Jürgen

Hallo Excel Experten,
ich hab' da mal 'ne Frage....
In einer Zelle einer Datei, die sowohl in Deutschland als auch in unserem Werk in Shanghai verwendet wird
wird das aktuelle Datum als Text dargestellt. Dies geschieht ganz einfach über die Formel
=TEXT(JETZT(),"TT.MM.JJJJ"). Di...
14.12.2010 17:17:23
Thread-ID: 1191449
4 Beiträge
Formel auf 3 Spalten umstellen -Summenprodukt
Wolfgang

Hallo,
nachstehende Formel entdeckte ich unter Rechereche und würde sie gerne in zwei Richtungen umstellen. Irgendwie gelingt mir das aber nicht. Ich würde gerne erreichen, dass bei Ablauf eines Codes im Anschluss der nachstehende Code läuft und die Positionen zählt, wenn in Spalte B2:B400...
09.02.2011 20:52:42
Thread-ID: 1199931
8 Beiträge
Text ausgeben für einen Datumsbereich
Jan

Hallo miteinander,
habe im Forum gesucht, bin aber nicht fündig geworden!?
Es geht um folgendes: In Spalte A2:A100 stehen Geburtstage.
In Spalte E2:E13 stehen die Namen der Sternzeichen und in den Spalten F2:F13 Anfang des Datumsbereiches und G2:G13 das Ende des Datumsbereiches.
21.06.2011 22:00:45
Thread-ID: 1219215
8 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
16
3
3
5
3
4
11
3
7
7
2
7
1
1
3
6
1
22
6
10
7
5
3
15
5