AW: Userform speziell
12.07.2006 14:48:17
fcs
Hallo Lara,
Das Userform mit allen Makros zu erstellen ist im Rahmen des Forums evtl. ein wenig zu viel verlangt. Da solltest du deine bessere Hälfte evtl. noch ein wenig motivieren.
Das Makro zum Neuerstellen eines Blattes kannst du etwas vereinfachen und verallgemeinern.
Sub Neu()
' Neu Makro
' Makro am 27.06.2006 von Lara aufgezeichnet
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "neuesBlatt"
Range("F10:F11").Select
End Sub
Es wird immer das gerade aktive Blatt kopiert und am Ende der Liste eingefügt.
Den Monatsnamen des Datums in Zelle O3 weist folgendes Makro als Blattnamen zu, wenn ein neues Monats-Datum gewählt wird.
Die Monatsnamen muss du ggf. noch an die Namen der Schweizer Excelversion anpassen. Das Makro muss im VBA-Editor unter "DieseArbeitsmappe" eingefügt werden.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$O$3" Then
Select Case Sh.Name
Case "neuesBlatt"
Sh.Name = Format(Target, "MMMM")
Case "Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"
If MsgBox("Blatt '" & Sh.Name & "' wirklich umbenennen?", vbQuestion + vbYesNo, "Blatt umbenennen") = vbYes Then
Sh.Name = Format(Target, "MMMM")
End If
Case Else
'do nothing
End Select
End If
End Sub
Gruß
Franz