tabellen manat anlegen aktueller monat anzeigen

Bild

Betrifft: tabellen manat anlegen aktueller monat anzeigen
von: roland_k
Geschrieben am: 22.04.2005 08:04:44
hi zusammen
ich will in ner mappe bei workbook open
12 tabellen anlegen mit den monatsnamen jan feb usw bis dez
diese sollen aus der tabelle "monat_vorlage" gebildet werden
es soll aber nur die tabelle mit dem aktuellen monat eingeblendet sein
das anlegen aus ner vorlage habe ich schon aber wie gebe den namen manat?
irgendwie muss da month oder so was stehn ?
sorry wenn die frage trivial erscheint hmmm
danke euch, wenn sich trotzdem jemand due muehe macht das zu beschreiben
gruss roland_k

Bild

Betrifft: AW: tabellen manat anlegen aktueller monat anzeige
von: Michel
Geschrieben am: 22.04.2005 08:48:25
Hi,
guckst du hier:
Dim i As Integer
Dim intmonth As Integer
Dim wks As Worksheet
'Monate anlegen
For intmonth = 1 To 12
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(DateSerial(2005, intmonth, 1), "mmmm")
Next intmonth

Sheets(Format(Date, "mmmm")).Select
bis denne
Michel
Bild

Betrifft: AW: tabellen manat anlegen aktueller monat anzeige
von: roland_k
Geschrieben am: 22.04.2005 10:37:36
hi michel danke das funkt
das mit einblenden .....und ausblenden weiss ich mit activesheet. visible = false
hmm wie sage ich ihm den aktuellen monat ?
sheets.name = ?? will den aktuellen monat ----visible = true machen ?
hast du das kurz zur hand ...grrrrrrr irgendwie sollte das mit month ...gehn?
danke dir erst mal ...das anlegen funt jedenfalls
gruss roland _k
Bild

Betrifft: AW: tabellen manat anlegen aktueller monat anzeige
von: Michel
Geschrieben am: 22.04.2005 10:46:56
Hmm.... jetzt komme ich nicht ganz mit!
Visible=True heißt doch nix anderes, als das du es HIER aktivieren willst, oder täusche ich mich jetzt?
Dann reicht doch die Select Funktion... Kläre mir mal auf...
Michel
Bild

Betrifft: alle ausblenden bis auf aktuellen monat
von: roland_k
Geschrieben am: 22.04.2005 11:12:10
hi michel
habe das nicht richtig erklärt ((
bin gerade am einbauen tabellen leg er nu aus vorlage an (vorlage_monate)
hieraus jeweils ein blatt mit der vorlage kopiert und dann in monate jan..feb ..usw
nu will ich alle ausblenden nur den akt monat nicht
wenn das so nicht klar ist kann auch mein beispielmappe kurz hochladen
danke dir gruss roland_k
Bild

Betrifft: AW: alle ausblenden bis auf aktuellen monat
von: Michel
Geschrieben am: 22.04.2005 12:59:07
Asu.... :-p
guckst du:
Frage einfach ab...
For Each wks In Worksheets
If wks.Name <> Format(Date, "mmmm") Then
wks.Visible = xlSheetVeryHidden
Else
'nix
End If
Next wks
 Bild

Beiträge aus den Excel-Beispielen zum Thema "tabellen manat anlegen aktueller monat anzeigen"