Bestimmte Zellen im Range kopieren
12.12.2013 15:24:12
Chris
ich brauche eine Änderung in folgendem Makro, welches mir alles Zellen im range kopiert und in einer neuen Datei speichert, die ich also Datenquellen für einen Serienbrief nutze. Soweit läuft alles.
Die Änderung, die ich benötige ist:
Kopiere aus dem Blatt "LK" im Range B1:E25 nur die Zellen, die nicht leer sind in eine neue Datei.
Hier mal mein makro:
Sub Kopieren()
Sheets("LK").Range("B1:E25").Copy
Application.WindowState = xlMinimized
Workbooks.Open Filename:="C:\Users\GG\Desktop\DQ-SB.xlsx"
With ActiveSheet
.Range("A1").PasteSpecial Paste:=xlValues
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.WindowState = xlMaximized
Call Serienb
End Sub