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

Forumthread: 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

Anzeige

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

Anzeige
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

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige