Formatierung mit VBA zählen oder (?)

[atilla]

Hallo zusammen,


na, das würde ich mir jetzt sehr gut überlegen ob ich mit dem makro und der vorgeschlagenen Schaltfläche machen würde.

Mindestens eine Sicherheitsfrage sollte man da doch einbauen. Ein versehentliches oder unüberlegtes betätigen könnte doch einiges zerstören.
Ich bleib dabei, dass der Weg mit der Vorlage der einfachste und sicherte ist.

[Timon Galeazzi]

Hi Timon,

falls du Makros benutzen kannst, genügt ein Einzeiler (in einem allg. Modul):

Code:

Option Explicit

Sub EintragLoeschen()

   Range("D10:M376").ClearContents
   
End Sub

Leg dir dann zum Beispiel ein transparentes Rechteck unterhalb der Jahreszahl an und weise diesem das Makro zu.

Lieber WillWissen

Vielen Dank für die Antwort.
Leider habe ich bisher nur von Makros gehör und nie selber welche gebraucht..
Ich werd mal versuchen mir ein paar Grundkenntnisse an zu eignen damit ich es implementieren kann.

Ansonsten falls du Zeit und Lust hast hänge ich dir die Tabelle an. ;)

(Wenn du das nun auch noch machst musst du mir fast sagen wo ich ein Dankesgeschenk hin senden kann :19: )

[WillWissen]

Hallo zusammen,

die Idee mit der Vorlage ist natürlich richtig. Falls die Lösung mit dem Makro infrage kommen sollte, müsste natürlich noch eine Sicherung eingebaut werden. Da hat Atilla absolut recht. Ich würde es mit dem Makro dann so lösen:

Code:

Option Explicit

Sub EintragLoeschen()
If MsgBox("Sollen die Einträge wirklich gelöscht werden?", vbYesNoCancel) = vbYes Then
   Range("D10:M376").ClearContents
End If
End Sub

[WillWissen]

Hi Timon,

Rechtecke z.B, kannst du bestimmt aufziehen; das Formatieren bekommst du sicher auch noch in. Ansonsten kannst du ja aus den Entwicklertools auch einen Button nehmen und diesem das Makro zuweisen.

Mit ALT-F11 öffnet sich ein Fenster; in dieses wird der Code reinkopiert. Das Fenster am Schließkreuz schließen und die Datei als .xlsm oder .xlsb abspeichern.
Für "dein erstes Mal" im Anhang die fertige Datei. Ich habe noch eine Kleinigkeit geändert:

1. Mit Eingabe der Jahreszahl in der Ferienliste ändert sich auch das Jahr in der Feiertagsliste.
2. In B10 habe ich nochmals die KW-Formel eingetragen; das Feld war bisher leer.


  Ferienliste_final_mit_Makro.xlsb (Größe: 26,78 KB / Downloads: 4)

[schauan]

Hallöchen @atilla,

sag niemals nie Das funktioniert sehr wohl. Man muss zum Färben der Zelle "Format übertragen" nehmen - also den Pinsel - und sich die Farbe aus der Legende holen, und nicht Formatieren.
Ansonsten stimme ich aber mit Dir überein

[atilla]

Hallo André

ich habe niemals nie gesagt.

[Timon Galeazzi]

Hi Timon,

Rechtecke z.B, kannst du bestimmt aufziehen; das Formatieren bekommst du sicher auch noch in. Ansonsten kannst du ja aus den Entwicklertools auch einen Button nehmen und diesem das Makro zuweisen.

Mit ALT-F11 öffnet sich ein Fenster; in dieses wird der Code reinkopiert. Das Fenster am Schließkreuz schließen und die Datei als .xlsm oder .xlsb abspeichern.
Für "dein erstes Mal" im Anhang die fertige Datei. Ich habe noch eine Kleinigkeit geändert:

1. Mit Eingabe der Jahreszahl in der Ferienliste ändert sich auch das Jahr in der Feiertagsliste.
2. In B10 habe ich nochmals die KW-Formel eingetragen; das Feld war bisher leer.

Hi WillWissen

Vielen Dank für deine Hilfe! hat wunderbar funktioniert bis ich die Liste neu gestartet habe... Das Problem ist aber, dass bei uns nur zertifizierte Makros zugelassen sind. aus diesem Grund hatte ich wohl in der Vergangenheit auch schon diese Probleme (z.B. =Farbe)

Bin auf jeden Fall am versuchen, das mit der internen IT-Abteilung ab zu klären und wenn es geht ist es doch eine ganz wunderbare Ferienliste. :)

Vielen Dank an alle!

Liebe Grüsse
Timon