VBA nach sortieren zur ursprünglichen Zelle zurück :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] VBA nach sortieren zur ursprünglichen Zelle zurück

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

HolgerKu
Newbie
Newbie

Anmeldedatum: 03.07.2008
Beiträge: 28

Verfasst am: 03.07.2008, 21:05

Hallo liebe leute auch ich will dazu lernen habe folgendes problem.

ich habe mittels Makrorekorder eine sortierfunktion erstellt, welche automatisch nach änderung einer zelle eine Tabelle auf dem selben Tabellen Blatt sortiertz. Habe das natürlich etwas modifizirt, damit es automatisch funzt. Wink

Nun möchte ich
1.: das ich wieder in die gleiche zelle zurückspringe als zuvor das autosortieren begann.
2.: das das blat so geschützt ist das nur "nicht gesperte"zellen wählbar sind.

Danke schon mal im voraus
Holger

Meien VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
Range("AD6:AE25").Select
Selection.Sort Key1:=Range("AE6"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

HolgerKu
Newbie
Newbie

Anmeldedatum: 03.07.2008
Beiträge: 28

Verfasst am: 03.07.2008, 21:25

ich habe das ganze um eine zeile erwitert, die da lautet:

ActiveSheet.EnableSelection = xlUnlockedCells

somit wäre ein Prob schon gelößt.

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 400
Wohnort: Fridingen an der Donau

Verfasst am: 03.07.2008, 21:36

Hallo,

Select brauchst du nicht.

......Range("AD6:AE25").Sort Key1:=Range("AE6"), Order1:=xlDescending.....

Gruß

HolgerKu
Newbie
Newbie

Anmeldedatum: 03.07.2008
Beiträge: 28

Verfasst am: 03.07.2008, 21:54

danke für die schnelle Lösung, wenn ich drüber Nachdenke ist das Logisch, anfänger halt, werde es mal ausprobieren, aber müsste wohl klappen, und danke nochmals

HolgerKu
Newbie
Newbie

Anmeldedatum: 03.07.2008
Beiträge: 28

Verfasst am: 03.07.2008, 22:00

Danke gut gemacht, schnell Promt gut und funzt
Gruß Holger

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	[Excel 2007] Werte sortieren egal ob ...	Shanissima	Microsoft Excel Hilfe	2	07.09.2008, 22:26
	[Excel 2003] Formel: Leere Zelle als ...	Sniper	Microsoft Excel Hilfe	2	06.09.2008, 13:23
	Text einer Zelle in drei Zellen aufte...	Viktoria	Microsoft Excel Hilfe	2	04.09.2008, 13:53
	Nach XP-Umstellung - Excel 2000 stürz...	j.b-man	Microsoft Excel Hilfe	3	03.09.2008, 12:07
	Nach Datum sortieren	Posaune	Microsoft Excel Hilfe	3	30.08.2008, 19:39

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de