Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile ausschneiden und in neuem Arbeitsblatt einfügen

Forumthread: Zeile ausschneiden und in neuem Arbeitsblatt einfügen

Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 14:19:51
Michael
Hallo liebes Forum,

bei meinem Ersten Problem wurde mir schnell von einem Forumsmitglied (Herbert Grom) geholfen.

Wenn in Spalte F ein "x" gesetzt wird, wird die Zelle im Arbeitsblatt "Umsätze..." ausgeschnitten und im Blatt "bereits ausgezahlt..." in der ersten freien Zeile eingefügt, dass klappt auch problemlos.
Leider habe ich nicht bis zum Ende gedacht. Wenn ich nun im Zielblatt das "x" wieder entferne, soll wiederum die Zeile ausgeschnitten werden und im Ursprungsblatt wieder am Ende eingfügt werden.

https://www.herber.de/bbs/user/169774.xlsm

Lieben Dank
Micha
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 15:03:08
Ein anderer Michael
Hallo Michael,

habe einfach Deinen Code ins Codefensters des anderen Blattes kopiert und leicht modifiziert - nicht-leere Zeilen 4 und 5: 

Private Sub Worksheet_Change(ByVal Target As Range)

    

   Dim WSh As Worksheet, lRowOut&, lRowIn&

   

   lRowOut = Target.Row

   

   If Target.Value = "" And Target.Column = 6 Then

      Set WSh = ThisWorkbook.Sheets("Umsätze nach 29.01.2024")

      

      lRowIn = WSh.Cells(WSh.Rows.Count, "A").End(xlUp).Row + 1

      

      Application.EnableEvents = False

         Application.ScreenUpdating = False

         Range("A" & lRowOut & ":G" & lRowOut).Copy WSh.Range("A" & lRowIn & ":G" & lRowIn)

         Range(lRowOut & ":" & lRowOut).EntireRow.Delete

      Application.EnableEvents = True

   End If

End Sub


LG Michael
Anzeige
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 15:34:19
daniel
Hi
ich fände es etwas verwirrend, wenn die Zeilen sofort beim eingeben des Wertes verschwinden.
der folgende Code kommst ins Modul "Diese Arbeitsmappe" und führt die Änderungen erst aus, wenn du das Tabellenblatt wechselst

Da ich keine Blattnamen verwende sondern die Indizes 1 und 2, wird der Code immer auf die ersten beiden Blätter angewendet (egal wie sie heißen) und die Reihenfolge sollte auch nicht getauscht werden: 

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

    

With Sheets(1).Cells(1, 1).CurrentRegion.Columns(6)

    If WorksheetFunction.CountIf(.Cells, "x") > 0 Then

        .Replace "x", True, 1

        With .SpecialCells(xlCellTypeConstants, 4)

            .Value = "x"

            .EntireRow.Copy Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

            .EntireRow.Delete

        End With

    End If

End With

With Sheets(2).Cells(1, 1).CurrentRegion.Columns(6)

    If WorksheetFunction.CountBlank(.Cells) > 0 Then

        With .SpecialCells(xlCellTypeBlanks)

            .EntireRow.Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

            .EntireRow.Delete

        End With

        Sheets(1).UsedRange.Sort key1:=Sheets(1).Cells(1, 2), order1:=xlAscending, Header:=xlYes

    End If

End With

End Sub


Gruß Daniel
Anzeige
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 18:28:15
Michael
Hallo Daniel,

ersetzt das jetzt das bereits vorhande Makro oder muss ich das noch hinzufügen (am Ende einfügen oder ein neues erstellen)?
Ich bin ein absolute Null in VBA, aber angefixt es zu lernen.

LG Micha

AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 18:47:44
daniel
dieses Makro gehört ins Modul "DieseArbeitsmappe"
die anderen Makros, die du für diese Aufgabe vorgesehen hast (in den Modulen des Tabellenblatts) musst du löschen.
es reicht ja, eine Aufgabe nur einmal auszuführen.
Gruß Daniel
Anzeige
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 17:18:20
Herbert Grom
Hallo Micha,

welche Bewandtnis hat die Spalte A in diesem Zusammenhang, da dort mehrere Nummern mehrmals vorhanden sind?

Servus
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 18:29:59
Michael
Hallo Herbert,

die Zahlen besagen sind bestimmten Personen zugeordnet, deswegen tauch sie des öfteren auf.

VG Micha
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
29.05.2024 18:41:12
Herbert Grom
In der Spalte B (Kaufdatum) hast du 1, 2, 3 etc. stehen. Kommt da noch ein Datum rein?

Beim Wiedereinfügen in das 1. Sheet, wie soll das dann sortiert werden?
Anzeige
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
30.05.2024 16:47:47
Michael
Hallo Herbert,

ja dort steht dann ein Datum.
Die ausgeschnittene Zeile soll am Ende der Tabelle eingefügt werden. Eine Sortierung ist da nicht wichtig.

VG Micha
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
30.05.2024 18:32:11
Herbert Grom
D. h.: der zurückgeschriebene Datensatz wird dann in die erste freie Zeile (erste leere Zelle der Spalte A) eingetragen und nicht sortiert, richtig?
Anzeige
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
31.05.2024 06:40:30
Michael
Guten Morgen, genau so soll es sein, das "X" in Sheet 2 entfernen und am Ende von Sheet 1 wieder einfügen.
Eine Sortierung ist nicht notwendig.
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
31.05.2024 09:06:39
Herbert Grom
Dann teste mal das. Ich habe noch eine Sicherheitsabfrage eingebaut:

https://www.herber.de/bbs/user/169800.xlsm

Servus
Anzeige
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
31.05.2024 09:19:01
Michael
Hallo Herbert,

Alles funktioniert perfekt! Vielen Dank für deine Arbeit.

LG Micha
AW: Bitte sehr, gerne geschehen & danke f.d. Rückmeldung.owt
31.05.2024 09:20:11
Herbert Grom
,,,
AW: Zeile ausschneiden und in neuem Arbeitsblatt einfügen
31.05.2024 13:51:45
daniel
Und was ist mit meiner Arbeit Micha?

Oder ist Undank Mal wieder der Welten Lohn?
Anzeige
WARUM WARUM WARUM
29.05.2024 15:31:15
daniel
denkt eigentlich nie jemand daran, dass man auch mal mehrere Zellen gleichzeitig bearbeiten kann?
insbesondere beim Inhalte löschen passiert das schnell.
das sollte man beim Schreiben des Change- oder SelectionChange-Eventmakros im Blick haben und Ausdrücke wie Target.Value = "" vermeiden.

Gruß Daniel
Anzeige
AW: WARUM WARUM WARUM
29.05.2024 15:44:16
Ein anderer Michael
Sorry, mir gefiel das auch nicht wirklich, war aber im Rahmen meiner bescheidenen vba-Kenntnisse eine offensichtliche und schnelle, naja, "Lösung".

Forumthreads zu verwandten Themen

Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
Letzte Zeile in neuer Instanz funktioniert nicht!
WOBIK

Hallo Forum,
ich verzweifle an folgendem Problem:
Um eine Arbeitsmappe unsichtbar zu öffnen, erzeuge ich eine neue Instanz via "New Applikation".
Der "einfache" Zugriff darauf funktioniert wunderbar. (Zellen auswerten, kopieren usw.)
Zum ermitteln der letzten Zeile in der andere...
05.02.2010 12:54:45
Thread-ID: 1136137
3 Beiträge
Anzeige
Zeichen in Strings zählen/finden, neue Zeilen !
Holger

Hallo,
Au Backe. Alles geschaffz, nun eine komplette andere Anforderung.
Ich hoffe, ihr könnt mir helfen.
Innerhalb eine Zeile kann es so einen .Value, also String geben:
BB8520,BB8520BLUE,BB8520LAV,BB8520WHITE
Ich möchte zählen, wieviel Kommas es gibt und den String danach...
22.06.2010 15:38:56
Thread-ID: 1163465
12 Beiträge
Sprung in neue ZEile
Hans

Hallo zusammen,
ich brauche eure Hilfe für Folgendes:
Ich möchte eine Übersicht aufbauen, die untereinander die Monate von Jan bis Dezember zeigt, zwischen den Monaten soll immer eine Zeile frei bleiben. Diese soll immer zur besseren Übersicht stehen bleiben.
Weiterhin soll jetzt pe...
18.08.2010 07:43:43
Thread-ID: 1172678
2 Beiträge
Zeilen löschen und neue einfügen mit Makro
Michaela

Folgendes Problem in einem Makro: ich lösche aus einem Blatt 20.000 Zeilen raus, damit ich alte Datensätze lösche. Dann füge ich im selben Blatt die benötigte Anzahl neuer Zeilen ein (um die Formattierung zu erhalten). Wenn ich das Makro 2x laufen lasse, kommt beim 2. Mal die kryptische Meldung...
16.05.2002 12:19:43
Thread-ID: 121326
3 Beiträge
Anzeige
in Tabelle ganz ab Zeile 1 10 neue Zeilen einfügen
Peter

Hallo
Wie kann ich in einer Tabelle ganz oben ab Zeile 1 zehn neue Zeilen einfügen?
Eine Zeile habe ich herausgefunden:
sheets("Uebersicht").Range("A1").EntireRow.Insert
Gruss, Peter
29.08.2011 12:41:15
Thread-ID: 1227893
3 Beiträge
per Klick in bestimmte Zeile des VBA springen
Manfred

Hallo Excelfreunde,
kann mir jemand verraten, ob es möglich ist, per Klick auf den Button einer Sheet in eine bestimmte Befehlszeile eines Modules im VBA zu springen?
Wenn ja, wäre ich sehr dankbar, wenn ihr es mir verraten würdest, wie das geht.
Gruß Manfred
21.09.2011 14:46:40
Thread-ID: 1230866
11 Beiträge
Anzeige
Daten in neue Zeile kopieren
Olaf

Hallo Zusammen,
ich hab da ein Problem und keine Ahnung von VBA.
Ich würde gerne Angebote mit Excel schreiben.
So in der Art wie das.
https://www.herber.de/bbs/user/77281.xlsx
Im 2. Blatt sollte dann eine Liste entstehen mit allen Angeboten.
Dafür müße ein Knopf oder s...
30.10.2011 19:40:16
Thread-ID: 1235971
4 Beiträge
Excel - Zeilen mit Inhalt in neue Zeilen übernehme
Thomas

Hallo zusammen
Ich habe folgendes Problem im Excel:
In Zeile 1 habe ich in Spalte A einen Namen und in den Spalten D und E einen Text.
In Zeile 2 habe ich in Spalte A einen Namen und in den Spalten C,E und J einen Text.
In Zeile 3 habe ich in Spalte A einen Namen und in den Spal...
23.03.2012 17:03:07
Thread-ID: 1256333
16 Beiträge
Nach jedem Monat in die nächste Zeile springen
Naklov

Hallo,
ich habe folgendenes Sub:
Sub neu() If Cells(5, 3) > Cells(5, 19) And Cells(5, 3) Cells(5, 20) And Cells(5, 3) Cells(5, 21) Then Shapes("3").Visible = False Shapes("2").Visible = False Shapes("1").Visible = True End If End Sub Von der Zelle B5 bis B16 (Cells(5, 2) bis Cell...
25.04.2012 09:49:04
Thread-ID: 1260876
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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