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
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kopieren und einfügen

kopieren und einfügen
13.12.2002 10:06:37
Rudi Fleischhauer
Etwas für Experten.

Ich habe einen Datensatz der soll von "Sheet1" nach "Sheet2" per Makro kopiert werden.
Er besteht immer aus 8 Zeilen und 17 Spalten.
Das kopieren ist kein Problem, weil er in "SheetA1" immer an der gleichen stellt steht.
Das Problem ist das Einfügen, da eine vielzahl von 8-zeiligen Datensätzen in "Sheet2" eingefügt werden sollen.
Der erste Datensatz soll in "Sheet2" ab Spalte B Zeile 4 eingefügt werden. Für die nun folgenden Datensätze soll sich Excel in der Spalte B immer die nächste freie Zeil suchen und einfügen. Es soll aber ziwschen den Datensätzen eine Leerzeile bleiben.

Kann bitte jemand helfen?

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

Betreff
Datum
Anwender
Anzeige
Re: kopieren und einfügen
13.12.2002 10:08:08
Georg_Zi
Hallo Rudi

Letzte Zeile der Spalte C (=3)
Zeile als Long Definieren
Cells(Rows.Count, 3).End(xlUp).Row
oder
[C65536].End(xlUp).Row verursacht aber fehler wenn 65536 nicht leer
Hinweis von ManuelaM
If [a65536] = "" Then
letzte = [a65536].End(xlUp).Row
Else
letzte = 65536
End If

Gruß Georg

Re: kopieren und einfügen
13.12.2002 10:11:59
Robert
Damit kommst du zur nächsten freien Zeile.

Gruß

Robert

Sub runter()

Application.ScreenUpdating = False
Columns("B:B").Select
For zaehler = 1 To 500
ActiveCell.Offset(1, 0).Range("B1").Select

If ActiveCell = "" Then
ActiveCell.Offset(1, 0).Range("B1").Select
Exit For
Else
end if
Next zaehler
Application.ScreenUpdating = True
End Sub

Anzeige
Re: kopieren und einfügen
13.12.2002 10:12:07
Robert
Damit kommst du zur nächsten freien Zeile.

Gruß

Robert

Sub runter()

Application.ScreenUpdating = False
Columns("B:B").Select
For zaehler = 1 To 500
ActiveCell.Offset(1, 0).Range("B1").Select

If ActiveCell = "" Then
ActiveCell.Offset(1, 0).Range("B1").Select
Exit For
Else
end if
Next zaehler
Application.ScreenUpdating = True
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige