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

Zeilen ausschneiden und kopieren

Forumthread: Zeilen ausschneiden und kopieren

Zeilen ausschneiden und kopieren
15.05.2024 13:36:18
Michael
Hallo Forum,

ich habe für Excel 365 eine Tabelle, welche ich automatisiert pflegen möchte.
Wenn ich nun in in den Zellen der Spalte F ein "x" eintrage, möchte ich, daß die dazugehörige Zeile in das zweite Blatt in die nächste freie Zeile kopiert wird oder in Sheet 1 ausgeschnitten und in Sheet 2 eingefügt wird.
Ist das mit VBA möglich? Leider habe ich von VBA null Ahnung

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

Viele Grüße
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausschneiden und kopieren
16.05.2024 12:49:45
daniel
Hi
Makros, die automatisch bei bestimmten Aktionen gestartet werden (z.B. Doppelklick) müssen immer in das Modul des Tabellenblatts, für das das gelten soll.
Makros in allgemeinen Modulen müssen immer direkt aufgerufen werden (also Start über das Menü "Makros" oder im Editor), oder man muss sie einem Button, der dann geklickt werden muss, zuweisen.

ich würde das verschieben von markierten Zeilen so programmmieren: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim rng As Range

Dim Anzahl As Long



With Columns(6)

    Anzahl = WorksheetFunction.CountIf(Columns(6), "x")

    If Anzahl > 0 Then

        .Replace "x", True, xlWhole

        Set rng = .SpecialCells(xlCellTypeConstants, 4)

        rng.ClearContents

        With rng.EntireRow

            .Copy Destination:=Sheets("bereits ausgezahlt ab 29.01.202").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

            .Delete

        End With

        MsgBox Anzahl & " Zeilen verschoben"

    Else

        MsgBox "derzeit keine Zellen zum Verschieben markiert."

    End If

End With

End Sub


Gruß Daniel

Anzeige
AW: Zeilen ausschneiden und kopieren
16.05.2024 12:05:44
Michael
Hallo Herbert,

es funktioniert aber nur einmalig, wenn ich in der Spalte F in einer beliebigen Zelle ein x setze, wird die dazugehörige Zeile aus geschnitten und im anderen Sheet eingefügt. Setze ich nun ein weiteres x in einer Zelle der Spalte F passiert leider gar nichts. Wenn ich aber die Datei speicher, schließe und dann wieder öffne geht es.

Kann das noch geändert werden.

Vielen Dank
Micha
Anzeige
AW: Zeilen ausschneiden und kopieren
18.05.2024 10:26:33
Herbert Grom
Hallo Micha,

sorry, aber das war mein Fehler, weil ich Application.EnableEvents vergessen habe unten wieder auf "True" zu setzen. Also, ändere den Code wie folgt ab, dann geht es auch mehrmals: 

      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


Servus
Anzeige
AW: Zeilen ausschneiden und kopieren
29.05.2024 13:03:07
Michael
Hallo Herbert,

ich weiß nicht ob du dich dies überhaupt erreicht.
Es funktioniert alles super, nun möchte man noch, dass wenn ich das "x" im Zielblatt entferne, es wieder in das Ursprungsblatt zurück geht. Also eigentlich die Prozedur rückgängig machen.
Ich würde mich freuen, wenn du mir ein weiteres Mal unter die Arme greifen kannst.

Hier nochmal die Tabelle mit dem funktionierenden Code:
https://www.herber.de/bbs/user/169772.xlsm

LG Micha




Anzeige
AW: Zeilen ausschneiden und kopieren
29.05.2024 17:11:18
Herbert Grom
Hallo Micha,

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

Servus

Forumthreads zu verwandten Themen

ganze bestimmte Zeilen ausschneiden und löschen
Urmila

Hallo alle,
ich habe folgende Werte (siehe File)
Die Datei https://www.herber.de/bbs/user/55023.xls wurde aus Datenschutzgründen gelöscht
Ich will per Knopfdruck, dass wenn in irgendeiner Zelle in Spalte D ein Datum eingetragen wird, diese ganze Zeile (hier in dem Fall Zeile 5:5) a...
29.08.2008 15:11:45
Thread-ID: 1005853
4 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Spaltenbereich ausschneiden und einfügen | Herbers Excel-Forum
Peter
Guten Tag
Ich möchte im ersten Sheet eines bestimmten Workbooks einen Spaltenbereich aus der Spalte P ausschneiden und in Spalte N einfügen.
Ich habe etwas Probleme mit der Syntax.
Wer hilft mir?
Vielen Dank, Peter
With ActiveWorkbook
.Sheets(1).range(cells(1,16),cells(zEnd,...
05.01.2010 10:58:08
Thread-ID: 1127228
7 Beiträge
Viele Zeilen ausschneiden und hinterher einfügen
Dino

Hi Leute,ich möchte mit rechte Maustaste (oder anders) vielen Zeilen ausschneiden und hinterher sie in biliebige Zeile untereinander einfügen.z.B.ich schneide Zeile 20, 23, 24, 28, 30, 33 aus und füge sie vor Zeile 10 ein.
Die Ausgeschnittenen Zeilen stehen dann untereinander.Vielen Dank im...
21.05.2002 20:04:08
Thread-ID: 122530
3 Beiträge
leere zeile finden und dann erst einfügen
Hoppe

Hallo,
ich bin neu hier und hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle1 und eine Tabelle2,
dort sollen nun sachen kopiert werden und in einer anderen eingefügt werden. Es funktioniert auch super nur leider überschreibt er mir alle alten einträge. Nun meine Frage. Bekommt man...
24.06.2011 13:55:45
Thread-ID: 1219530
2 Beiträge
letzte gefüllte Zeile suchen und danach einfügen
Sandra

Hallo zusammen,
tja ... ich schon wieder. Ohne Eure Hilfe bekomm ich das nicht hin.
Ich habe ein Makro was auf ein Projekt zugeschnitten ist. Das läuft auch ganz prima. Eigentlich läuft es sogar so gut, dass ich es jetzt standardisieren muss. Und was das angeht wird es in meinen Augen...
12.07.2011 14:40:13
Thread-ID: 1221853
6 Beiträge
Anzeige
Zeilen individuelle Kopieren und einfügen
Martin

Hallo zusammen,
ich habe folgende - eigentlich recht einfaches - Problem, das ich aber nicht lösen kann.
Ich habe eine Excel-Tabelle die wie folgt aussieht:
aaa 5
bbb 6
ccc 2
Die letzte zeile zeigt an, wie oft die Zeile benötigt wird. Ausgegeben werden soll nach...
22.10.2011 12:08:19
Thread-ID: 1234979
8 Beiträge
Anzeige
Makro zum Kopieren/Löschen von Zeilen und Einfügen
Zeilen

Guten Morgen,
ich versuche gerade eine Funktion zu realisieren, die Zeilen aus Tabellenblatt A
dann in das Tabellenblatt ARCHIV verschiebt, wenn in der Spalte J ein x gesetzt
wird.
Folgende Probleme/Fragen habe ich in diesem Zusammenhang:
1. Wie kann ich es realisieren, dass...
06.01.2012 08:56:49
Thread-ID: 1244827
10 Beiträge
nächste freie Zeile finden und Inhalte einfügen
Andreas

Guten Morgen zusammen,
ich habe ein VBA Problem mit dem ich leider selbst nicht weiter komme und würde mich über Unterstützung sehr freuen.
Ich möchte zwei Tabellen T1 und T2 miteinander auf auf Artikelnummerbasis in Spalte A als Schlüssel vergleichen.
Excel sollte nun prüfen, ob di...
23.08.2012 09:00:33
Thread-ID: 1276117
3 Beiträge
Zeilen vergleichen und Zeile einfügen
Marco

Hallo zusammen,
habe vor einiger Zeit mit VBA gearbeitet und bin jetzt dabei mich wieder einzufinden. Ich habe schon viel über Zeilen vergleichen und einfügen in eurem Forum gelesen. So richtig hat mich das aber noch nicht weitergebracht. Hoffe nun das ihr mir weiterhelfen könnt. Aber nun z...
24.08.2012 14:53:55
Thread-ID: 1276321
10 Beiträge
Letzte Rechnungszeile kopieren und einfügen
Holger

Hallo Profis,
Situation:
1 Arbeitsmappe mit 3 Arbeitsblättern mit unterschiedlichen Rechnungsvorlagen.
Der Nutzer hat keinerlei Excelkenntnisse und füllt die Zeilen nur aus.
Wenn er jetzt feststellt, dass die Zeilenzahl nicht ausreicht, klickt er auf einen Button und es wird ein...
10.10.2012 22:16:17
Thread-ID: 1281447
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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