Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Daniel_Berlin vom 27.09.2019, 09:11 Options
Fehler beim Sortieren
Ich möchte meine Tabelle sortieren.
Tabelle => A6:AF2005
Es soll nach Reihe B6 aufsteigend sortiert werden.
Ich hab mir den folgenden Code ein bisschen zusammengebastelt, da ich von VB nicht alzu viel Ahnung habe.
Sub sortieren()
If Target.Address = "$AI$4" Then
If Target = "X" Then
Range("A6:AF2005").Sort Key1:=Range("B6"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End If
End Sub
Es kommt 'Laufzeitfehler 424' in der dritten Zeile bei 'If Target = "X" Then'.
Würde mich über eine Antwort freuen.
Vielen Dank schonmal.
Grüße Daniel
Tabelle => A6:AF2005
Es soll nach Reihe B6 aufsteigend sortiert werden.
Ich hab mir den folgenden Code ein bisschen zusammengebastelt, da ich von VB nicht alzu viel Ahnung habe.
Sub sortieren()
If Target.Address = "$AI$4" Then
If Target = "X" Then
Range("A6:AF2005").Sort Key1:=Range("B6"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End If
End Sub
Es kommt 'Laufzeitfehler 424' in der dritten Zeile bei 'If Target = "X" Then'.
Würde mich über eine Antwort freuen.
Vielen Dank schonmal.
Grüße Daniel
Antwort 1 von nighty vom 27.09.2019, 18:27 Options
hi daniel :-)
wie es auf den ersten blick scheint muss der schluessel in der ersten spalte der sortierenden daten liegen :-(
war mir bisher gar nicht aufgefallen hihi
gruss nighty
ein beispiel
Sub sortieren()
If ActiveCell.Address = "$C$1" And UCase(ActiveCell) = "X" Then
Worksheets(1).Range("A6:AF2005").Sort Key1:=Worksheets(1).Range("A1"), Order1:=xlAscending, Header:=xlGuess, orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
wie es auf den ersten blick scheint muss der schluessel in der ersten spalte der sortierenden daten liegen :-(
war mir bisher gar nicht aufgefallen hihi
gruss nighty
ein beispiel
Sub sortieren()
If ActiveCell.Address = "$C$1" And UCase(ActiveCell) = "X" Then
Worksheets(1).Range("A6:AF2005").Sort Key1:=Worksheets(1).Range("A1"), Order1:=xlAscending, Header:=xlGuess, orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
Antwort 2 von nighty vom 27.09.2019, 18:35 Options
hi daniel
dein target stammt uebrigens aus einer ereignisprocedur dessen uebergabevariable :-)
gruss nighty
dein target stammt uebrigens aus einer ereignisprocedur dessen uebergabevariable :-)
gruss nighty
Antwort 3 von nighty vom 27.09.2019, 18:40 Options
hi daniel :-)
als automatismus(ereignisprocedur) waere es dann so :-)
gruss nighty
einzufuegen
alt+f11/projektexplorer/DeineTabelle
als automatismus(ereignisprocedur) waere es dann so :-)
gruss nighty
einzufuegen
alt+f11/projektexplorer/DeineTabelle
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$C$1" And UCase(Range(Target.Address)) = "X" Then
Worksheets(1).Range("A6:AF2005").Sort Key1:=Worksheets(1).Range("A1"), Order1:=xlAscending, Header:=xlGuess, orderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
Application.EnableEvents = True
End SubAntwort 4 von Daniel_Berlin vom 30.09.2019, 19:01 Options
Vielen Dank für deine Antworten nighty.
Mitlerweile habe ich einfach ein Makro aufgezeichnet und mit diesen Code gearbeitet. Jetzt funktioniert alles!!!
Gruß Daniel
Mitlerweile habe ich einfach ein Makro aufgezeichnet und mit diesen Code gearbeitet. Jetzt funktioniert alles!!!
Gruß Daniel
Ähnliche Themen
Nach Farben sortieren...
RTM80 28.11.2007 - 141 Hits - 7 Antworten
Sortieren von LinkedList
UZUZ 19.02.2008 - 59 Hits - 3 Antworten
Excel; Sortieren; 2 Zellen in Verbindung setzen
detommy 19.05.2008 - 149 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
