Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen und in ein anderes Tabellenblatt einfügen

Forumthread: Zeilen löschen und in ein anderes Tabellenblatt einfügen

Zeilen löschen und in ein anderes Tabellenblatt einfügen
18.07.2024 16:06:22
Anja Korber
Hi!

Ich habe eine umfangreiche xls Tabelle, in die laufend neue Datensätze (Zeilen) eingetragen werden.

Im Tabellenblatt "Übersicht" in Spalte R (beginnend in Zeile 3) habe ich eine WENNS Formel hinterlegt. Hier gibt es drei Möglichkeiten. Entweder sie ist leer ("") oder es steht "Kunde" oder es steht "Abgelehnt".
Sobald Kunde oder Abgelehnt angezeigt wird, soll der Datensatz jeweils aus dem Tabellenblatt entfernt und in ein anderes Tabellenblatt eingefügt werden.

Wenn in der Spalte R (beginnend in Zeile 3) nichts steht, soll die Zeile im Tabellenblatt "Übersicht" bleiben. Sobald "Kunde" steht, soll die Zeile im Tabellenblatt "Übersicht" entfernt und ins Tabellenblatt "Kunde" eingetragen werden. Wenn "Abgelehnt" steht, soll die Zeile im Tabellenblatt "Übersicht" entfernt und ins Tabellenblatt "Abgelehnt" eingetragen werden.

Das Tabellenblatt "Übersicht" wird laufend/täglich weiter befüllt.

Kann mir hier jemand mit einem Makro aushelfen?

Vielen Dank vorab.
LG Anja
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen und in ein anderes Tabellenblatt einfügen
18.07.2024 16:48:29
daniel
Hi
füge eine weitere Spalte hinzu (Spalte S)

trage ab Zeile 3 dieser Spalte die Formel ein:
=Wenn(R3=$S$2;1;"")

verwende dann das Makro: 

dim x 

with Range("S:S")

    for each x in Array("Kunde", "Abgelehnt")

    .cells(2, 1).Value = x

    if worksheetfunction.Sum(.Cells) > 0 then

       with .SpecialCells(xlcelltypeformulas, 1).EntireRow

           .Copy Desination:=Sheets(x).Cells(Rows.count, 1).end(xlup).Offset(1, 0)

           .Delete

      end if 

    Next

    .Cells(2, 1).value = "x"

end with


Gruß Daniel
Anzeige
AW: Zeilen löschen und in ein anderes Tabellenblatt einfügen
19.07.2024 08:19:07
Anja Korber
Guten Morgen!

vielen Dank für die rasche Unterstützung. Ich habe das mit einem Test-Datensatz ausprobiert. Da passiert nur leider nichts.

Ich habe ein Makro angelegt und den Code einfach rein kopiert. Da bekomm ich eine Fehlermeldung:
Userbild

LG Anja
Anzeige
AW: Zeilen löschen und in ein anderes Tabellenblatt einfügen
19.07.2024 08:27:00
daniel
Ich schreibe solche Codes oft direkt ins Forum, ohne sie zu testen.
Es ist immer besser, wenn du das ganze liest, versuchst zu verstehen und dann selber programmierst.
Dann hilft dir der Editor und die Intelligente, Schreibfehler zu vermeiden.
AW: Zeilen löschen und in ein anderes Tabellenblatt einfügen
19.07.2024 11:35:04
hary
Moin
Basierend auf Daniels Code.
SpalteS muss frei sein. 
Dim x

Dim wksQuelle As Worksheet

Set wksQuelle = Worksheets("Übersicht")

wksQuelle.Cells(2, "S") = "x"

With wksQuelle.Range("S3:S" & wksQuelle.Cells(Rows.Count, "R").End(xlUp).Row) 'Bereich S3 bis letzte benutzte Zeile Spalte R

 .FormulaR1C1 = "=IF(RC[-1]=R2C19,1,"""")" 'Eintagen Daniels Formel

    For Each x In Array("Kunde", "Abgelehnt")

     wksQuelle.Cells(2, "S").Value = x

      If WorksheetFunction.Sum(.Cells) > 0 Then

       With .SpecialCells(xlCellTypeFormulas, 1).EntireRow

           .Copy Destination:=Sheets(x).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

           Sheets(x).Columns(19).Clear

           .Delete

       End With

      End If

    Next

End With

  wksQuelle.Cells(2, "S").Clear

gruss hary
Anzeige
AW: Zeilen löschen und in ein anderes Tabellenblatt einfügen
22.07.2024 11:04:22
Anja Korber
Hallo Hary,

vielen Dank.

Wo soll ich Daniels Formel genau eintragen? Das habe ich leider nicht verstanden.

LG Anja
AW: Zeilen löschen und in ein anderes Tabellenblatt einfügen
22.07.2024 11:12:55
hary
Moin
Du brauchst nix eintragen. Das macht das Makro.
Die Formel wird in SpalteS eingetragen(vom Makro). Spalte S ist also nur eine Hilfsspalte
Wir kennen ja den Aufbau deiner Tabelle nicht.
Ansonsten mal eine Bsp.-mappe hochladen.
gruss hary
Anzeige
AW: Zeilen löschen und in ein anderes Tabellenblatt einfügen
22.07.2024 11:20:24
Anja Korber
leider ist die Datei zu groß zum hochladen. Warum auch immer, weil sie für den test jetzt noch nicht mit Daten befüllt ist. Egal.

Habe ich das richtig verstanden, dass das Makro die Spalte S befüllt. Dann muss die ja eigentlich leer sein. Da habe ich aber Daniels Formel drin. Muss ich die Formel einfach nur aus Spalte S löschen?

Danke, lg
Anzeige
AW: Zeilen löschen und in ein anderes Tabellenblatt einfügen
22.07.2024 12:06:48
hary
Moin
aber Daniels Formel drin. Muss ich die Formel einfach nur aus Spalte S löschen?
ja
gruss hary
AW: hier Bsp Mappe
22.07.2024 13:07:06
Anja Korber
coole Sache! Danke dafür.

Verstehe ich das richtig, dass ich das Makro jedes mal "händisch" ausführen muss? Gibt es hier eine Möglichkeit, dass dies automatisch passiert, sobald der passende Wert eingetragen ist?

Danke nochmal!
lg
Anzeige
AW: hier Bsp Mappe
22.07.2024 13:50:02
hary
Moin
Verstehe ich das richtig, dass ich das Makro jedes mal "händisch" ausführen muss? Ja

Gibt es hier eine Möglichkeit, dass dies automatisch passiert, sobald der passende Wert eingetragen ist? Ja aber...
Man muss ein Ereigniss haben das einen Code ausfuehrt. Da in SpalteR Formeln sind, gehtdieser Weg ueber:
Rechtsklick auf Blattreiter "Übersicht/ Code anzeigen/ in das Fenster rechts eintragen: 
Private Sub Worksheet_Calculate()

Call uebertragen

End Sub

Worksheet_Calculate hat aber den Nachteil er wird immer wieder, bei Neuberechnung einer Formel, ausgefuehrt.
Deine Formel in SpalteR ist nicht bekannt. Evtl. kannsr du eine Datenauswahl ueber eine Liste machen.
Dann kann man einzelne Zellen in SpalteR ueberwachen und bei Aenderung den Code ausfuehren.
gruss hary
Anzeige
;

Forumthreads zu verwandten Themen

Einfügen in neuem Tabellenblatt
Space

Hallo,
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf Outlook funktioniert wunderbar. Die Werte die er dort heraus bekommt trägt er aber...
19.01.2010 14:06:41
Thread-ID: 1131048
7 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo, leider war mein letzter Beitrag schon wieder zu ... hier nocheinmal die Problematik:
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf...
19.01.2010 14:59:16
Thread-ID: 1131070
2 Beiträge
Anzeige
einfügen von daten in gefilterte Liste
daten

hallo zusammen
ich habe folgendes problem:
ich habe eine gesamtliste, ( mit den Spalten,Kundennr, Kundenname Ansprechpartner im Aussendienst (der gehört zu meiner Firma und betruet den Kunden in dieser Zeile) , briefversand j oder n ) . Diese Liste schicke ich an bspw. an 10 Mitarbeite...
11.02.2010 21:06:51
Thread-ID: 1137726
2 Beiträge
Bild von der userform in tabelle einfügen
der

Hallo Excelsfans,
ich habe auf einer userform ein bild (image). dieses möchte ich gern als bild in eine zelle einfügen
irgendwie so
cells(1,1).insert.picture=image1.picture
geht sowas?
gruß rocky
14.06.2010 19:14:52
Thread-ID: 1161836
3 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Tool um Tabellenausschnitt in Beitrag einfügen
Stefan

Hallo,
ich habe hier schon versucht einen Ausschnitt aus einer Tabelle einzufügen, weil es mir zur Erklärung meines Problems genauso effizient erschien wie eine Arbeitsmappe hochzuladen. Das hat nicht so geklappt wie ich mir das vorstellte. Jetzt habe ich gesehen, daß Mitarbeiter hier solch...
25.02.2011 11:40:53
Thread-ID: 1202928
5 Beiträge
Anzeige
Eine Tabelle in Code einfügen
David

Hallo,
ich hab dieses Problem hier vor kurzem schon gepostet, aber leider keine Antwort bekommen die funktioniert hat. In dem untenstehenden Code soll eine weitere tabelle "all_data_alt" hinzugefügt werden.
Diese Tabelle soll genauso wie die jetzige Tabelle "all_data_neu" durch das Makr...
11.03.2011 13:47:21
Thread-ID: 1205313
3 Beiträge
Bereich aus Tabellenblat in neue Datei einfügen
Werner

Hallo Excelfreunde
könnt Ihr helfen.Ich habe hier einen Code von Beate Schmitz Geschrieben am: 03.10.2008 23:32:05
1)Der Code kopiert jedoch das Gesamte Blatt und nicht nur den Bereich A1:G48.
2)Wenn ich 'Columns("H:T").Delete aktiviere löscht er die Spalten im Orginalblatt und nich...
29.05.2011 21:14:34
Thread-ID: 1216611
3 Beiträge
Hintergrundbild in alle Tabellen einfügen
Hans

Hallo liebe Experten.
Ich stehe mal wieder vor einem Problem.
Und zwar habe ich eine Excel Datei mit mehreren Tabellenblättern.
Nun möchte ich in jedem Tabellenblatt ein Hintergrundbild haben.
Dies habe ich über Format/Blatt/Hintergrund auch hinbekommen.
Ich würde jedoch ger...
14.06.2011 10:53:57
Thread-ID: 1218349
6 Beiträge
Maximum in gefilterter Tabelle ermitteln
Ptonka

Hallo zusammen,
ich habe folgendes Problem:
In Spalte A stehen bei mir Kostenstellen.
In Spalte B ein Gültigkeitsdatum.
Nun kann eine Kostenstelle mehrfach erscheinen mit unterschiedlichen Gültigkseitsdaten.
Ich benötige nun ein VBA-Makro, welches zunächst eine Kostenstelle...
22.06.2011 12:39:08
Thread-ID: 1219285
2 Beiträge
Anzeige
Probleme beim Einfügen von Zahlen in meine Tabelle
Zahlen

Hallo alle zusammen,
ich hoffe ihr könnt mir helfen. Ich hoffe es macht nicht allzuviel Mühe.
ich möchte gerne Inhalt einer Tabelle auf einer Internetseite in eine Excel-Tabelle kopieren, mit dem Ziel die Tabelle anders zu sortieren als im Internet dargestellt.
In Spalte B stehen Za...
24.06.2011 19:13:48
Thread-ID: 1219568
3 Beiträge
Zeile in gefilterten Bereich einfügen
Gordon

Moin moin,
ich habe ein Tabellenblatt wo diaten per Autofilter gefiltert werden können. Wenn ich nun die Daten nach bestimmten Kriterien filtere und dann per Hand eine leere Zeile bzw. Range von A bis G einfüge, geht das ohne Probleme.
Wenn ich das aber per Makro versuche, bekomme ich...
03.08.2011 16:24:36
Thread-ID: 1224752
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige