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

Nur sichtbare Zeilen kopieren und einfügen

Forumthread: Nur sichtbare Zeilen kopieren und einfügen

Nur sichtbare Zeilen kopieren und einfügen
23.09.2013 11:16:11
Tim
Hallo zusammen,
ich habe eine Tabelle mit bereits mehreren Makros (daher auch ausgeblendete Zeilen).
Nun möchte ich der Übersicht halber nur die sichtbaren Zeilen:
- ab Zeile 12 bis zum Ende des Worksheets (das Ende variiert)
- und nur Spalte A bis Spalte D
kopieren und in das neue Tabellenblatt (Tabelle 17) einfügen.
Ist es möglich diese Aktion durch einen Buttonklick zu initiieren?
Viele Grüße
Tim

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur sichtbare Zeilen kopieren und einfügen
23.09.2013 13:42:41
EtoPHG
Hallo Tim,
Zitat:ich habe eine Tabelle mit bereits mehreren Makros (daher auch ausgeblendete Zeilen).
...wieso müssen Zeilen ausgeblendet sein, wenn man mehrere Makros hat? Der Zusammenhang erschliesst sich mir nicht.
Zitat: ab Zeile 12 bis zum Ende des Worksheets (das Ende variiert) und nur Spalte A bis Spalte D
Bereich mit VBA entsprechend festlegen Range(Cells(12,1), Cells(Ende Zeile in der Forumssuche, 4))
Stichwort für sichtbare Zeilen Row(index).EntireRow.Hidden = False
Zitat:...diese Aktion durch einen Buttonklick zu initiieren
ActiveX-Button auf Tabellenblatt und entsprechenden Code zuordnen.

Anzeige
AW: Nur sichtbare Zeilen kopieren und einfügen
23.09.2013 13:44:01
fcs
Hallo Tim,
hier ein entsprechendes Makro.
Das Makro kannst du dann einer Schaltfläche aus den Formularsteuerelmenten zuordnen.
Das Makro erzeugt auch das neue Tabellenblatt, in das die Daten aus dem aktuellen Blatt kopiert werden sollen. Wenn man das Zielblatt (bei dir z.Zt. Tabelle17) immer eindeutig identifizieren Kann (Blattname Indexnummer, 1. oder letztes Tabellenblatt) dann kann man als Zieltabelle auch eine vorhandene Tabelle setzen.
Gruß
Franz
Sub Copy_A_D()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lngZeile As Long, lngZeile_Z As Long
Set wksQ = ActiveSheet
'neues tabellenblatt anlegen als Zieltabelle
Set wksZ = ActiveWorkbook.Worksheets.Add(After:=wksQ) '
lngZeile_Z = 1 'Startzeile für das Einfügen ggf. anpassen
Application.ScreenUpdating = False
With wksQ
If Val(Left(Application.Version, 2)) >= 12 Then
.Range(.Columns(1), .Columns(4)).Copy 'Spaltenbreiten kopieren
End If
wksZ.Cells(1, 1).PasteSpecial Paste:=8 'xlPasteColumnWidths
Range("A1").Select
With .Range(.Cells(12, 1), .Cells(.Rows.Count, 4))
lngZeile = .Find(What:="*", After:=.Cells(1, 1), LookIn:=xlFormulas, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
End With
For lngZeile = 12 To lngZeile
If .Rows(lngZeile).Hidden = False Then
.Range(.Cells(lngZeile, 1), .Cells(lngZeile, 4)).Copy _
Destination:=wksZ.Cells(lngZeile_Z, 1)
lngZeile_Z = lngZeile_Z + 1
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Nur sichtbare Zeilen kopieren und einfügen
23.09.2013 14:08:28
Tim
Hallo Franz,
vielen Dank schonmal für den Code - funktioniert schon klasse!
Bei mir ist nun - wie du bereits vermutet hast - das Zielblatt (Tabelle 17) fix.
Was muss ich an dem Code ändern, dass kein neues Blatt erstellt wird, sondern die Zellen in das vorgegebene Zielblatt ab Startzeile 2 eingefügt werden?
Vielen Dank dir!
Viele Grüße
Tim

Anzeige
AW: Nur sichtbare Zeilen kopieren und einfügen
23.09.2013 14:55:43
fcs
Hallo Tim,
anpaasen: 
  Set wksZ = ActiveWorkbook.Worksheets("Tabelle17")
lngZeile_Z = 2 'Startzeile für das Einfügen ggf. anpassen
Gruß
Franz

AW: Nur sichtbare Zeilen kopieren und einfügen
23.09.2013 15:04:17
Tim
Hallo Franz,
perfekt - vielen Dank!
Gruß
Tim

Forumthreads zu verwandten 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
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
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
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 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
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Anzeige
Konkatinieren : kopieren funktioniert nicht
stelud

Hallo,
in Spalte E will ich eine Konkatinierung der Spalten A - D haben - dies löse ich wie folgt :
=$A$1&$B$1&$C$1&$D$1
Ergebnis eine Zeile :
A B C D E
1 2 3 4 1234
wenn ich aber nun diese Formel in Zeile2 kopiere, wird der Index nic...
04.11.2008 09:10:59
Thread-ID: 1021470
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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