Spalten kopieren
09.03.2004 07:28:28
elli
versucht zu helfen, nun nochmals die Formel die ich habe:
Sheets("Wareneingang ").Range("A6:A36").Copy
With Sheets("Saldo")
Dim LoLetzte As Integer
LoLetzte = IIf(IsEmpty(Range("IV19")), Range("IV19").End(xlToLeft).Column, 256)
If LoLetzte < 3 Then LoLetzte = 3
With .Cells(19, LoLetzte)
.PasteSpecial Paste:=xlPasteValues ' , Transpose:=True
End With
End With
Application.CutCopyMode = False
Wareneingang ist Lieferschein der jedesmal gelöscht wird
nun sollte jedesmal in Saldo eine Spalte weiter kopiert werden.
Bin um jede Hilfe sehr froh
Gruss Elli