Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA

Forumthread: VBA

VBA
09.03.2008 09:42:45
Franz
Hallo zusammen, wer kann helfen?
Ich habe für jeden Monat 1 Tabellenblatt, darin sind alle Tage eines Monats von 01. bis 31. (Format: dd/) in einer Zeile aufgelistet. Nun möchte ich Tabellenblatt übergreifend, dass immer beim aktuellen Datum ein bestimmter Spaltenbereich entsperrt wird.
(z.B. heute ist der 09.03. steht in Tabelle3.Range(J2) dann soll Range(J3:J20) entsperrt werden, morgen - der 10.03. steht in Range(K4) dann soll Range(K3:K20) entsperrt werden (u.s.w.)
Guss, Franz

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA
09.03.2008 10:40:00
Nepumuk
Hallo Franz,
VBA gut?
In das Klassenmodul der Mappe:
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
    With Worksheets("Tabelle" & CStr(Month(Date)))
        .Protect UserInterfaceOnly:=True
        .Range(.Cells(3, Day(Date) + 1), .Cells(20, Day(Date) + 1)).Locked = False
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: VBA
09.03.2008 10:51:58
Franz
Hallo Nepumuk,
vielen Dank für Deine Hilfe
Gruß
Franz
(Mein VBA = vielleicht doch nur befriedigend)
;

Beliebteste Forumthreads (12 Monate)

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