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 Jan1105 vom 11.05.2019, 12:47 Options
kann mir mal jemand ein Makro übersetzen?
Sub Telefonnummern_sortieren()
'
' Telefonnummern_sortieren Makro
' Makro am 09.02.2007 von NB aufgezeichnet
'
'
Sheets("TN").Select
Columns("A:B").Select
Range("B13").Activate
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
ein Wenig verstehe ich ja, nehme Tabelle TN, markiere von A an bis B, aber dann...
vor allem verstehe ich die Zeile "Range B13" nicht, weshalb B13? *wunder*
vielen Dank!
'
' Telefonnummern_sortieren Makro
' Makro am 09.02.2007 von NB aufgezeichnet
'
'
Sheets("TN").Select
Columns("A:B").Select
Range("B13").Activate
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
ein Wenig verstehe ich ja, nehme Tabelle TN, markiere von A an bis B, aber dann...
vor allem verstehe ich die Zeile "Range B13" nicht, weshalb B13? *wunder*
vielen Dank!
Antwort 1 von coros vom 11.05.2019, 12:53 Options
Hallo jan,
woher sollen wir wissen warum B13. Du hast das Makro aufgezeichnet. Dabei werden alle Schritte mit aufgezeichnet. Vergiss den Befehl Range("B13"). Der wird für die Sortierfunktion nicht benötigt.
Außerdem sollte man auf die ganzen Select-Anweisungen verzichten. Nachfolgend Dein Makro mal ohne die ganzen Select-Anweisungen.
Der Recorder zeichnet das halt alles so auf, aber es wird nicht alles benötigt.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
woher sollen wir wissen warum B13. Du hast das Makro aufgezeichnet. Dabei werden alle Schritte mit aufgezeichnet. Vergiss den Befehl Range("B13"). Der wird für die Sortierfunktion nicht benötigt.
Außerdem sollte man auf die ganzen Select-Anweisungen verzichten. Nachfolgend Dein Makro mal ohne die ganzen Select-Anweisungen.
[b]Sub Telefonnummern_sortieren()
'
' Telefonnummern_sortieren Makro
' Makro am 09.02.2007 von NB aufgezeichnet
'
'
Sheets("TN").Columns("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub[/b]Der Recorder zeichnet das halt alles so auf, aber es wird nicht alles benötigt.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Jan1105 vom 11.05.2019, 16:30 Options
hatte mir nur sorgen gemacht, was diese zeile da "anrichten" kann. vielen dank für die erklärung! *verneig* :o)
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
An unsre türkischen Mitmenschen...bitte übersetzen :-)
Maladeite 09.06.2007 - 155 Hits -
kann wegen makro nicht drucken - was machen?
srepsac 26.06.2007 - 118 Hits - 1 Antwort
Windows XP Professional übersetzen
kopfnuss007 05.12.2007 - 79 Hits - 2 Antworten
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
