Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
608to612
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Selektierte Zeilen

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
Anzeige
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.
Anzeige
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.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige