Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro soll nur Zeilen mit Inhalt kopieren

Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 10:59:00
Ulrike
Hallo Leute,
aus zwei getrennten Listen möchte ich gerne eine Gesamtliste machen. Leider ändert sich die Länge der Ursprungslisten häufig, so dass ich das folgende Makro so umändern möchte, dass aus beiden Tabellen nur die Zeilen mit Inhalte kopiert werden. Die zweite Tabelle soll dann ohne Leerzeile an die erste anknüpfen. Falls jemand im Ansatz nachvollziehen kann was ich meine und eine Lösung hat ... ganz grossen Dank im voraus.
Windows("Umbau1").Activate
Range("A2:I222").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Mappe1").Activate
ActiveSheet.Paste Link:=True
Range("A1:I221").Select
Application.CutCopyMode = False
Windows("Umbau2").Activate
Range("A2:I222").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Mappe1").Activate
ActiveSheet.Paste Link:=True
Range("A222:I335").Select
Application.CutCopyMode = False
Falls eine ähnliche Frage schon mal da war ... Sorry, war wohl blind.
Gruß
Ulrike

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 11:57:59
Rudi
Hallo, 

Sub tt()
With Workbooks("Umbau1").Sheets(1)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("Mappe1").Sheets(1). _
Range("A1")
End With
With Workbooks("Umbau2").Sheets(1)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("Mappe1").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 12:48:00
Ulrike
Hallo Rudi,
vielen Dank für Deine schnelle Antwort. Leider läuft das Makro noch nicht und als Fehler sagt er Index liegt ausserhalb des Bereiches. Und ich komme nicht drauf wo der Fehler ist. Vielen Dank für die Hilfe im voraus.
Gruß
Ulrike
Anzeige
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 12:53:00
mpb
Hallo Ulrike,
prüfe mal, ob Deine 3 Dateien wirklich "Umbau1", Umbau2" und "Mappe1" heißen (insb. letzteres).
Gruß
Martin
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 13:34:00
Ulrike
Hallo,
vielen Dank für eure Hilfe, jetzt klappt alles.
Gruß
Ulrike
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 14:23:00
Ulrike
Hi Leute,
nochmal eine Frage: Das mit dem Makro klappt super, aber er kopiert jetzt so lange meine Tabellen untereinander bis die 6000 Zeilen voll sind. Kann ich ihm sagen, dass nur jede Tabelle einmal kopiert werden soll? Nochmals vielen Dank im voraus.
Gruß Ulrike
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 14:26:00
Ulrike
Hi Leute,
nochmal eine Frage: Das mit dem Makro klappt super, aber er kopiert jetzt so lange meine Tabellen untereinander bis die 6000 Zeilen voll sind. Kann ich ihm sagen, dass nur jede Tabelle einmal kopiert werden soll? Nochmals vielen Dank im voraus.
Gruß Ulrike
Anzeige
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 14:29:00
mpb
Hallo Ulrike,
kann eigentlich nicht sein. Poste doch mal den Makrocode, den Du jetzt verwendest.
Gruß
Martin
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 14:33:16
Ulrike
Hallo,
das ist jetzt mein aktuelles Makro. 

Private Sub Workbook_open()
' TP1
With Workbooks("010101 TP1 Aktivitätenliste Umbau.xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste  _
gesamt.xls").Sheets(1). _
Range("A2")
End With
' TP2
With Workbooks("010101 TP2 Aktivitätenliste Umbau.xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste  _
gesamt.xls").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With
'TP3
With Workbooks("010101 Umbauplanung Swap 0 bis 13 TP1 TP3 bis SW 5  (ZH).xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste  _
gesamt.xls").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With
' TP4
With Workbooks("010101 Umbauplanung Swap 0 bis 13 TP4.xls").Sheets(1)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste  _
gesamt.xls").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With
End Sub
' Nach dem Schließen werden die Daten wieder gelöscht 

Private Sub Workbook_close()
Range("A2:I2754").Select
Selection.ClearContents
End Sub
Vielen Dank.
Ulrike
Anzeige
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 15:20:42
Ulrike
Also, mit zwei Tabellen geht das. Sobald ich noch eine dritte und vierte anhängen möchte funktioniert das leider nicht mehr. Hat jemand einen Rat, was man da macht, ausser verzweifeln?

Private Sub Workbook_open()
' TP1
With Workbooks("010101 TP1 Aktivitätenliste Umbau.xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste  _
gesamt.xls").Sheets(1). _
Range("A2")
End With
' TP2
With Workbooks("010101 TP2 Aktivitätenliste Umbau.xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste  _
gesamt.xls").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With
'TP3
With Workbooks("010101 Umbauplanung Swap 0 bis 13 TP1 TP3 bis SW 5  (ZH).xls").Sheets(2)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste  _
gesamt.xls").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With
' TP4
With Workbooks("010101 Umbauplanung Swap 0 bis 13 TP4.xls").Sheets(1)
.Range(.Cells(2, 1), .Cells(Rows.Count, 8).End(xlUp)).Copy Workbooks("070327 Umbauliste  _
gesamt.xls").Sheets(1). _
Range("A65536").End(xlUp).Offset(1, 0)
End With
End Sub
Vielen Dank.
Ulrike
Anzeige
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 15:38:00
Rudi
Hallo,
was soll da nicht funktionieren?
Die Tabellen werden alle 1x kopiert. Voraussetzung ist aber, dass die 4 Workbooks (TP1-TP4) geöffnet sind, wenn die Datei mit dem Makro geöffnet wird (ist das die Umbauliste_gesamt?).
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Makro soll nur Zeilen mit Inhalt kopieren
27.03.2007 15:44:00
Ulrike
Hallo,
das Makro wird gestartet wenn die Umbauliste gesamt geöffnet wird. Du hast recht, die Tabellen werden nur einmal kopiert. Der Fehler liegt irgendwo beim anschließenden löschen der Daten beim Schließen der Tabelle. Ich bastel noch mal ein wenig herum. Vielen Dank für Die Hilfe.
Gruß
Ulrike
Anzeige

325 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Werte aus einer anderen xls-File kopieren
Horst

Hallo zusammen,
folgendes Problem stellt sich mir:
Ich will aus einer anderen Mappe mehrere Zeilen und Zellen kopieren. Je nachdem welche Mappe der Benutzer haben will, wird diese geöffnet und die gewünschten Daten kopiert.
Hier mein Ansatz:
Code:
Sub Kopieren()
Di...
08.10.2008 10:43:00
Thread-ID: 1014931
2 Beiträge
Minus-Zeit als Ergebnis einer Formel
Rico

Hallo liebe Ex(cel)perten
Ich kommen langsam aber stetig voran und ich entschuldige mich jetzt schon da ich weiss, dass diese Probleme viel besprochen werden in diesem genialen Forum aber ich hab leider auf mein Problem keine Lösung gefunden in der Recherche.
Gemäss Beispielmappe: https...
09.10.2008 11:31:11
Thread-ID: 1015298
3 Beiträge
Formel ganz ausblenden wenn Werte fehlen !?
nathan

Einen schönen Nachmittag,
kann ich ein Ergebnis in einer Formel solange ausblenden lassen, bis die benötigten Werte eingegeben wurden?
Beispiel:
E3 = 5
E4 = 7
E5 = (E3+E4)
Angezeigt wird: 12
E3 = 5
E4=
E5 = (E3+E4)
Nichts wird angezeigt.
oder
"We...
09.10.2008 15:18:01
Thread-ID: 1015360
2 Beiträge
in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 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
7
4
1
4
2
5
1
2
1
6
6
2
17
6
6
6
6
2
3
5
6
7
2
4
2