Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten sortiert in anderes Worksheet uebernehmen

Daten sortiert in anderes Worksheet uebernehmen
04.10.2004 10:33:18
Kathleen
Hallo,
da ich ein voelliger Newbie in Sachen Makros bin und auch schon verzweifelt das Forum durchsucht habe, probier ichs mal auf diesem Wege.
Ich hab ein Worksheet auf dem eine Bewertung vorgenommen wird, in einem zweiten Sheet sollen dann entsprechend der Bewertung die Eintraege sortiert erscheinen, um dann jeweils Massnahmen ableiten zu koennen. Ich braeuchte also ein Makro, dass mir die Daten sortiert (nach dem Ranking (A,B,C) im ersten Sheet) in das zweite uebernimmt.
Bin fuer jede Hilfe dankbar!
Kathleen.
AW: Daten sortiert in anderes Worksheet uebernehmen
KlausK
Hallo Kathleen,
ich würde als Newbie den Makrorekorder benutzen. D.h. mittels des Rekoders die gesamte Prozedur aufzeichnen und das so enstandene Makro einer Schaltfläche zuweisen.
Gruß
KlausK
AW: Daten sortiert in anderes Worksheet uebernehmen
04.10.2004 11:02:16
Kathleen
Hallo Klaus,
das ganze Procedere habe ich schon versucht und den entstandenen Code in das Change-Ereignis des ersten Worksheets kopiert, aber irgendwie vermischt er die Eintraege.
Gehe ich eigentlich richtig vor: ich erstelle Zellverknuepfungen zwischen den beiden Spalten von Worksheet 1 und den Spalten von Worksheet 2. Dann zeichne ich das Makro auf:...ich markiere die zwei Spalten in Worksheet 2 und lasse sortieren. Und diesen Code hab ich dann in das Change-Ereignis von WS 1 kopiert. Aber wahrscheinlich hab ich noch einen Denkfehler bzw. gehe falsch vor. Was meinst Du?
Gruss Kathleen.
Anzeige
AW: Daten sortiert in anderes Worksheet uebernehmen
KlausK
Hallo Kathleen,
ich hatte Deine Frage so verstanden:
Die Daten sind in der Tabelle1 und sollen dort sortiert werden.
Die sortierten Daten sollen dann in die Tabelle2 kopiert werden.
Ich habe mal ein kleines Beispiel auf die schnelle hochgeladen.
https://www.herber.de/bbs/user/11639.xls
Gruß
KlausK
AW: Daten sortiert in anderes Worksheet uebernehmen
04.10.2004 11:06:59
joschi05fan
Hallo Kathleen,
Willst du die Daten sortiert kopieren, oder hast du die Daten schon in deinem zweiten Worksheet, und willst nur diese Daten sortieren? Denn dann brauchst du ja das Makro nicht in das erste Worksheet kopieren, sondern nur die Daten im zweiten Worksheet sortieren.
MFG
Joschi
Anzeige
AW: Daten sortiert in anderes Worksheet uebernehmen
04.10.2004 11:18:34
Kathleen
Also vielleicht hab ich mich ein wenig missverstaendlich ausgedrueckt.
Die Daten (2 Spalten) sollen automatisch in das zweite Blatt uebernommen werden und auch erst dort sortiert werden. Das ganze soll aber moeglichst automatisch gehen, also ohne Button. Mit Button hab ichs grad mal versucht und da funktioniert mein aufgezeichnetes Makro. Ich haette aber gerne eine automatische Uebernahme und Sortierung beim Wechsel des Blattes.
Danke Kathleen.
AW: Daten sortiert in anderes Worksheet uebernehmen
EtoPHG
Hallo Kathleen,
Wenn Dein Makro schon funktioniert, dann füge doch den Code in das Worksheet auf das Du kopieren willst unter dem Ereignis:

Private Sub Worksheet_Activate()
MsgBox "Füge Hier Deinen Makrocode ein"
End Sub

Gruss Hansueli
Anzeige
AW: Daten sortiert in anderes Worksheet uebernehmen
Kathleen
irgendwie funktionierts nicht. Sorry, man stellt sich aber auch an...
Ich nehme an, dass ich die Datenuebernahme auch automatisieren muss? Bisher habe ich die Zellverknuepfung vorher manuell gemacht und nur die Sortierung im WS 2 ueber ein Makro aufgezeichnet. Deshalb funktioniert es auch nicht mit dem Active-Ereignis des WS 2.
Wie automatisiere ich beides?
Danke fuer Eure Hilfe!!
AW: Daten sortiert in anderes Worksheet uebernehmen
EtoPHG
Hallo Kathleen,
Unter der Annahme, dass die beiden Spalten A,B aus Blatt 1 auf A,B nacht Blatt2 zu kopieren sind:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Worksheets(1).Range("A:B").Copy _
Destination:=Worksheets(2).Range("A1")
MsgBox "Füge Hier Deinen Code für das Sortieren ein"
Application.ScreenUpdating = True
End Sub

Sonst musst Du die Blatt Index und Rangeadressen im Copy Befehl ändern.
Gruss Hansueli
Anzeige
AW: Daten sortiert in anderes Worksheet uebernehme
Kathleen
Vielen Dank fuer den Tip.
Ich habe mal noch eine andere Frage:
Ich habe ueber jeder Spalte quasi 2 Ueberschriften, sprich eine Haupt- und eine Teilueberschrift. Die Hauptueberschrift geht teilweise ueber mehrere Spalten, will heissen ich hab mehrere gemergte Zellen. Da funktioniert das leider mit dem Kopieren von 2 kompletten Spalten (z.B. A,D) nicht. Auch beim Sortieren muss man einen konkreten Bereich waehlen, obwohl es mir lieber waere, ich koennte die ganze Spalte sortieren lassen. Bei der Auswahl der kompletten Spalte sortiert er mir aber dummerweise auch immer meine Teilueberschrift mit ein.
Hast Du noch einen Tip fuer mich, wie ich den Ueberschrift-Bereich definieren kann oder aehnliches?
Danke Kathleen.
Anzeige
AW: Daten sortiert in anderes Worksheet uebernehme
EtoPHG
Hallo Kathleen,
Ich würde den zu sortierenden Bereich (d.h. Daten und Untertitel, aber OHNE den Haupttitel) benennen, d.h. selektieren und einen Namen z.B. "SortierBereich" vergeben.
Damit kannst Du in VBA die Range("SortierBereich").Select auswählen und anschliessend
den Sortierbefehl ausführen. Die Sortierkriterien beziehen sich dann nur auf die Kolonnen der Untertitel.
Beispiel:
Hauptitel in A1 B1:C1 (gemergte Zellen)
Untertitel A2, B2, C2
Bereich: A2:C100 = "SortBer"
Sortierung: Kolonne A absteigend, Kolonne C aufsteigend.

Sub SortX()
Range("SortBer").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlDescending, Key2:=Range("C3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

Gruss Hansueli
Anzeige
AW: Daten sortiert in anderes Worksheet uebernehme
Kathleen
Hallo Hansueli,
ja, maih, was wuerd ich ohne Eure Tips machen. Dankeschoen, so funktionierts erstmal behelfsmaessig. Auch wenn es mir lieber waere, wenn ich keinen fixierten Bereich hab, und er mir quasi alle Eintraege in der Spalte vom ersten Sheet uebernimmt und entsprechend dieser Anzahl auch den zu selektierenden Bereich fuers Sortieren festlegt. Oder eben gleich die ganze Spalte auswaehlt, um keinen Eintrag zu vergessen. Werden naemlich im ersten Sheet bspw. mehr als 50 Eintraege vorgenommen (ist nicht fix), dann waehlt er mir nur die ersten 50 auf dem zweiten WS aus.
Ich danke Dir trotzdem wie wild!!
Gruss Kathleen.
Anzeige
AW: Daten sortiert KEIN FIXER Bereich
EtoPHG
Hallo Kathleen,
Es freut mich, das ich wenigstens ein bisschen zur Problemlösung beitragen konnte.
Zu Deinen Wünschen, ... kein fixer Bereich ...
Wenn man einen Bereich z.B. A2:C100 benennt z.B. als "SortBer", dann kommt es darauf an, wie neue Zeilen eingefügt werden. Werden diese NACH A2 und VOR C100 eingefügt, so wird der benannte Bereich automatisch erweitert, d.h. Ich füge 10 Zeilen bei z.B. A17 ein, so ist mein "SortBer" nachher automatisch A1:C110 und damit funktioniert das Makro natürlich wieder. Nur ein einfügen NACH C100 würde den Bereich nicht ausdehnen.
Gruss Hansueli
Anzeige

96 Forumthreads zu ähnlichen Themen

Syntax Spalte über Objekt Workbook - Worksheet ...
Peter

...
Guten Tag
Wie kann ich die einen bestimmten Bereich in einer Tabelle mittels Objekt Workbook und Objekt Worksheet ansprechen?
Im nachfolgenden Code funktioniert
With wbZiel.wsTab
nicht.
Danke für eine Antwort.
Gruss, Peter
Sub spaltenbreite2() Dim wbZiel As...
11.12.2008 09:11:14
Thread-ID: 1031920
3 Beiträge
Anzeige
Passwort in Worksheet
Sven

Hi
Wollte mit diesem Code das Blatt entsperren. Leider funktioniert es nicht so wie ich es wollte.
Worksheets("Lager").Unprotect , Password:="1w56"
Für Eure hilfe wäre ich froh
Gruß
Sven
14.03.2009 19:10:39
Thread-ID: 1060230
3 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Anzeige
this Workbook und auch this worksheets?
lisa

Hallo
Ich würde in meinem unten gezeigten Code gern auf die Bezeichnung des Tabellenblattes verzichten.
Wenn ich anstelle von,
ThisWorkbook.Worksheets("Donnerstag").Range("z13"). ,
ThisWorkbook.ThisWorksheets.Range("z13"). , einsetze klappte es nicht.
Kann man ohne Benennung...
16.11.2009 12:45:03
Thread-ID: 1117562
8 Beiträge
Error 1004 'Copy Method of Worksheet Class failed'
André

Hallo zusammen,
nach etlichen, vergeblichen Unternehmungen den "Copy Method of Worksheet Class failed" Fehler
zu beheben bzw. zu umgehen, hoffe ich, dass ihr mir helfen könnt.
Mit einem Messprogramm wird jeden Tag eine Datei mit einigen Hundert Werten in einem Ordner erstellt. Diese...
27.04.2010 10:05:48
Thread-ID: 1153991
18 Beiträge
ThisWorkbook.Worksheets("Check").Tab.ColorIndex ..
Peter

Guten Tag
Untenstehender Code stoppt bei der Zeile
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 10 ' = grün
wenn die aktive Tabelle, bei der eine Änderung erfolgt, nicht die Tabelle "Check" ist.
Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht."
...
02.09.2010 08:55:46
Thread-ID: 1175368
5 Beiträge
in neuem Workbook zweites Worksheet einfügen
Peter

Guten Tag
Ich möchte in einem neu angelegten Workbook ein zweites Worksheet einfügen und dieses dann mit "Test" benennen. Mein Versuch ist fehlgeschlagen. Wer hilft mir weiter?
Danke und Gruss, Peter
Sub NeueTabelle() Dim wbNeu as Workbook, WS as Worksheet Set wbNeu = Workbooks.Ad...
19.09.2011 12:47:07
Thread-ID: 1230558
3 Beiträge
workbook / worksheet
Hartmut

Hallo liebes Forum
Ich habe zwei identische Macros in meiner Tabelle
ein mal wird das Macro beim öffne der Tabelle ausgeführt mit:
Private Sub Workbook_Open() 'mein code end if End Sub dann genau das gleiche Macro in der Tabelle bei calculate
Private Sub Worksheet_Calculate() '...
05.07.2012 09:26:00
Thread-ID: 1269972
8 Beiträge
Anzeige

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
2
2
2
4
13
7
17
4
2
7
6
2
2
1
5
2
3
5
5
1
9
7
2
2
3