Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige