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
268to272
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
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

cut paste

cut paste
15.06.2003 21:33:42
akim123
hi,

ich habe ein problem wenn ich aus dem sheet(1) z.b. an stelle 300 eine zeile ausschneide und diese dann in sheet(2) einfügen will das er diese dann in sheet(2) auch in der zeile 300 einfügt.
wie kann ich erreichen das er diese zeile in zeile1 im sheet(2) einfügt

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: cut paste
15.06.2003 21:39:15
Gabor

Hi,

Eine etwas genauere Beschreibung wäre hilfreich.

Gruß Gabor

Re: cut paste
15.06.2003 21:52:35
L.Vira

Sub machs()
Sheets(1).Rows(300).Cut Sheets(2).Rows(1)
End Sub

Re: cut paste
15.06.2003 22:12:46
akim123

lr = objExOut.Application.WorksheetFunction.CountA(objExOut.Sheets(1).Range("A:A"))


For x = 1 To lr
If objExOut.Sheets(1).Cells(x, 11).Value = "X" Then
objExOut.Sheets(1).Cells(x, 11).EntireRow.Cut()
objExOut.Sheets(2).Select()
objExOut.Sheets(2).Cells(x, 1).Select()
objExOut.ActiveSheet.Paste()
objExOut.Application.CutCopyMode = False


End If
Next

beim einfügen lässt er immer leerzeilen da wo im sheet(1) kein "X" war und fügt die zeilen auch nicht von zeile 1 in sheet(2) ein sondern da wo sie in sheet1 war

Anzeige
Re: cut paste
15.06.2003 22:39:03
Gabor

Hi,

wenn Dir der Vorschlag von L.Vira nicht geholfen hat, dann
sag mir mal, welchen Typ objexout hat. Bei mir kommt beim Testen deines Codes nur "Syntaxfehler"

Gruß Gabor

Re: cut paste
15.06.2003 22:43:39
akim123

Dim objExOut As New Excel.Application()

Re: cut paste
15.06.2003 23:21:54
Gabor

Hi Akim,

keine Ahnung warum du das so scheinbar umständlich machst.
Da dein Code bei mir nur Fehlermeldungen produziert hier mal eine Variante die bei mir funktioniert.

Wenn ich richtig verstanden habe möchtest Du alle Zeilen mit einem X in Spalte 11 in ein anderes Blatt kopieren....

Sub Test1()
Dim i&, LetzteZeile&, ZielZeile
LetzteZeile = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LetzteZeile
If UCase(ThisWorkbook.Sheets(1).Cells(i,11).Text) = "X" Then
ThisWorkbook.Sheets(1).Rows(i).Cut
ZielZeile = ZielZeile + 1
ThisWorkbook.Sheets(2).Activate
ThisWorkbook.Sheets(2).Rows(ZielZeile).Select
ThisWorkbook.Sheets(2).Paste
Application.CutCopyMode = False
ThisWorkbook.Sheets(1).Activate
End If
Next i
End Sub

Anzeige
Re: cut paste
16.06.2003 01:15:29
L.Vira

Option Explicit
Sub cut_1()
Dim z1 As Long, z2 As Long, lz As Long
Dim Sh1 As Worksheet, Sh2 As Worksheet
Set Sh1 = Sheets("Tabelle1")
Set Sh2 = Sheets("Tabelle2")
lz = 65536: If Sh1.[a65536] = "" Then lz = Sh1.[a65536].End(xlUp).Row
For z1 = 1 To lz
If UCase(Sh1.Cells(z1, 3)) = "X" Then
z2 = z2 + 1
Sh1.Rows(z1).Cut Sh2.Rows(z2)
End If
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige