Thema Datum  Von Nutzer Rating
Antwort
Rot Ausschneiden und verschieben von Sheet1 zu Sheet2
 02.12.2020 10:04:17 Jasmin K.
NotSolved
02.12.2020 10:26:49 Gast61162
NotSolved
02.12.2020 10:59:19 Gast49978
NotSolved

Ansicht des Beitrags:
Von:
Jasmin K.		 Datum:
02.12.2020 10:04:17		 Views:
677		 Rating:
     
Antwort:
  Ja
Thema:
Ausschneiden und verschieben von Sheet1 zu Sheet2

Hallo zusammen,

kurz zu mir: mit Excel kenne ich mich an sich ganz gut aus, nur in Bezug auf VBA bin ich ein blutiger Anfänger. Ich habe zwar etwas gebastelt, es funktioniert allerdings nur bedingt.

Meine Ausgangssituation ist die Folgende: ich möchte vom Sheet "LOP" die ausgewählte Zeile in das Sheet "erledigt" verschieben und im ersten Sheet ausschneiden lassen. Das ist mein bisheriges Ergebnis:

 

Sub erledigt()
'
' erledigt Makro
'

'
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Cut
    Sheets("erledigt").Select
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    ActiveSheet.Paste
    Sheets("LOP").Select
    Selection.Delete Shift:=xlUp
End Sub

Funktioniert grundsätzlich, allerdings möchte ich, dass mir Excel die ausgeschnittene Zeile im Sheet "erledigt" in die letzte oder unterste freie Zeile einfügt. Aktuell muss der Cursor in der letzten beschrieben Zeile stehen, damit es darunter eingefügt wird.

Kann mir jemand mit dem Code helfen?

Wäre klasse.

Gruß

Jasmin 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ausschneiden und verschieben von Sheet1 zu Sheet2
 02.12.2020 10:04:17 Jasmin K.
NotSolved
02.12.2020 10:26:49 Gast61162
NotSolved
02.12.2020 10:59:19 Gast49978
NotSolved