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
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen auschneiden und in anderes Tabellenblatt an

Zellen auschneiden und in anderes Tabellenblatt an
24.07.2005 12:10:58
Harald
Hallo Ich bin VBA Anwenderneuling.
Ich möchte aus einem Tabellenblatt Zeilen ausschneiden und in ein anderes Tabellenblatt einfügen.
Wenn ich im nächsten Schritt erneut Zeilen ausschneide soll er sie an die zuerst Verschobenen anfügen.
Ich habe einen Code geschreiben aber an dem funktioniert noch was nicht.
Ich finde meinen Fehler nicht!! Vieleicht kann mir jemand helfen.
danke
Mein Code:

Sub Versenden_in_Archiv()
'Sheet wir ausgewählt
Sheets("Aktuell").Select
Range("A1:F15").Select
Selection.Cut
'Wechsel in Sammelliste
Sheets("Archiv").Select
'Letzte Zelle benutzte Zelle in Spalte A wird ermittelt
Range("A1").SpecialCells(xlCellTypeLastCell).Select
'Markierung springt eine Zeile abwärts
ActiveCell.Offset(1, 0).Select
'Ausgeschnittene Zeilen werden angefügt
ActiveSheet.Paste
'Wechsel zurück auf Ausgangsposition
Sheets("Aktuell").Select
Range("A1").Select
End 

Sub

		

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen auschneiden und in anderes Tabellenblat
24.07.2005 12:36:13
Ramses
Hallo
mal ganz einfach zum nachvollziehen.
Ausgeschnitten wird die aktuelle Auswahl in "Aktuell"
Sub Versenden_in_Archiv()
Dim qWks As Worksheet, tWks As Worksheet
Dim lTRow As Integer
Set qWks = Worksheets("Aktuell")
Set tWks = Worksheets("Archiv")
If ActiveSheet.Name <> qWks.Name Then
    MsgBox "Falsches Sheet ausgewählt, nur gültig in Worksheet ""Aktuell"" "
    Exit Sub
End If
lTRow = tWks.Cells(Rows.Count, 1).End(xlUp).Row
Selection.Cut
Application.ScreenUpdating = False
tWks.Activate
Cells(lTRow + 1, 1).Select
ActiveSheet.Paste
qWks.Activate
Application.ScreenUpdating = True
Application.CutCopyMode = xlCopy
End Sub

Gruss Rainer
Anzeige
AW: Zellen auschneiden und in anderes Tabellenblat
24.07.2005 18:01:34
Harald
Danke klappt bestens

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige