Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro nach Eingabe starten

Makro nach Eingabe starten
28.06.2004 16:21:18
Tom
Hallo,
wie kann ich erreichen, daß nach einer Eingabe in die Zellen AW32:AZ97 jedesmal automatisch folgendes Makro aufgerufen und gestartet wird:

Sub GrpA()
Range("CA31:CF34").Select
Selection.Sort Key1:=Range("CB31"), Order1:=xlDescending, Key2:=Range( _
"CF31"), Order2:=xlDescending, Key3:=Range("CC31"), Order3:=xlDescending _
, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Range("B61:O61").Select
End Sub

Danke vorab für Eure Mühe.
tom

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro nach Eingabe starten
Andi_H
hi tom,
dazu gibt es ein ereignis in den Tabellenblättern (Change)
schau mal im VBA-Editor, doppelklick auf das Tabellenblatt in dem der Code ausgeführt werden soll und dann in dieses Ereignis deinen Code rein (über die Comboboxen):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Dein Code
End Sub

Gruß
Andi
Ereignisbereich für Worksheet_Change definieren
Beate
Hallo Tom,
lege folgendes Makro ins Codefenster der Tabelle, dann springt es auch nur bei Eingabe im Bereich AW32:AZ97 an:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 49 Or Target.Column > 52 Or Target.Row < 32 Or Target.Row >97 Then Exit Sub
On Error Resume Next
Range("CA31:CF34").Select
Selection.Sort Key1:=Range("CB31"), Order1:=xlDescending, Key2:=Range( _
"CF31"), Order2:=xlDescending, Key3:=Range("CC31"), Order3:=xlDescending _
, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Range("B61:O61").Select
End If
End Sub

Gruß,
Beate
Anzeige
AW: Ereignisbereich für Worksheet_Change definieren
Andi_H
Hi Beate,
mach mal das End IF raus sonst gibts nen kompilierungsfehler.
gruß
andi
AW: Ereignisbereich für Worksheet_Change definieren
Tom
Danke an Euch alle! Es klappt wunderbar! Tom

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige