Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Daten in gleichnamiges Registerblatt sor

Forumthread: Bestimmte Daten in gleichnamiges Registerblatt sor

Bestimmte Daten in gleichnamiges Registerblatt sor
04.02.2013 21:57:09
Marco
Hallo,
bin Anfänger was Sachen VBA-Programmierung betrifft.
Habe hier mal eine Testdatei:

Die Datei https://www.herber.de/bbs/user/83754.xlsm wurde aus Datenschutzgründen gelöscht

Was soll das Makro machen:
Es soll nur die Zeilen ( Spalte A,B und C ), die in den Spalten A-L durch ein X gekennzeichnet werden, in das gleichnamige Registerblatt ( A-L ) kopiert, bzw. sortiert werden. Das Makro soll per Button gestartet werden.
Hoffe ich habe mich verständlich ausgedrückt, und mir kann jemand behilflich sein.
Gruß
Marco

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
05.02.2013 07:34:01
haw
Hallo Marco,
siehe auch Datei: https://www.herber.de/bbs/user/83757.xlsm 
Sub Übertragen()
Dim ws As Worksheet, wsÜ As Worksheet, lz&, i&, efz&, gef As Range
Set wsÜ = ThisWorkbook.Worksheets("Übersicht")
lz = wsÜ.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lz
Set gef = wsÜ.Rows(i).Find("X", LookAt:=xlWhole)
If Not gef Is Nothing Then
Set ws = ThisWorkbook.Worksheets(wsÜ.Cells(1, gef.Column).Value)
If ws.Range("A1").Value = "" Then wsÜ.Range("A1:C1").Copy ws.Range("A1")
efz = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsÜ.Range(wsÜ.Cells(gef.Row, 1), wsÜ.Cells(gef.Row, 3)).Copy ws.Cells(efz, 1)
End If
Next i
End Sub

Gruß
Heinz

Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
05.02.2013 20:50:49
Marco
Hallo Heinz,
vielen Dank für die schnelle Lösung.
Soweit funktioniert das Makro ganz gut...
Habe es jetzt mit einem Button "Sortieren" verknüpft, nur wenn man zwei,drei, oder mehrere male den Button anklickt, so wird die Liste immer wieder sortiert, und man bekommt nicht mit, ob die Liste schon sortiert wurde.
Eine Lösung wäre eine MessageBox einzubauen, die am Ende des Makro erscheint, dass die Liste sortiert wurde.Nur wie muss ich diese in das Makro integrieren?...ich habe leider keine Ahnung davon...
Gruß
Marco

Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
05.02.2013 21:00:03
haw
Hallo Marco,
was meinst du mit sortiert?
Wenn ein Eintrag kein weiteres Mal in die jeweilige Tabelle kopiert werden soll, könnte man z.B. nach dem Übertrag das X durch ein Y ersetzen und es würde kein weiterer Übertrag desselben Bereichs erfolgen.
Oder möglicherweise könnte man die gesamte Zeile nach dem Übertrag löschen.
Wenn du wirklich am Ende eine Messagebox haben willst dann würde das so ausschauen: 
Sub Übertragen()
Dim ws As Worksheet, wsÜ As Worksheet, lz&, i&, efz&, gef As Range
Set wsÜ = ThisWorkbook.Worksheets("Übersicht")
lz = wsÜ.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lz
Set gef = wsÜ.Rows(i).Find("X", LookAt:=xlWhole)
If Not gef Is Nothing Then
Set ws = ThisWorkbook.Worksheets(wsÜ.Cells(1, gef.Column).Value)
If ws.Range("A1").Value = "" Then wsÜ.Range("A1:C1").Copy ws.Range("A1")
efz = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsÜ.Range(wsÜ.Cells(gef.Row, 1), wsÜ.Cells(gef.Row, 3)).Copy ws.Cells(efz, 1)
End If
Next i
MsgBox "Liste wurde sortiert!"
End Sub

Gruß
Heinz

Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
05.02.2013 21:09:45
Marco
Hallo Heinz,
so schnell hätte ich deine Antwort nicht erwartet...
Mit der MessageBox will ich eigentlich nur erreichen, dass man nicht versehentlich noch einmal den Button klickt, und in den Listen die doppelten Zeilen stehen...oder gibt es noch eine andere Alternative, die keine Duplikate in den Listen zulassen...dann kann man den Button so oft klicken wie man will, und die zeilen werden nur einmal in den Listen aufgeführt?
Gruß
Marco

Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
05.02.2013 22:11:47
Marco
Hallo Heinz,
mir ist noch aufgefallen, dass ich in einer Zeile nicht mehrere Spalten mit "X" markieren kann, und in den jeweiligen Listen gefiltert wird...z.B. möchte ich die Zeile 2 in den Listen A und C...hier wird nur in Liste A die Zeile geschrieben.
Da hätte ich gleich noch eine Frage: Ist es möglich die gefilterten Listen A-L per Makro in ein Word-Dokument zu übertragen?...das heisst: Word öffnen, bestimmtes Dokument öffnen ( z.B. mit Namen " Test" ),Liste A aufführen, darunter 2 Leerzeilen, dann Liste B, wieder 2 Leerzeilen, usw?
Gruß
Marco

Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
06.02.2013 07:30:41
haw
Hallo Marco,
dass in mehreren Spalten ein X stehen kann, hast du nicht erwähnt.
Das bedingt eine vollkommen andere Herangehensweise.
Den Übertrag in ein Word-Dokument kann man sicher realisieren, nur bin ich in da nicht so firm.
Ich würde das in eine eigene Excel-Tabelle schreiben.
Hier einmal die Lösung für alle X. Das X wird nach erfolgtem Übertrag in X_ umgewandelt. 
Sub Übertragen()
Dim ws As Worksheet, wsÜ As Worksheet, lz&, i&, efz&, gef As Range, Adr$
Set wsÜ = ThisWorkbook.Worksheets("Übersicht")
Set gef = wsÜ.Cells.Find("X", LookAt:=xlWhole)
If Not gef Is Nothing Then
Adr = gef.Address
Set ws = ThisWorkbook.Worksheets(wsÜ.Cells(1, gef.Column).Value)
If ws.Range("A1").Value = "" Then wsÜ.Range("A1:C1").Copy ws.Range("A1")
efz = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsÜ.Range(wsÜ.Cells(gef.Row, 1), wsÜ.Cells(gef.Row, 3)).Copy ws.Cells(efz, 1)
gef.Value = "X_"
End If
Do
Set gef = wsÜ.Cells.FindNext(gef)
If Not gef Is Nothing Then
Set ws = ThisWorkbook.Worksheets(wsÜ.Cells(1, gef.Column).Value)
If ws.Range("A1").Value = "" Then wsÜ.Range("A1:C1").Copy ws.Range("A1")
efz = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
wsÜ.Range(wsÜ.Cells(gef.Row, 1), wsÜ.Cells(gef.Row, 3)).Copy ws.Cells(efz, 1)
gef.Value = "X_"
End If
Loop While Not gef Is Nothing
End Sub
Gruß
Heinz

Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
07.02.2013 22:00:31
Marco
Hallo Heinz,
sorry das ich mich erst heute melde...
Ich muss wirklich sagen, dass es eine geniale Lösung von Dir ist...echt super...
1. Gibt es eine Lösung, die Spalten wieder von "X_" auf "X" zurückzusetzen?...
Ich habe schon was im Internet über Replace gelesen, komme aber nicht weiter, weil es sich immer auf das ganze Arbeitsblatt bezieht, und ich nur auf Spalten wie in meinem Fall "A-L" brauche...
2. Wie kann ich ein bestimmtes Tabellenblatt z.B. A alle Zellen inkl. Formatierung ab Zeile 2 löschen? ( In der ersten Zeile soll nämlich ein Text stehen bleiben )
Diese beiden Bedingungen sollen über ein Makro laufen...
Sorry, wenn ich Dich damit nerve...
Gruß
Marco

Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
08.02.2013 06:48:16
haw
Hallo Marco,
der Sinn, X_ wieder auf X zurückzusetzen erschließt sich mir nicht, außer zu Testzwecken, denn ist ja der Sinn, dass einmal übertragene Daten nicht mehr berücksichtigt werden.
Wenn du das willst, dann ganz einfach: Die Spalten B-L markieren und mit Suchen/Ersetzen ersetzen.
Gruß
Heinz

Anzeige
AW: Bestimmte Daten in gleichnamiges Registerblatt sor
12.02.2013 13:46:52
Marco
Hallo Heinz,
nach langem probieren hab ich es endlich bis auf ein paar Kleinigkeiten geschafft.
Du warst mir echt eine große Hilfe für mein Anliegen...und dafür ein herzliches Dankeschön!
Meine weiteren Anliegen werde ich in einen neuen Thread veröffentlichen, da es wohl hier in diesen Beitrag nicht reinpasst.
Ich hoffe weiterhin hier im Forum Hilfe zu finden...ob von Dir, oder andere User...
Bis bald...
Marco
Anzeige
;

Forumthreads zu verwandten Themen

Registerblatt aus Autofilter übergeben
Jogi

Hallo Zusammen,
mein Problem ist folgendes:
Ich habe eine Liste, in der steht in Spalte B das Tabellenblatt in den der Eintrag (Werte aus Spalten C bis G) kopiert werden sollen. Nun sind aber Einträge von 30 verschiedenen (in der Mappe vorhandenen) Tabellenblättern enthalten.
Wie be...
26.09.2008 23:17:18
Thread-ID: 1012771
3 Beiträge
Name des Registerblattes abfragen
Bernd

Hallo,
ich würde gerne den Namen eines Registerblattes in einer Zelle des Registerblattes "abfragen".
Wie geht das?
Gruß
Bernd
08.10.2008 11:36:43
Thread-ID: 1014979
6 Beiträge
Registerblatt frei geben ??
Denise

Habe für die Anwesenheitskontrolle ein Excell mit einer Registerkarte pro Person.
Ist es möglich für einzelne Personen nur deren spezifische Registerkasrte frei zu geben ?
26.01.2009 10:08:58
Thread-ID: 1043769
11 Beiträge
Zelle im Registerblatt wählen bei laufendem Makro
Georg

Hallo zusammen,
habe folgendes Problem:
In einer Excel-Arbeitsmappe gibt es ein Registerblatt mit einem Button. Wird dieser angeklickt, so öffnet sich das Datei-Auswahlfenster. Pfad und Dateiname werden anschließend auf dem Registerblatt in zwei Zellen eingetragen. Nun öffnet sich die e...
28.01.2009 18:20:00
Thread-ID: 1044666
3 Beiträge
Registerblattname
Lars

Hallo habe ne Frage.... wie bekomme ich per VBA den Registerblattnamen automatisch vergeben ?
angenommen Name steht in Zelle A5, er soll dann so aussehen TV_"A5"
Danke euch
25.06.2009 14:14:59
Thread-ID: 1084345
3 Beiträge
Registerblätter sortieren
Ralf_P

Hallo zusammen,
gibt es die Möglichkeit, bei umfangreichen Tabellen / Registern, die Register per VBA alphabetisch zu sortieren?
Viele Grüße, Ralf
24.08.2009 11:17:11
Thread-ID: 1098112
4 Beiträge
Menü am Registerblatt hinzufügen
steffen

Hallo in die Runde,
ich möchte gern am Tabellenregister einen weiteren Menüpunkt hinzufügen, der dann einen Code ausführt hinzufügen.
Könnt Ihr mir helfen?
Gruß Steffen
13.10.2009 09:59:55
Thread-ID: 1109255
2 Beiträge
Anzeige
Registerblatt per Makro importieren
Kälberer

Hallo zusammen,
wie schaffe ich es, ein Registerblatt per Makro von einer .xls Datei in eine andere .xls Datei einzufügen?
Das einzufügende Blatt, bzw. die Datei in der es sich befindet ist immer am gleichen "Ort" gespeichert.
Können Makros überhaupt auf Dateien zugreifen, die sich...
02.11.2009 19:40:36
Thread-ID: 1113923
6 Beiträge
Bezug zu Registerblattnamen
Malte

Hallo zusammen.
Ich brauche eure Hilfe und hoffe, dass ihr mir helfen könnte und es überhaupt machbar ist. Ich habe eine Arbeitsmappe mit verschiedenen Daten von Abteilungen (alle Blätter identisch aufgebaut) und möchte in einem Zusammenfassungsblatt automatisch Daten generieren.
Dabei...
04.11.2009 12:48:59
Thread-ID: 1114473
3 Beiträge
Registerblattname automatisch ändern | Herbers Excel-Forum
Christian Wendker
Hallo Spezilisten!
Habe ein Problem mit den Registerblattnamen. Ich habe auf der ersten Registerkarte eine Liste mit Namen und möchte jetzt die folgenden Registerkarten nach diesen Namen benennen. Außerdem sollen diese sobald ich einen Namen in der Liste ändere automatisch mit geändert werden.<...
17.01.2010 01:43:42
Thread-ID: 1130550
4 Beiträge
Makro bei Registerblatt x ausführen
Ingo

Hallo miteinander,
hab mal wieder ein Problem.
Bei meiner Exceldatei habe ich mehrere Registerblätter in Benutzung und
immer wenn das Blatt "Vorlage" ausgewählt wird, soll der Befehl
Bedienungsanleitung.Show
ausgeführt werden.
Dachte da an sowas wie
Private Sub Work...
24.02.2010 09:54:32
Thread-ID: 1140958
5 Beiträge
Registerblätternnamen auslesen
Holger

Moin, moin!
Ich habe eine große Arbeitsmappe und möchte jetzt in einem Arbeitsblatt alle Registerblattnamen der Arbeitsmappe in Zeilen untereinander ausgelesen bekommen. Wie kann man da machen? Danke euch!
Holger
12.06.2010 08:59:07
Thread-ID: 1161479
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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