Office: Tabellennavigator

hey hab die sortierung jetz doch mit folgendem code hinbekommen:
Sub sortierung()
Application.ScreenUpdating = False
Count = Sheets.Count
For i = 1 To Count - 1
For j = i + 1 To Count
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move Before:=Sheets(i)
End If
Next
Next
End Sub

wollte jetz nur noch fragen wie ich es anstelle das die sortierung automatisch mit öffnen des navigators erfolgt?
thx

 

hi

öhmm, willst du wirklich alle Blätter der Mappe durcheinanderwerfen
oder geht es dir nur um die Anzeige im TreeView

den dann reicht

hier im Code an der Stelle

 

super, vielen dank für die schnelle antwort!
so is schon mal echt gut.
aber wenn ich jetz doch noch die sortierung auf die mappe übertagen möchte wie müsst ich dann vorgehen?
hab es bis jetz nur mit nem extra button in der user form hinbekommen. aber wär toll wenn es eleganter gehen würde

 

Hi

ich würde es auch auf dem Button lassen, *rolleyes.gif*
da dies ja ein Eingriff in die Struktur der Mappe ist.

ansonsten kannst du ja deinen Code für das Sortieren bei
Private Sub UserForm_Initialize()
miteinbinden.

edit

kennst du das schon?
http://www.ms-office-forum.de/forum/...4&postcount=12

die Navi wurde weiterentwickelt ganzer Thread hier

http://www.ms-office-forum.de/forum/...d.php?t=220352

 

jetz klappt es so wie ich es mir vorstelle!
vielen dank

 

Hallo an alle,

weiß vielleicht jemand wie ich meine Unterknoten (hier meine Excel-Tabellen) nur mit ENTER öffnen kann, wenn der jeweilige Knoten markiert ist? Hab nirgendwo online den passenden Befehl dazu gefunden (Bin noch am probieren also bitte nachsichtig sein)

thx

 

Hi

jetzt nicht getestet, aber gibt es in den Ereignissen nicht etwas mit Keycode oder Keyascii ?
hast du da schon nachgeschaut

werde mir das nächste Woche einmal anschauen, diese Woche bin ich zumeist ohne PC unterwegs.

 

hallo nochmal,
komm einfach nich weiter.
chris-kaiser könntest du mir bitte genauer beschreiben was du meinst mit dem keyascii oder keycode?
Ist es nich möglich diesen code :

Private Sub TreeView1_Click()
On Error Resume Next
With TreeView1.SelectedItem
If .Children = False Then
Workbooks(.Parent.Text).Worksheets(.Text).Activate
Else
Workbooks(TreeView1.SelectedItem.Text).Activate
End If
End With
End Sub

so umzuschreiben das die aktivierung auf enter erfolgt?

Vielen dank schonmal

mfg

 

hi

damit meine ich soetwas

Code:

wenn es nicht gehen sollte poste doch mal deine Navi so wie du es im Moment verwendest dann versuche ich das einzubauen

 

Genau so hab ich mir des Vorgestellt, vielen Dank.
Hast du vielleicht auch ne Idee wie ich diesen Fehlerton ausstellen kann wenn ich Enter drücke?

mfg

 

Hi

ich habe keinen Fehlerton weil bei mir alles an Tönen deaktiviert ist.
*biggrin.gif*
das sollte im Betriebssystem abgeschaltet werden und nicht in Excel, bzw. wäre mir diese Einstellung in Excel nicht bekannt.