hallo,
habe kur vor weichnachten noch ein Problem
ich kopiere jeder Wert einer markierten Zeile von einem Quellblatt zu einem Zielblatt
ich möchte aber mein code im hintergrund laufen lassen da ich kein gezappeln am Bilschirm sehen darf: ich habe erfolglos selber schon probiert und auch schon gegooglet .
ich habe gelesen mit "With sheet...end With" geht das. aber da ich dadrin noch weitere schleifen wie for each und if else habe, weiss ich nicht weiter
hier ein Teil meiner Lösung:
Set myRange = wksQuelle.Range("A4:A" & UsedRange.Rows.count)
'für jede zelle in diese Spalte
For Each cell In myRange
'falls zelle befüllt markiere die ganze Zeile
If IsEmpty(cell.Value) = False Then
With wksQuelle.Cells(cell).EntireRow
.Select
For Each cell3 In Selection
'kopiere dort der wert von jede Zelle mit der selber Adresse im Zielblatt
'With wksZiel
wksZiel.UsedRange.Range(cell3.Address).Value = cell3.Value
'End With
Next cell3
end with
end if
next cell
habt ihr eine Idee was ich hier falsch mache?
Bin dankbar für jede Antwort!
habe kur vor weichnachten noch ein Problem
ich kopiere jeder Wert einer markierten Zeile von einem Quellblatt zu einem Zielblatt
ich möchte aber mein code im hintergrund laufen lassen da ich kein gezappeln am Bilschirm sehen darf: ich habe erfolglos selber schon probiert und auch schon gegooglet .
ich habe gelesen mit "With sheet...end With" geht das. aber da ich dadrin noch weitere schleifen wie for each und if else habe, weiss ich nicht weiter
hier ein Teil meiner Lösung:
Set myRange = wksQuelle.Range("A4:A" & UsedRange.Rows.count)
'für jede zelle in diese Spalte
For Each cell In myRange
'falls zelle befüllt markiere die ganze Zeile
If IsEmpty(cell.Value) = False Then
With wksQuelle.Cells(cell).EntireRow
.Select
For Each cell3 In Selection
'kopiere dort der wert von jede Zelle mit der selber Adresse im Zielblatt
'With wksZiel
wksZiel.UsedRange.Range(cell3.Address).Value = cell3.Value
'End With
Next cell3
end with
end if
next cell
habt ihr eine Idee was ich hier falsch mache?
Bin dankbar für jede Antwort!