Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren-einfügen-anhängen

Kopieren-einfügen-anhängen
15.03.2006 12:40:41
Andre´
Hallo alle zusammen,
ich möchte erreichen, dass vom Tabellenblatt 1 eine Kopie gemacht wird, aber nur soweit, wie in der Spalte B Werte enthalten sind.
Also z.B. Bis Zelle B400 sind Werte enthalten, dann Kopie vom Bereich B2:D400 füge diese Werte in das Tabellenblatt 2 ein beginnend ab Zelle A2.
Dann kann es passieren, dass z.B. in der Tabelle 1 Werte bis Zelle B15 enthalten sind, dann soll nur der Bereich B2:D15 kopiert werden
und in die Tabelle 2 an die bereits vorhandenen Werte angehängt werden.
Ich hoffe mir kann jemand helfen
Danke im voraus!
Andre

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren-einfügen-anhängen
15.03.2006 16:05:41
Ulf
Hallo Andre
Geht warscheinlich noch eleganter.

Sub kopieren()
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With
Dim Z2 As Integer
Dim i As Integer
Z2 = Sheets(2).Cells(65000, 2).End(xlUp).Row
For i = 1 To Sheets(1).Cells(65000, 2).End(xlUp).Row
If Sheets(1).Cells(i, 2) <> "" Then
Sheets(2).Cells(Z2 + i, 2) = Sheets(1).Cells(i, 2).Value
Sheets(2).Cells(Z2 + i, 3) = Sheets(1).Cells(i, 3).Value
Sheets(2).Cells(Z2 + i, 4) = Sheets(1).Cells(i, 4).Value
End If
Next i
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

mfg Ulf
Anzeige
Danke Ulf, funktioniert prima!
15.03.2006 18:49:18
Andre´

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige