leere zeile

Forumthread: leere zeile

leere zeile

31.03.2015 13:33:26

lau

Hallo zusammen,
mein Makro soll aus dem Datenblatt "Calculator" die Zeile A5:M5 kopieren und in das Datenblatt "Historie" im dem Bereich B2:B100 die letzte leere Zeile suchen und dort eintragen.
Das makro unten macht nicht so wie es soll.
Kann mir jmd. helfen?
vielen Dank.
Laura
historisieren()
Dim zeile, zeile_nach As Long
zeile = Sheets("calculator").Range("a5:m5").copy
zeile_nach = Sheets("Historie").Range("b1000").End(xlUp).Row + 1
With Sheets("Calculator")
.Range(.Cells(zeile, 1), .Cells(zeile, 14)).Copy
Sheets("Historie").Cells(zeile_nach, 1).PasteSpecial Paste:=xlValues
End With
End Sub

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: leere zeile

31.03.2015 15:25:44

Rudi
AW: leere zeile

31.03.2015 16:02:23

lau
AW: leere zeile

31.03.2015 16:27:12

Rudi
AW: leere zeile

31.03.2015 15:56:38

lau
AW: leere zeile

31.03.2015 16:58:02

lau

AW: leere zeile

31.03.2015 15:25:44

Rudi

Hallo,
zeile = Sheets("calculator").Range("a5:m5").copy
was soll der Quatsch?
soll doch wohl
zeile=5
heißen.
Gruß
Rudi

AW: leere zeile

31.03.2015 16:02:23

lau

Hallo Rudi,
Ah sorry, hatte nur Teile des Problems beschrieben.
Gleichzeitig soll die Spalte S transponiert werden und ebenfalls in die gleiche Zeile auf dem Datenblatt Historie eingefügt werden.

Sub Screenloader_historisieren()
Dim zeile, zeile_nach As Long
zeile = 5
zeile_nach = Sheets("Historie").Range("b1000").End(xlUp).Row + 1
With Sheets("Calculator")
Sheets("Calculator").Select
Range("S5:S109").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Historie").Select
Range("P2").Select
.Range(.Cells(zeile, 1), .Cells(zeile, 14)).Copy
Sheets("Historie").Cells(zeile_nach, 1).PasteSpecial Paste:=xlValues
End With
End Sub

AW: leere zeile

31.03.2015 16:27:12

Rudi

Hallo,
immer S5:S109?
alles in einem Rutsch:

Sub historisieren()
Dim zeile As Long, zeile_nach As Long
zeile = 5
zeile_nach = Sheets("Historie").Cells(Rows.Count, 2).End(xlUp).Row + 1
With Sheets("Calculator")
.Range(.Cells(zeile, 1), .Cells(zeile, 14)).Copy
Sheets("Historie").Cells(zeile_nach, 1).PasteSpecial Paste:=xlValues
.Range("S5:S109").Copy
Sheets("Historie").Cells(zeile_nach, 15).PasteSpecial Paste:=xlValues, Transpose:=True
End With
End Sub

Gruß
Rudi

AW: leere zeile

31.03.2015 15:56:38

lau

Kann mir jemand für das obere Makro einen Tipp geben?
Vielen Dank.

AW: leere zeile

31.03.2015 16:58:02

lau

Halllo Rudi,
klappt vielen Dank.

Beliebteste Forumthreads (12 Monate)

Forumthread: leere zeile

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread