Microsoft Excel

Herbers Excel/VBA-Archiv

nur kopieren wenn Zielzelle leer

Betrifft: nur kopieren wenn Zielzelle leer von: rb
Geschrieben am: 25.08.2004 13:25:07

Hi, habe folgendes Problem:
Will über VBA Werte aus einer Spalte (A1:Ax)in die entsprechende Zeile in Spalte B kopieren, aber nur wenn diese leer ist.

Kann mir da jemand helfen?

  


Betrifft: AW: nur kopieren wenn Zielzelle leer von: Rene
Geschrieben am: 25.08.2004 13:32:19

hallo rb

so müsste es gehen

dim i as integer

for i = 1 to 65000
if worksheets("dername").cells(i,2).value = "" then
worksheets("dername").cells(i,2).value = worksheets("dername").cells(i,1).value
end if
next

gruß rene


  


Betrifft: AW: nur kopieren wenn Zielzelle leer von: Thomas
Geschrieben am: 25.08.2004 13:35:21

Hi rb,
ich würde es mit einer Schleife probieren:

For i = ersteZelle to letzteZelle
if cells(i,2) = "" then cells (i,2) = cells (i,1)
next i

Gruß,
Thomas


 

Beiträge aus den Excel-Beispielen zum Thema "nur kopieren wenn Zielzelle leer"