Hallo!
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.Kann mir einer Helfen??
Danke schon mal!!
MFG
Basti
Hallo, Basti!
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
Ganz einfach: „Extras“-„Makro“-„Aufzeichnen“, dann gesamte Tabelle markieren, „Daten“-„Sortieren“, Einstellungen wie gewünscht treffen und auf „Ok“ klicken. Dann „Extras“-„Makro“-„Aufzeichnen beenden“, und Du hast Dein Sortiermakro.
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.Kann mir einer
Helfen??
Such Dir eine Spalte, in der immer etwas drinsteht. Dann eine Zählvariable, die, angefangen bei 1 (oder, falls „Tabellenkopf“ enthalten, d. h. hier keine Hyperlinks gesetzt werden sollen, entsprechend höher anfangen) so lange über alle Zeilen läuft, bis in der betreffenden Spalte keine Eingabe vorhanden ist. Falls Eingabe vorhanden, dann Deinen Hyperlink in eine andere Spalte setzen.
Gruß, Manfred
Hey Basti
hier mal der Code fürs Sortieren:
Sub sortieren()
Range(„A1“, Range(„A65536“).End(xlUp).Offset(0, 3)).Select
Selection.Sort Key1:=Range(„C1“), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range(„A1“).Select
End Sub
in diesem Fall werden 3Spalten sortiert. willst du mehr Spalten sortieren, so ändere den Offset-Bereich.