Nur Zellen mit Inhalt übertragen
14.11.2002 22:57:06
Rolf St
Ich möchte das bei folgenden Makro nur Zelleninhalte übertragen werden in dem sich eine Zahl befindet. Die leeren Zellen sollen nicht übertragen werden. Könnte mit jemand dieses Makro soweit ändern?
Option Explicit
Sub übertragen()
Dim aBereich As Range, bBereich As Range
Set aBereich = Range("O3:O1000")
Set bBereich = Range("D3:D1000")
bBereich.Value = aBereich.Value
bBereich.NumberFormat = aBereich.NumberFormat
End Sub
Vielen Dank für eure Hilfe!
Tschüß
Rolf