AW: Tabellenblattname in Liste eintragen
12.10.2006 11:09:04
Daniel
Hallo,
es geht nur andersrum:
du mußt ein Makro schreiben, daß den Mitarbeiter-Namen abfragt, dann das Tabellenblatt anlegt und den Namen in die Liste einträgt.
Das mit den 3 Zeilen abstand geht nicht, wenn anschließend sortiert wird, da beim Sortieren leere Zellen ganz nach unten wandern.
Hier müsstest du den Namen 4x eintragen und bei bedarf die unteren 3 Namen per bedingter Formatierung weiss färben.
Das Makro dazu könnte so aussehen:
Sub Neuer_MA()
Dim Name As String
Dim i As Long
'--- Namen eingeben
Name = InputBox("Mitarbeiter Name")
'--- neues Blatt einfügen
Sheets.Add
ActiveSheet.Name = Name
'--- in Übersicht eintragen und sortieren
With Sheets("Übersicht")
For i = 1 To 4
.Cells(65000, 1).End(xlUp).Offset(1, 0).Value = Name
Next
.Cells(2, 1).CurrentRegion.Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlYes _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
Gruß, Daniel
PS damit das Makro korrekt läuft, sollte ein Sheet mit dem Namen "Übersicht" vorhanden sein, in das die Einträge gemacht werden.