title image


Smiley Re: kann so nicht gehen
der code stammt von hajo -

selbes ergebnis



nach fehler 1004 zu googlen bracht auch bislang keinen erfolg - da gibt es dutzende möglichkeiten...

hmmm - blattschutz ist aus, sonst gibt es keine besonderheiten, abgesehen halt von dem amerikanischen gebietsschema







http://phorum.excelhost.de/read.php?11,30883,30886



[code]Sub DatenUebertragen()

Dim lRow As Long

Dim llRow As Long

With Worksheets("DatenG")

lRow = .Cells(Rows.Count, 1).End(xlUp).Row

Range("A3:F3").Copy Destination:=.Cells(lRow, 1) ' Fixer Bereich Überschrift

Range("A7:Av17").Copy Destination:=.Cells(lRow, 8) ' Fixer Bereich Überschrift

.Cells(lRow, 7).Value = "Datum" ' Fixer Bereich Überschrift bzw. Datum ist immer fix in Zelle B1 hinterlegt!!

llRow = .Cells(Rows.Count, 2).End(xlUp).Row

Range("A10:F10").Copy Destination:=.Cells(llRow, 1) 'Variabler Bereich

Range("Al10:Av10").Copy Destination:=.Cells(llRow, 8) 'Variabler Bereich

'von A10:F10 bzw. AL10:AV10 sollte er nun bis zur letzten Zeile (variabel) die Daten holen!

End With

Application.CutCopyMode = False

End Sub

[/code]

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: