Nochmal zum Daten übertragen
19.07.2003 12:13:13
Giuseppe
mit diesem Code von Hajo (ich bedanke mich an diese Stelle herzlich) kann man Daten übertragen.
Sub Bild51_BeiKlick()
Dim LoLetzte As Long
With Worksheets("Archiv")
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(LoLetzte, 1) = Worksheets("Rechnung").Range("N16")
.Cells(LoLetzte, 2) = Worksheets("Rechnung").Range("N15")
.Cells(LoLetzte, 3) = Worksheets("Rechnung").Range("F23")
.Cells(LoLetzte, 4) = Worksheets("Rechnung").Range("N34")
.Cells(LoLetzte, 6) = Worksheets("Rechnung").Range("b34")
.Cells(LoLetzte, 7) = Worksheets("Rechnung").Range("N34")
End With
End Sub
Das klappt wunderbar, wenn die Tabelle nicht formattiert ist. Sobald die Tabelle mit Rahmen o. die Zellen farbig dargestellt werden, klappt nicht mehr.Die Ubertragung wird auf der nächste Zelle die nicht formattiert ist.
Was muss in diesem Code verändert werden?
Grüß
Giuseppe
Anzeige