Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1416to1420
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
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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.

Anzeige
AW: leere zeile
31.03.2015 16:58:02
lau
Halllo Rudi,
klappt vielen Dank.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige