Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Betreff
Datum
Anwender
  • 09.03.2008 10:40:00
    Nepumuk
  • 09.03.2008 10:51:58
    Franz
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige