---

Hallo,

ich habe hier Programm das läuft nur  wenn ich dafür ein Makro anlege.
Kann mir jemand sagen, warum ich dies nicht in einen Befehl für ein Commandbutton einfügen kann?

Hier das Programm:#

Sub Sort1_click()
Worksheets("Tabelle1").Range(Cells(1, 1), Cells(5, 4)).Sort _
    Key1:=Worksheets("Tabelle1").Range(Cells(1, 1), Cells(1, 5))

End Sub

Danke

Gruß
Gerd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Gerd,

wie meinst du das? In einem Commandbutton ablegen? Was ist den das Objekt "sort1"? Ist das kein Button? Wo genau liegt dein Problem?

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ulf,

ja, das ist richtig Sort1 ist ein Button, aber damit funktioniert es auch nicht. Wenn man die Anweisungen jedoch in ein normales Marko schreibt klappt das!

Gruß
Gerd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Gerd,

d.h. wenn das Makro in einem Modul liegt, dann funktioniert es?
Dann schlage ich folgendes vor:

Lege deinen Code in einem Modul in einer sub ab:

sub prodSortieren ()
Worksheets("Tabelle1").Range(Cells(1, 1), Cells(5, 4)).Sort _
    Key1:=Worksheets("Tabelle1").Range(Cells(1, 1), Cells(1, 5))
end sub

Dann startes du mit dem Button diese sub:

Sub Sort1_click()
prodSortieren
End Sub

Dies sollte dann funktionieren. Habe es aber selbst nicht getestet. Ein Versuch ist es wert.

Grüsse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Gerd,

habe es eben mal getestet. Es funktioniert. Warum es in der Tabelle nicht funktioniert kann ich dir allerdings nicht erklären.

Grüse
Ulf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Ulf,
hat geklappt. Hätte vielleicht auch vorher schon geklappt, denn hier auf meinem NT Rechner läuft es noch immer nicht aber auf dem 2000 er schon.

Also, noch mal schönen Dank.

Gruß
Gerd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP