Tabellenblattname in Liste eintragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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.

Sub Neuer_MA() Dim neuerName As String '--- Namen eingeben neuerName = InputBox("Mitarbeiter Name") '--- neues Blatt einfügen Sheets.Add ActiveSheet.Name = neuerName '--- in Übersicht eintragen und sortieren With Sheets("Übersicht") .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = neuerName .Cells(4, 1).CurrentRegion.Sort Key1:=.Range("A4"), Order1:=xlAscending, Header:=xlYes _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With End Sub

Private Sub Worksheet_Activate() Dim ws As Worksheet Range(Cells(4, 1), Cells(65535, 1)).ClearContents For Each ws In ActiveWorkbook.Worksheets If ws.Name <> "Übersicht" Then Cells(ws.Index + 3, 1).Value = ws.Name Next ws End Sub

Private Sub Worksheet_Activate() Dim ws As Worksheet Dim i As Integer, j As Integer Application.ScreenUpdating = False Range(Cells(4, 1), Cells(65536, 1)).ClearContents For i = 1 To Sheets.Count For j = i + 1 To Sheets.Count If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then Sheets(j).Move before:=Sheets(i) Next j Next i For Each ws In ActiveWorkbook.Worksheets If ws.Name <> "Übersicht" Then Cells(ws.Index + 3, 1).Value = ws.Name Next ws Application.EnableEvents = False Sheets("Übersicht").Activate Application.EnableEvents = True Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenblattname in Liste eintragen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblattname in Liste eintragen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread