Office: VBA Anfänger Hilfe: benachbarte Zellen sperren

Ja genau.

 

Na gut, wenn das jetzt geklärt ist (hat ja lange gedauert ---> Geheimnis) kann es an die Lösung gehen.

Zwei Möglichkeiten sehe ich:
1) VBA 2 Schleifen. Immer da, wo in Spalte B keine Farbe ist wird in Spalte C 1 - 8 eingetragen.
Dann wieder von vorne 1 - 8 bis zum Ende.

2) Schwieriger, weil zwei Bereiche durchsucht werden müssen: VBA
Immer wenn Wochentage < 6 und kein Feiertag ist, dann in C 1 - 8 eintragen. Wie oben.

Stichworte sind: Schleifen, weekday, Bedingungen (IF, Select Case, Colorxxxx)
Google ist dein Freund, wenn du englisch kannst, umso besser.

Gruß
Rainer

 

Hallo Rainer,

mit 1 hab ich angefangen dies ohne VBA zu machen. Aber bei einer Farbsetzung durch die "Bedingte Formatierung" sieht man die Farbe zwar, aber sie ist nicht in den Eigenschaften hinterlegt. Somit kann man es zur Auswertung nicht verwenden. Musste mal auf die Zelle mit "Zellen formatieren" gehen, da ist die Farbe nicht sichtbar. Oder ist das Problem wieder vor der Tastatur

darum hab ich mit Farben aufgegeben und eher in Richtung 2 probiert.

rein Interesse halber wäre ich Dir dankbar wenn Du 1 mal verifizieren könntest.

Mach mich jetzt mit 2 auf dem Weg :-)

Danke / Franz

 

Hi Franz,
das mit der bedingten Formatierung und Farben stimmt teilweise.
Geht mit ziemlichen Aufwand.
Leerzeichen entfernen!!!!!
http:/ /w w w . o f f i c e - l o e s u n g . d e / f t o p i c 5 0 6 3 4 5 _ 0 _ 0 _ a s c . p h p

Kann man noch eine Spalte einfügen für den Feiertagsnamen?

Gruß
Rainer

 

Hallo Rainer,

so, nach 4 Std. Schlaf hab ich jetzt folgenden Fortschritt. Aber bitte nicht lachen, es geht bestimmt einfacher. Aber hilft nix.

Aktuell kämpfe ich mit der Verschiebung der Zelle nach unten wenn Bediendung nicht erfüllt.

Das Auswerten der Feiertag und des WE wollte ich im Anschluß machen, aktuell werte ich die Spalte A aus.

Willst mal einen Blick drauf werfen?

P.S. Ja klar, eine Spalte mit Feiertagsnamen geht natürlich.

 

Guten Morgen Franz,

was sollen mir diese Zeilen offenbaren?
Na gut, etwas Mitleid. *Smilie wegen Schlafmangel. *Smilie

Im VBA-Teil muss ich mich erst einlesen, was du gemacht hast.
Was ist mit der Spalte A? Soll die später so sein?

Sieh dir mal die geänderte Datei an.
Könntest du damit leben?

Ist noch kein VBA drin.
Es vereinfacht aber die Lösung:
Trage Zahlen (1-8) dann ein, wenn die Wochentage < 6 oder kein Feiertag ist!

Bis später

Gruß
Rainer

 

Hallo Rainer,

die Excel Liste von Dir ist vom Prinzip her so korrekt.

"Trage Zahlen (1-8) dann ein, wenn die Wochentage < 6 oder kein Feiertag ist!"

Im meinen VBA Muster hab ich "Wochentage < 6 oder kein Feiertag" mit Spalte A = Wert 4 mal temp. ersetzt.
Wie eine VBA Abfrage zu "Wochentage < 6 oder kein Feiertag

 

Hi Franz

schau mal in Spalte A.
Da ist ein SVERWEIS, der liefert die Feiertagsnamen aus dem Kalender.
Bei Feiertage habe ich die benannte Tabelle erweitert >> schau ins Namenfeld/Bild.

Per VBA ---> Schleife muss jetzt abgefragt werden:
Wochentage < 6 oder kein Feiertag ---> dann 1 - 8.

Eine andere Möglichkeit wäre die bedingte Formatierung auszulesen.
Hatte ich schon bemerkt.
Ist aber sehr komplex. Google.

So schnell nervt mich niemand.

Gruß
Rainer

 

Hallo Franz,

bezogen auf Deine Datei in Beitrag #20 würde ich das wie folgt lösen:
Code:

Dazu habe ich Deine Bereichsdefinition etwas abgeändert.

 

Cool :-)

Ich bin auch schon weiter! Jedoch nicht mit WE & Feiertag, sondern mit meiner Abfrage auf die "4"
Aber es sieht gut aus :-) zumindest mal für mich

Sub Test()

Dim Abt(8) As Integer

Abt(0) = "41"
Abt(1) = "42"
Abt(2) = "43"
Abt(3) = "44"
Abt(4) = "45"
Abt(5) = "46"
Abt(6) = "47"
Abt(7) = "48"

Dim Zelle As Integer
Dim AbtZ As Integer
Dim i As Integer

Zelle = 1
AbtZ = 0

For i = 1 To 365

If Cells(Zelle, 1).Value = 4 Then

Cells(Zelle, 3).Value = Abt(AbtZ)
Cells(Zelle, 3).Font.Bold = True
AbtZ = AbtZ + 1
Zelle = Zelle + 1
If AbtZ > 7 Then AbtZ = 0

Else

Zelle = Zelle + 1

End If

Next i


End Sub

 

Aber Dein Code sieht schon mega genial aus..

Muss ich gleich mal testen :-)

Läuft!!!

Nur eines passt noch nicht - der Feiertag und das WE müssen identisch behandelt werden. Also der Feiertag muss auch leer bleiben. Die Formel sollte es so machen, bleibt aber bei mir nicht leer

Ich spiel damit gleich mal rum

P.S. bin grad richtig Happy :-)

 

Hallo Franz,

nachstehend Deine Datei vom Beitrag #20, ergänzt um meinen Code, und mit einer Änderung beim Bereichsnamen Feiertag.

Teste mal damit.

 

Jaaaaaaa - BRUTAL.

Genau so :-)

Und mit Schaltfläche.

Jetzt kann ich in aller Ruhe weiter spielen. Mann o Mann

In der finalen Version sollte man:

- die neuen Feiertag eintragen
- eine Schaltfläche drücken
- dort dann das neuen Jahr eingeben, oder aktuell +1
- dann legt es einen zus. Reiter an und alles ist fertig

Aber hiermit kann ich schon echt ganz ganz viel anfangen.

1000 Dank Dir und sag "wie kann ich was 'Gutes für Dich tun?"

LG / Franz

 

Hallo Franz,

eigentlich solltest du es so ziemlich alleine machen.
Nun denn...
Hast eine Lösung und wenig gelernt.

Eine andere Vorgehensweise biete ich dir hier.

Gruß
Rainer

 

Hallo Franz,

Es freut mich, dass ich Dir helfen konnte, wobei ich das BRUTAL nicht so recht einordnen kann.

Ich denke, den Großteil solltest Du anhand meiner Lösung selbst schaffen können.
Ansonsten kannst Du Dich ja wieder hier im Forum melden.

Und wenn Du Beiträge bewerten willst: im jeweiligen Beitrag des Helfers findest unter den persönlichen Daten 3 Buttons; ich glaube, der mittlere dient dazu.