Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
968to972
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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ausgeblendete Zeilen nicht kopieren

ausgeblendete Zeilen nicht kopieren
24.04.2008 11:14:57
bully
Hallo Leute,
in meiner Mappe kopiere ich einen Zellbereich von einem Blatt in ein anderes. Soweit kein Problem, aber jetzt möchte ich manchmal einzenlne Zeien aus dem Bereich nicht drucken. Also habe ich sie ausgeblendet, beim Kopieren werden sie aber trotzdem mit kopiert. Wie muss ich meinen Code anpassen, damit die ausgeblendeten Zellen nicht kopiert werden? Ich habe es mit "Gehe zu / Inhalte / nur sichtbare Zellen" versucht, das gibt aber eine Fehlermeldung, wenn einmal keine ausgeblendeten Zeilen dabei sind.
Range("B7:D36").Select
Selection.Copy
Sheets("Lieferschein").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Selektion").Select
Application.CutCopyMode = False
Range("D3").Select
Sheets("Lieferschein").Select
Danke für Eure Hilfe
Gruss bully

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

Betreff
Datum
Anwender
Anzeige
AW: ausgeblendete Zeilen nicht kopieren
24.04.2008 13:17:00
fcs
Hallo bully,

Sub aatest()
Range("B7:D36").SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Lieferschein").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Selektion").Select
Application.CutCopyMode = False
Range("D3").Select
Sheets("Lieferschein").Select
End Sub


Gruß
Franz

AW: ausgeblendete Zeilen nicht kopieren
24.04.2008 13:32:00
bully
Hallo Franz,
funktioniert auf Anhieb.
Vielen Dank.
Gruss bully
Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige