Makro Selektierte Zeilen

Forumthread: Makro Selektierte Zeilen

09.05.2005 20:29:50

Rolf

Hallo
Mit diesen Zeilen markiere ich eine oder mehrere Zeilen, kopiere sie in ein anderes Tabellenblatt und lösche sie in dem alten Tabellenblatt.
Ich möchte, das die gesamte, komplette Zeile, nicht nur die markierten Zellen, kopiert werden.
Möglichst sollen alle Zeilen, die markiert wurden, kopiert werden.
Beim löschen klappt es.
Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
Selection.ClearContents
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).ClearContents
Gruss Rolf K.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro Selektierte Zeilen

09.05.2005 20:58:58

Rudi
RE: Klappt nicht

10.05.2005 17:26:25

Rolf
AW: RE: Klappt nicht

10.05.2005 17:54:56

Rolf

AW: Makro Selektierte Zeilen

09.05.2005 20:58:58

Rudi

Selection.EntireRow.Copy Destination:=.Cells(Loletzte + 1, 2)
Selection.EntireRow.ClearContents
mfg Rudi

RE: Klappt nicht

10.05.2005 17:26:25

Rolf

Hallo Rudi
Habe die Zeilen eingesetzt.
Bekomme jetzt Fehlermeldung 1004 "Bereich kopieren und Einfügen unterschiedliche Formate"
Mit dem alten gehts, aber nur genau die markierten Zellen
Loletzte = .Range("b130").End(xlUp).Row
ActiveSheet.Unprotect
Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
Selection.ClearContents

'Selection.EntireRow.Copy Destination:=.Cells(Loletzte + 1, 2)
'Selection.EntireRow.ClearContents
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).ClearContents
Gruss Rolf K.

AW: RE: Klappt nicht

10.05.2005 17:54:56

Rolf

Hallo Rudi
Ich schildere meine atwas komlexer:
Ich kopiere in Sheets("Kanalscheine neu")ein oder mehre Namen von Zelle 2 bis 8
(Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8))
Jetzt muss ich alle beschrifteten Namen (!) in ein neues Sheets("Kanalscheine bestellt")zuerst kopieren, unten dran hängen und im alten löschen.


Sub Kanalscheine_neu_Kanal_bestellt_kopieren()
Dim Loletzte As Long
With Sheets("Kanalscheine bestellt")
Sheets("Kanalscheine bestellt").Unprotect
Sheets("Kanalscheine neu").Unprotect
If Range("B130") = "" Then
Loletzte = .Range("b130").End(xlUp).Row
ActiveSheet.Unprotect
'Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
'Selection.ClearContents
Selection.EntireRow.Copy Destination:=.Cells(Loletzte + 1, 2)
Selection.EntireRow.ClearContents
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).ClearContents
ActiveSheet.Protect
Else
MsgBox "keine Zelle mehr frei"
End If
End With
Sheets("Kanalscheine bestellt").Select
ActiveCell.Select
Sheets("Kanalscheine bestellt").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Kanalscheine neu").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Gruss Rolf K.

Beliebteste Forumthreads (12 Monate)

Forumthread: Makro Selektierte Zeilen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread