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
Anzeige
Inhaltsverzeichnis

Tabellenbereich kopieren und einfügen

Forumthread: Tabellenbereich kopieren und einfügen

Tabellenbereich kopieren und einfügen
13.05.2006 15:23:51
Stamereilers
Hallo Excel Experten!
Ich möchte per Makro Zeilen aus einem Tabellenblatt in ein anderes Kopieren.
Aber nur wenn In Zelle D2:D2000 eine Zahl oder ein Text steht.
Sheets("Firma").Select
Dim Wert As String
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Zeit").Range("A2:M2000,P2:R2000").Copy
Sheets("Firma").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone
Könnt ihr mir helfen?
Vielen Dank!
Gruß
Rolf
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenbereich kopieren und einfügen
13.05.2006 16:16:29
Franz
Hallo Rolf,
das Makro überprüft Zeile für Zeile, ob im Blatt Zeit in Spalte D ob in der Zelle ein Wert steht. Falls ja, wird die Zeile in das Blatt Firma kopiert. Ich hoffe ich hab dich da korrekt verstanden. Statt Zeile 2000 habe ich als Suchbereich den tatsächlich mit Daten belegten Bereich der Tabelle verwendet. So ist das makro schneller, weniger als 2000 Zeilen in der Tabelle Zeit mit daten belegt sind. 

Sub ZeilenKopieren()
Dim Suchbereich As Range, Zelle As Range
Dim Zeit As Worksheet, Firma As Worksheet
Set Zeit = ActiveWorkbook.Sheets("Zeit")
Set Firma = ActiveWorkbook.Sheets("Firma")
'Vorhandene Daten in Tabelle Firma ab Zeile 2 löschen
Firma.Range(Cells(2, 1), Cells(Firma.UsedRange.Row + Firma.UsedRange.Rows.Count, 1)).EntireRow.Delete
Set Suchbereich = Zeit.Range("D2:D" & Zeit.UsedRange.Row + Zeit.UsedRange.Rows.Count - 1)
For Each Zelle In Suchbereich
If Not IsEmpty(Zelle) Then 'Zelle ist leer
Zelle.EntireRow.Copy
Firma.Cells(Firma.UsedRange.Row + Firma.UsedRange.Rows.Count, "A").PasteSpecial Paste:=xlValues, Operation:=xlNone
End If
Next
Application.CutCopyMode = False
End Sub

mfg
Franz
Anzeige
AW: Tabellenbereich kopieren und einfügen
14.05.2006 22:10:16
Stamereilers
Hallo Franz!
Vielen Dank!
Es funktioniert!
Gruß
Rolf

Forumthreads zu verwandten Themen

befüllte Zellen zwischen zwei Tabellen verknüpfen
MichaelS

Hallo Excel- und VBA-Profis,
nach langem rumprobieren und kurz vor der Verzweiflung musss ich nun meine Frage hier formulieren!
Ich bin dabei für meine Firma ein mit Makros bestücktes Preisblatt zu erstellen.
Ziel ist dabei einen Preisvergleich darzustellen, der manuell mit sehr seh...
16.01.2013 12:13:57
Thread-ID: 1294549
1 Beitrag
VBA / Tabellenblätter global mutieren
AdiDC

Hallo Zusammen
Ich stehe vor folgendem Problem, welches - so nehme ich schwer an - nur mittels VBA gelöst werden kann. Und da ich mich nicht als VBA-Spezialist bezeichnen kann, wende ich mich mit Hoffnung an euch, dass ihr mir weiterhelfen könnt:
Ausgangslage:
Meine Anlagebuchhaltun...
29.04.2020 12:35:17
Thread-ID: 1755627
3 Beiträge
Anzeige
Excel Bereich nach PPT verknüpfen
Marc

Hallöchen,
ich ärgere mich seit gestern mit einem VBA Skript rum.
Ziel ist es einen Bereich in Excel zu kopieren und per VBA in eine ppt Seite einzufügen.
(Excel 2010, PPT 2010)
Im Prinzip soll VBA das abbilden, was ich erziele, wenn ich in PPT über Inhalte einfügen/ Verknüpfung...
10.10.2013 12:07:12
Thread-ID: 1333892
1 Beitrag
Kopieren und Werte einfügen
Andreas
Hallo Excelfreunde
Ich habe ein kleines Problem
möchte aus einer Ausgang.xls Tabelle("Ausgang") Daten("A10:H10")in eine andere Datei ("Ziel.xls) Tabelle("Kopie") in den Bereich ("A20:H20") einfügen
ich habe das mit einem Macro versucht nur leider erscheinen die Daten nur als Nullen.
...
20.07.2003 13:16:10
Thread-ID: 283146
7 Beiträge
Anzeige
Blatt kopieren - knifflig
Dirk

Hallo an alle,
ich bin anscheinend auf der Suche nach der "eierlegenden Wollmilchsau" u. im Archiv leider nicht so recht fündig geworden... :-((
Zwecks Archivierung möchte ich ein Tabellenblatt in eine andere, bestehende Datei kopieren (mittels CommandButton).
Besonderheiten sind al...
08.04.2008 02:28:59
Thread-ID: 966672
10 Beiträge
automatische verknüpfungen zu einer anderen Mappe
Marcel

Liebe Excel-aner!
Ich möchte gerne eine "automatische verknüpfungen zu einer anderen arbeitsmappe" abschaffen.
Wenn ihr mir helfen könnt, wäre das toll!
Ausgangssituation:
Excel 2000.
Ich habe eine Tabelle mit mehreren Tabellenblättern und VBA-Code. Diese nennen wir Haupttab...
10.08.2007 11:04:34
Thread-ID: 895414
2 Beiträge
Tabellenautomatisierung - Tabellen kopieren
Felix

Hallo Excel Community,
Ich habe gerade ein Problem bei Excel VBA, bei dem ich nicht weiter weiß und wende mich nun an euch!
In der Arbeitsmappe befinden sich 7 Blätter. Auf dem ersten Blatt befindet sich eine Gesamttabelle in dem alle Einträge sortierbar in Tabellen eingetragen sind un...
22.05.2018 01:14:58
Thread-ID: 1624990
6 Beiträge
Anzeige
Blätter in Mappe automatisch aktualisieren.
Stephan

Hallo. Ich hatte bis heute folgende Herausforderung :

Bezieht sich auf diese Nachricht:
Hallo !
Bin in Excel zwar kein Newbie, aber habe ein Problemstellung und komme nicht weiter. Möchte ein paar Excel-Tabellen, die ab und zu per Hand aktualisiert werden, in einer Mappe zusamme...
24.05.2005 18:18:26
Thread-ID: 615635
1 Beitrag
Blätter in Mappe automatisch aktualisieren.
Stephan

Hallo. Ich hatte bis heute folgende Herausforderung :

Bezieht sich auf diese Nachricht:
Hallo !
Bin in Excel zwar kein Newbie, aber habe ein Problemstellung und komme nicht weiter. Möchte ein paar Excel-Tabellen, die ab und zu per Hand aktualisiert werden, in einer Mappe zusamme...
24.05.2005 18:19:01
Thread-ID: 615636
2 Beiträge
Kopieren / Inhalte einfügen
Hans

Hallo Forum
Ich habe in diversen Zellen, Formeln hinterlegt. Teilweise sind es Bezüge ab anderen Tabellen und/oder sogar ab anderen Files. Jetzt möchte ich diese Verknüpfungen löschen. Dass heisst, ich kann das ganze Blatt kopieren und Inhalte einfügen, Werte. Das ist soweit kein Problem. J...
01.01.1970 01:00:00
Thread-ID: 418389
4 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum