Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren und einfügen

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

Anzeige

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

Anzeige
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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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