Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nochmal zum Daten übertragen

Nochmal zum Daten übertragen
19.07.2003 12:13:13
Giuseppe
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nochmal zum Daten übertragen
19.07.2003 12:20:55
Nepumuk
Hallo Giuseppe,
versuch es mal so:

Option Explicit
Sub Bild51_BeiKlick()
Dim LoLetzte As Long
With Worksheets("Archiv")
LoLetzte = .Range("A65536").End(xlUp).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


Gruß
Nepumuk

Anzeige
AW: Nochmal zum Daten übertragen
19.07.2003 12:30:43
giuseppe
danke,
hat geklappt!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige