Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
616to620
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
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen extrahieren und auf anderem Blatt einfügen

Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 11:33:33
Reno
Hallo,
ich bräuchte eure hilfe bei folgendem problem.
in meinem anhang findet ihr eine excel datei mit zwei arbeitsblättern.
auf dem ersten findet ihr eine kurze beispielliste.
https://www.herber.de/bbs/user/23598.xls
ich möchte nach beendigung des vorgangs nur noch offene orders in dieser liste stehen haben und die delivered orders auf dem zweiten arbeitsblatt in die tabelle eingefügt haben. Dabei sollen die entstandenen Lücken auf blatt 1 verschwinden, also hochrücken, damit eine saubere liste ensteht.
welche makro anweisungen könnte ich dafür verwenden? Kann mir dabei irgendein experte helfen?

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 12:29:12
EffHa
Hallo Reno,
so sollte es klappen.
Du musst dann aber noch die Numerierung in der 1 Tabelle anpassen.
Gruß
Fritz

Private Sub EXPORT_Click()
Dim WsAll As Worksheet
Dim WsDel As Worksheet
Dim LetzteZeile&, I&, J&, X&
Set WsAll = ActiveWorkbook.Worksheets(1)
Set WsDel = ActiveWorkbook.Worksheets(2)
LetzteZeile = WsAll.Cells.SpecialCells(xlCellTypeLastCell).Row  'letzte Zeile ernmitteln
X = 5   'Startzeile in delivered
For I = 5 To LetzteZeile
If UCase(WsAll.Cells(I, 10)) = "DELIVERED" Then
For J = 3 To 10
WsDel.Cells(X, J) = WsAll.Cells(I, J)
Next
X = X + 1
WsAll.Rows(I).Delete
End If
Next
End Sub

Anzeige
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 13:35:33
Reno
Hallo Fritz,
danke für deine schnelle Antwort.
jedoch habe ich leider so wenig ahnung von VBA das ich nicht weiß was du mit der Nummerierung anpassen in Tabelle 1 meinst.

Kannst du mir dass vielleicht noch erklären?
Sorry, aber das ist noch neuland wo ich mich gerade erst herantaste...
Gruß, Reno
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 13:56:02
EffHa
Hallo Reno,
wenn Du das Makro ausführst, ist in der Spalte "B" der ursprünglichen Tabelle die Numerierung nicht korrekt.
Durch das Löschen von Zeilen steht dort dann 1,2,3,5,7 (in Deiner Beispieldatei)
Gruß
Fritz
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 14:24:38
Reno
Hallo Fritz,
Ok, das mit den Zahlen hab ich jetzt kappiert...is ja auch logisch.
Jedoch vergaß ich zu sagen, dass das tool weiterführend genutzt werden soll,
damit meine ich sobald einträge ins blatt 2 verschoben werden,kann es sein das auf blatt 1 wieder neue Order dazu kommen. Leider klappt das nur bis zeile 6 od. 7. Leider fand ich diesen Wert nicht in deinem Makro
Der Klick auf den Button sollte dann einmal wöchentlich erfolgen und einen besseren überblick geben. Oder mach ich irgendwas falsch. irgendwie klappt das nicht.

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

dank dir & gruß
Reno
Anzeige
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 14:29:04
Reno
Hallo Fritz,
Ok, das mit den Zahlen hab ich jetzt kappiert...is ja auch logisch.
Jedoch vergaß ich zu sagen, dass das tool weiterführend genutzt werden soll,
damit meine ich sobald einträge ins blatt 2 verschoben werden,kann es sein das auf blatt 1 wieder neue Order dazu kommen. Leider klappt das nur bis zeile 6 od. 7. Leider fand ich diesen Wert nicht in deinem Makro
Der Klick auf den Button sollte dann einmal wöchentlich erfolgen und einen besseren überblick geben. Oder mach ich irgendwas falsch. irgendwie klappt das nicht.

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

dank dir & gruß
Reno
Anzeige
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 14:44:51
EffHa
habe einen kleinen Fehler gemacht.
Wenn man eine Zeile löscht, muss man auch den ZeilenZähler(I) wieder korrigieren.
Sonst würden 2 hintereinanderfolgende"delivered" nicht richtig bearbeitet.
Anbei die korrigierte Version
https://www.herber.de/bbs/user/23610.xls
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 14:57:08
Reno
Sorry, aber diese Version funktioniert leider auch nicht.
er schreibt nur in zelle C5 produkt 6 obwohl produkt 10,12,13, etc. auch delivered sind.
mmh... jetzt weiß ich nicht mehr was ich machen soll...
gibt es keine andere lösung?
Gruß,
Reno
Anzeige
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 15:03:07
EffHa
Das ist merkwürdig, wenn ich die datei lade und auf den Button klicke, klappt alles.
bekommst du eine Fehlermeldung?
vielleicht den Code mal im Debug-Modus ausführen und schauen, was paaiert.
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 15:08:33
Reno
ich hab es jetzt mit 6 einträgen versucht, und da klappt alles perfekt.
füge ich jedoch 2 hinzu und klassifiziere sie als delivered und drücke dann den button,
dann überschreibt er die zuvor verschobenen und ergänzt sie nicht.
ich habe also ein problem in der Tiefe des Datenbereichs sowie in der mehrfachen ausführung des Makros...
hast du eine idee?
Gruß Reno
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 15:13:10
EffHa
Wenn Du an die Delivered-Tabelle was anhängen möchtest, damm musst Du den Wert von "X" entsprechend vorher ermitteln.
In diesem Makro wird "X" statisch auf 5 gesetzt. d.h. bei einem weiteren klick, fängt er wieder bei zeile 5 an einzufügen.
Anzeige
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 15:20:16
Reno
weist du vielleicht wie man diesen wert um die neu zu verschiebenen "delivered-Einträge" beim wiederholten Klick erweitern kann.
vielleicht irgendwas mit: count delivered einträge = erweiterungszahl ?
gruß, reno
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 15:25:05
EffHa
zum ermitteln der Startzeile ind "delivered" kann z.B. so vorgehen.
X = 5 'Startzeile in delivered
For I = 5 To LetzteZeileDel
If WsDel.Cells(I, 3) = "" Then
X = I
Exit For
End If
Next
wenn man den Code ausführt und "delivered" ist noch jungfräulich, ist X=5
sonst grast er die Zeilen in der Tabelle ab und wenn eine Zelle leer ist bricht er die schleife ab und setzt X auf den Wert der Zeile, die leer ist.
Anzeige
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 15:38:35
Reno
Du bist genial. alles klappt so wie ich es wollte.
ich werde dich und deine geduld weiterempfehlen...
Gruß, Reno
AW: Zeilen extrahieren und auf anderem Blatt einfügen
03.06.2005 16:16:02
EffHa
Freut mich, wenn ich Dir helfen konnte.
Eins muss aber noch berücksichtigt werden:
Das ermitteln der letzten Zeile mit:
LetzteZeile = WsAll.Cells.SpecialCells(xlCellTypeLastCell).Row
bleibt immer gleich, auch wenn Zeilen gelöscht oder hinzugefügt werden.
Erst nach dem speichern der Tabelle werden diese werte neu errechnet.
Gruß
Fritz
Anzeige

303 Forumthreads zu ähnlichen Themen

Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Anzeige
Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
mehrere Tabellenblätter in ein PDF drucken
Christian

Hallo zusammen,
nachdem ich im Forum keine Info zu meinem Thema gefunden habe:
Ich möchte mehrere Tabellenblätter einer Datei als PDF ausdrucken. Also markiere ich die Tabellenblätter und gehe wie gewohnt ins Menü "Drucken" (PDF über Acrobat 7.0 oder PDF XChange 4.0 Lite).
Leider we...
10.10.2008 09:11:00
Thread-ID: 1015503
2 Beiträge
Anzeige
3D Diagramm erstellen aus Matrix
Kay

Hallo,
Ich habe in Excel eine Matrix, die folgendermaßen aufgeteilt ist
A B C D
15 12% 10% 15% 20%
30 10% 13% 17% 19%
45 8% 12% 15% 17%
Wie bekomme ich es nun hin, dass mir auf der Größenachse alle %-Werte, auf der Rubrikenachse die Zeile...
29.10.2008 21:38:38
Thread-ID: 1020422
7 Beiträge
Optimale Spaltenbreite per makro auf anderem Blatt
Macro

Hi,
Ich möchte von einem Tabellenblatt aus per Button die "optimale Spaltenbreite" auf einem anderen Blatt einstellen.
Kann ich das machen, ohne dass mein Tabellenblatt, von dem ich aus starte, den Focus verliert, bzw, dass ich das zweite Tabellenblatt (wo die Einstellung statt finden...
10.12.2008 13:37:50
Thread-ID: 1031680
4 Beiträge
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Diagramm als Tacho mit 3 Linien
SteffenS

Hallo Zusammen,
ich habe im Netz ein Beispiel für ein Tachodiagramm gefunden.
Dieses funktioniert auch super.
Ich benötige aber statt zwei 3 Zeiger.
Wie mache ich dies?
Hier die Datei: https://www.herber.de/bbs/user/61277.xls
Danke im Voraus.
MFG
Steffen Schmerl...
18.04.2009 14:20:13
Thread-ID: 1069491
4 Beiträge
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 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
1
2
4
1
4
6
3
3
3
2
5
1
13
5
4
6
2
2
3
3
2
2
3
6
1