Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

in die nächste leere Zeile

in die nächste leere Zeile
06.12.2012 08:00:37
hugo
Guten Morgen Excel-Freunde
Kann mir ev. jemand von Euch helfen? Mein Anliegen:
Ich möchte mit einem Makro jeweils die Zellen A1:A5 aus dem Tabellenblatt 'Tabelle1' ins Tabellenblatt 'Tabelle2' übertragen und zwar in die nächste freie Zeile. Sprich: wenn in 'Tabelle2' A1:E1 bereits belegt sind, werden die Werte in den Zellen A2:E2 eingetragen, sind diese auch schon belegt, werden die Werte in den Zellen A3:E3 eingetragen usw.
Ich bedanke mich bereits im Voraus für eure Hilfe.
Gruss
hugo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in die nächste leere Zeile
06.12.2012 08:10:35
Eugen
Hallo Hugo
Public Sub insert_line()
Dim wsAlt As Worksheet, wsNew As Worksheet
Dim i As Long
Dim x As Long
Set wsAlt = Sheets(1)
Set wsNew = Sheets(2)
For i = 1 To 100000
If wsNew.Cells(i, 1).Value = "" Then Exit For
Next i
wsNew.Cells(i, 1).Value = wsAlt.Cells(1, 1).Value
wsNew.Cells(i, 2).Value = wsAlt.Cells(2, 1).Value
wsNew.Cells(i, 3).Value = wsAlt.Cells(3, 1).Value
wsNew.Cells(i, 4).Value = wsAlt.Cells(4, 1).Value
wsNew.Cells(i, 5).Value = wsAlt.Cells(5, 1).Value
End Sub

Mfg
Eugen

AW: in die nächste leere Zeile
06.12.2012 08:15:59
hugo
Danke Eugen! Genau das habe ich gesucht!
Wünsche Dir einen schönen Tag.
Gruss hugo

Anzeige
AW: in die nächste leere Zeile
06.12.2012 08:18:09
hary
Hallo Hugo
Sub rueber()
Dim letzte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle2")
letzte = IIf(.Cells(1, 1) = "", 1, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
Worksheets("Tabelle1").Range("A1:A5").Copy
.Cells(letzte, 1).PasteSpecial Paste:=xlValues, Transpose:=True
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

gruss hary

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige