Forums Neueste Beiträge
 

Bereich kopieren wenn Bedingung erfüllt

01/04/2010 - 08:59 von Peter | Report spam
Hallo zusammen,

ich benutze Excel 2003 und habe folgendes Problem: Im Bereich A2:A500
stehen Formeln, die ich per Makro in den Bereich B2:AG500 kopieren
möchte, allerdings nur, wenn im Bereich B1:AG1 etwas steht. Beispiel:
Zelle B1 ist ausgefüllt, also sollen die Formeln in B2:B500 kopiert
werden; Zellen C1:D1 sind leer, also soll hier nichts in C2:D500
kopiert werden; E1 ist wieder ausgefüllt, also sollen die Formeln in
E2:E500 kopiert werden, usw.

Danke schonmal für die Hilfe!

Beste Grüße,
Peter
 

Lesen sie die antworten

#1 Andreas Killer
01/04/2010 - 09:14 | Warnen spam
On 1 Apr., 08:59, Peter wrote:

ich benutze Excel 2003 und habe folgendes Problem: Im Bereich A2:A500
stehen Formeln, die ich per Makro in den Bereich B2:AG500 kopieren
möchte, allerdings nur, wenn im Bereich B1:AG1 etwas steht. Beispiel:



Sub Test()
Dim Quelle As Range, Zielspalten As Range, R As Range
Set Quelle = Range("A2:A500")
Set Zielspalten = Range("B1:AG1")
For Each R In Zielspalten
If Not IsEmpty(R) Then
Quelle.Copy
R.Offset(1, 0).Resize(Quelle.Rows.Count).PasteSpecial
xlPasteFormulas
End If
Next
Application.CutCopyMode = False
End Sub

Ähnliche fragen