Microsoft Excel

Herbers Excel/VBA-Archiv

Tabelle per Makro sotieren

Betrifft: Tabelle per Makro sotieren von: Basti
Geschrieben am: 13.08.2004 07:21:21

Schönen guten Morgen!

Ich hab eine Tabelle, in die Ständig neue Eintragungen gemacht werden, da die Tabelle aber immer Alphabetisch geordnet sein soll, möchte ich mein Makro schreiben, das meine Tabelle nach den Eintragungen in Spalte "C" sortiert. Weiterhin möchte ich wissen, wie viele Zeilen beschrieben sind, um später noch eine Zählschleife von der 1. bis zur letzten Zeile einzubauen, die einen Hyperlink für jede Zeile erstellt.

Danke schon mal!!

MFG
Basti

  


Betrifft: AW: Tabelle per Makro sotieren von: Marcl
Geschrieben am: 13.08.2004 08:16:47

Hallo Basti,

mit deisem Code kannst Du sortieren und nicht leere Zellen zählen:

Sub g()
' mit Überschrift sortieren nach C
    Cells.Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        
' ohne Überschrift sortieren nach C
    Cells.Select
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

'  Letzte nichtleere Zelle in Spalte C feststellen und nicht leere Zellen zählen
    n = Cells(Cells.Rows.Count, 3).End(xlUp).Row

End Sub



Gruß
Marcl


  


Betrifft: AW: Tabelle per Makro sotieren von: Basti
Geschrieben am: 13.08.2004 08:37:14

Danke!!!


  


Betrifft: AW: Tabelle per Makro sotieren von: Basti
Geschrieben am: 13.08.2004 08:47:38

Noch ne Frage!

Ich muss doch eins der beiden Teile auskommentieren?! Aber egal welchen Teil ich auskommentiere, kommt immer ein ein "Anwendungs- oder Objektorientierer Fehler" Was mach ich falsch??

MFG


  


Betrifft: AW: Tabelle per Makro sotieren von: Marcl
Geschrieben am: 13.08.2004 09:35:55


Je, was Du möchtest, muss ein Teil des Sortierens gelöscht werden.
Wann tritt der Fehler auf? Schon beim Sortieren oder beim Zellen Zählen?

Gruß
Marcl


  


Betrifft: AW: Tabelle per Makro sotieren von: Basti
Geschrieben am: 13.08.2004 09:49:40

Der Fehler tritt beim Sortieren auf!


  


Betrifft: AW: Tabelle per Makro sotieren von: Marcl
Geschrieben am: 13.08.2004 09:56:53

versteh ich nicht ganz,

Cells.Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes

Und wenn nur der Befehl genommen wird?
Bei mir geht das.
Aber ich merke grad, ich hab XP bei uns im Netzwerk und Du 2000.
Unter Umständen liegt es daran?

Gruß
Marcl


  


Betrifft: AW: Tabelle per Makro sotieren von: Basti
Geschrieben am: 13.08.2004 10:03:26

Ja, vielleicht liegts da dran, Danke trotzdem!!


 

Beiträge aus den Excel-Beispielen zum Thema "Tabelle per Makro sotieren"