Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
456to460
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren bis nächste zeile leer

kopieren bis nächste zeile leer
22.07.2004 14:57:55
Norbert
Hallöchen,
ich verzweifele bald..vielleicht kann mir jemand helfen?!
was muss ich konkret schreiben, wenn ich erreichen möchte, dass jede zeile kopiert werden soll..solange bis die nächste zeile leer ist, um das kopierte dann in einem neuen tabellenblatt ("Tabelle2") einzufügen.
Der Tabellenkopf soll nicht mit kopiert werden.
Vielen Dank schon mal im voraus für eure Hilfe.
Grüße Nobert
Beispiel: https://www.herber.de/bbs/user/8798.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kopieren bis nächste zeile leer
22.07.2004 15:23:33
Manuel
Hi Norbert!
Versuche es mal hiermit, bei mir klappt es:

Private Sub CommandButton1_Click()
Dim zelle As Integer
Dim abbruch As Integer
zelle = 2
Do While (abbruch = 0)
If (Range("a" & zelle + 1) = "") Then
abbruch = 1
Else
Sheets("Tabelle2").Range("A" & zelle) = Range("A" & zelle)
zelle = zelle + 1
End If
Loop
End Sub

Gruß
Manuel
AW: kopieren bis nächste zeile leer
23.07.2004 07:05:17
Heinz
Hallo Norbert,
hier eine Möglichkeit (wenn dazwischen, wie in deinem Beispiel keine Leerzeilen stehen):

Sub Kopieren()
Dim lz%, efz%
lz = Range("A1").End(xlDown).Row
efz = Worksheets("Tabelle2").Range("A1").End(xlDown).Row + 1
'oder
efz = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A2:D" & lz).Copy Worksheets("Tabelle2").Range("A" & efz)
End Sub

Gruß
Heinz
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige