TabellenBlattName in UF einlesen ?

03/01/2008 - 12:03 von Horst Heck | Report spam
Hallo zusammen,
wünsch erstmal allen ein frohes neues Jahr und komm direkt zu meiner
Frage.
Ich habe eine Mappe mit unbestimmter Anzahl Tabellenblàtter, jeweils
in Zelle E15 steht ein Datum (Verfallsdatum). Um mir nun einen
Überblick zu verschaffen möchte ich alle Tabellenblàtter durchlaufen
und mir
den Namen des Blattes und das Datum in E15 in eine UF einlesen und
dort bedingt formatieren.
Oder wie könnte man das sonst lösen ?
Danke für jede Antwort

gruss horst



EXCEL 03
 

Lesen sie die antworten

#1 Melanie Breden
03/01/2008 - 16:17 | Warnen spam
Hallo Horst,

Horst Heck schrieb:
Ich habe eine Mappe mit unbestimmter Anzahl Tabellenblàtter, jeweils
in Zelle E15 steht ein Datum (Verfallsdatum). Um mir nun einen
Überblick zu verschaffen möchte ich alle Tabellenblàtter durchlaufen
und mir
den Namen des Blattes und das Datum in E15 in eine UF einlesen und
dort bedingt formatieren.



ich gehe davon aus, dass für jedes Tabellenblatt ein Bezeichnungsfeld (Label)
auf der Userform aufgezogen ist. Die Namen bestehen aus Label1, Label2 etc.

Füge folgende Prozedur in das Klassenmodul der Userform ein:

Private Sub UserForm_Initialize()
Dim i As Long

For i = 1 To 3 ' Anzahl der Tabellenblàtter
With Worksheets(i)
Controls("Label" & i).Caption = .Name & vbTab & .Range("E15").Text
' Label rot formatieren, wenn Datum in der Vergangenheit liegt
If .Range("E15").Value < Date Then
Controls("Label" & i).BackColor = vbRed
End If
End With
Next i
End Sub


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de

Ähnliche fragen