Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Probleme (für mich)

2 Probleme (für mich)
20.08.2008 18:47:54
Peter
Hallo Excel-Gemeinde,
hier mein 1. Problem :
Ich habe ein Workbook mit 2 Sheets ("Monitor" ;"Editor"). Gearbeitet wird hauptsächlich in Monitor.
Eine Makro ,aus Monitor gestartet, aktiviert u.a. den Editor, sortiert dort eine Tabelle und aktiviert danach wieder den Monitor und läuft hier bis zum Ende.
Jetzt meine Frage : Ist es möglich, per VBA die Tabelle in Editor zu sortieren, ohne dass dieser zuvor aktiviert werden muss? Das Sortieren soll gewissermaßen im Hintergrund ablaufen.
Gruß,
Peter F.
(zu Euren Lösungsvorschlägen kann ich erst morgen Stellug nehmen).

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Probleme (für mich)
20.08.2008 19:06:00
Herbert
Hi,
zunächst mal das Selektieren weglassen. Dann dem Sortierbereich den, idealer Weise Codenamen,
voranstellen
Tabelle1.Range("A1:G12345").Sort....
mfg Herbert

AW: 2 Probleme (für mich)
20.08.2008 20:41:00
Peter
Hallo Peter,
sag VBA was du sortieren möchtest und vergiss die Punkte vor den Range-Angaben nicht - siehe Beispiel
With Worksheets("Editor")
.Range("A1:G80").Sort _
Key1:=.Range("G1"), Order1:=xlAscending, _
Key2:=.Range("A1"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End With
Gruß Peter

AW: 2 Probleme (für mich)
20.08.2008 23:27:57
Peter
Hallo Peter,
danke für den Code. Hat prima funktioniert.
Vielleicht kannst du mir noch mal bei einem ähnlich gelagerten Fall unter die Arme greifen:
Ich habe ein Workbook mit 2 Sheets ("Monitor" ;"Editor"). Gearbeitet wird hauptsächlich in Monitor.
Ein Teil eines Makros, das aus dem Monitor heraus gestartet wird, lautet:
'----Neue Zeile In Editor Einfügen----
Sheets("Editor").Activate
Range("A31").Select
Selection.EntireRow.Insert
ActiveCell.Offset(-1, 0).Range("A1:GZ1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
Sheets("editor").Select
Range("A31") = WSN
Range("B31") = ProdName
Application.Goto Reference:="GesamtBulkTab"
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Monitor").Activate
Wie müsste der Code lauten, wenn der Editor nicht zwischdurch aktiviert werden soll ?
Danke für deine Bemühungen.
Gruß,
Peter

Anzeige
AW: 2 Probleme (für mich)
21.08.2008 22:40:37
Peter
Hallo Peter,
die Selects sind nicht nur störend, sondern verlangsamen den Code erheblich und sie sind zu 99% überflüssig.
Sieh zu, dass du ohne sie auskommst - es geht.
Ich habe versuchet dein Makro ein wenig dahingehend umzubauen:

Public Sub Peter()
Dim WkSh      As Worksheet
Dim WSN       As String
Dim ProdName  As String
WSN = "Hugo"
ProdName = "Irgendwas"
With Worksheets("Editor")
.Rows(31).Insert Shift:=xlDown
.Range("A30:GZ30").Copy Destination:=Range("A31")
.Range("A31") = WSN
.Range("B31") = ProdName
'Application.Goto Reference:="GesamtBulkTab"
.Range("A1:GZ" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort _
Key1:=.Range("A7"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End With
'Worksheets("Monitor").Select
End Sub


Gruß Peter

Anzeige
AW: Korrektur
21.08.2008 22:42:24
Peter
Hallo Peter,
so muss es aussehen:

Public Sub Peter()
Dim WSN       As String
Dim ProdName  As String
WSN = "Hugo"
ProdName = "Irgendwas"
With Worksheets("Editor")
.Rows(31).Insert Shift:=xlDown
.Range("A30:GZ30").Copy Destination:=Range("A31")
.Range("A31") = WSN
.Range("B31") = ProdName
Application.Goto Reference:="GesamtBulkTab"
.Range("A1:GZ" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort _
Key1:=.Range("A7"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End With
Worksheets("Monitor").Select
End Sub


Anzeige

299 Forumthreads zu ähnlichen Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Anzeige
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Anzeige
Automatische Umwandlung Punkt in Komma
Harry

Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
08.08.2008 21:00:38
Thread-ID: 1000413
5 Beiträge
Mit formel Anfang und ende bestimmen
Stephan

Hallo zusammen,
Wie kan ich mit einer formel den anfang und das ende Festlegen?
Ich habe eine Tabelle mit dem Datum vom 1.8.08-31.8.08, und möchte nur eine woche anzeigen, das heisst in einer zelle "A1" das anfangdatum (4.8.2008) in der "A2" das enddatum (10.8.2008) und "A3" die berec...
09.08.2008 09:19:13
Thread-ID: 1000462
14 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
CommondButton Namen zuweisen
Frank

Hallo Ihr lieben Excelfreunde!!!
Kurze Frage: in einer Tabelle befinden sich einige Steuerelemente - CommandButton's", diesen würde ich gern definierte Namen zuweisen. Beispiel: CommandButton1 soll mit dem Inhalt der Zelle AP1 beschriftet sein, CommandButton 2 mit dem Inhalt der Zelle AP2 u...
11.08.2008 13:10:00
Thread-ID: 1000824
4 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
2
5
4
13
7
3
1
4
12
4
1
9
2
2
6
3
5
3
2
3
3
7