Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Koplette Zeile kopieren

Forumthread: Koplette Zeile kopieren

Koplette Zeile kopieren
10.05.2006 19:57:54
Christian
Hallihallo,
ich habe das Problem, dass ich eine sehr große Tabelle habe. Die entsteht dadurch, dass je nachdem was man für eine Bauvariante ausgewählt hat, die Spalte 'Menge' mit den entsprechenden Mengen füllt. Da gibt es dann einige Komponenten die nicht benötigt werden - sprich Menge ist 0. Die würde ich gerne beim Ausdruck nicht dabei haben. Gibt es die Möglichkeit, alle Zeilen die eine Menge größer 0 aufweisen automatisch in eine separate Tabelle zu kopieren...bsp. in die Zeile 1 bis 15?

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

Vielen Dank
Christian
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Koplette Zeile kopieren
10.05.2006 21:05:57
david
ok ich habs mal auf die schnelle gemacht.
das makro schreibt dir deine gewünschten daten ins tabellenblatt2:

Sub neue_tabelle()
'spaltennamen kopieren
Sheets("Tabelle1").Rows(24).Copy
Sheets("Tabelle2").Activate
Rows(1).Select
ActiveSheet.Paste
'zeilen mit d>0 kopieren
j = 2
Sheets("Tabelle1").Activate
For i = 25 To 39
If Sheets("Tabelle1").Range("d" & i) > 0 Then
Sheets("Tabelle1").Rows(i).Copy
Sheets("Tabelle2").Activate
Rows(j).Select
ActiveSheet.Paste
j = j + 1
Else
End If
Next
End Sub

oder hier: ---> https://www.herber.de/bbs/user/33538.xls
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige