Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile ausschneiden und verschieben, wenn "ja"

Forumthread: Zeile ausschneiden und verschieben, wenn "ja"

Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 09:18:00
Lucia
Hallo zusammen,
ich habe folgendes Makro:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intRow As Integer
If Target.Column  16 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Value = "Ja" Then
With Worksheets("Rechnungenbezahlt")
intRow = .Cells(Rows.Count, 16).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(intRow)
Rows(Target.Row).Delete
End With
End If
Application.CutCopyMode = False
End Sub


Damit werden, wenn ich in einer Zeile im Tabellenblatt "Verbindlichkeiten" auf bezahlt "ja" gehe, die Zeile ausgeschnitten und in ein anderes Tabellenblatt geschoben.
Frage1: wie muss das Makro umformuliert werden, damit diese Aktion erst geschieht, wenn ich auf einen Button "ausbuchen" gehe, ich also gesammelt die Sachen rüber bring und mir das File nicht die ganze Zeit "rattert"
Frage 2: Das File lief in Excel 2003 wunderbar, nur hab ich jetzt in 2007 das Gefühl, dass es "hängt" - was kann ich tun?
Vielen lieben Dank schon mal,
Lucia

Anzeige

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 09:46:36
Oberschlumpf
Hi Lucia
Schreib mal diesen Code in das Klick-Ereignis deines Buttons:

If Sheets("DeinSheetName").Range("DieZelleMitJA").Value = "Ja" Then
With Worksheets("Rechnungenbezahlt")
intRow = .Cells(Rows.Count, 16).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(intRow)
Rows(Target.Row).Delete
End With
Application.CutCopyMode = False
End If


Alles, was hier im Fettdruck angezeigt wird, musst du anpassen.
Hilfts denn?
Ciao
Thorsten

Anzeige
AW: Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 10:12:00
Lucia
OK,
Hab das mal so rein gemacht:
Option Explicit

Private Sub CommandButton1_Click()
If Sheets("Verbindlichkeiten").Range("P13:P9999").Value = "Ja" Then
With Worksheets("Rechnungenbezahlt")
intRow = .Cells(Rows.Count, 16).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(intRow)
Rows(Target.Row).Delete
End With
Application.CutCopyMode = False
End If
End Sub


Jetzt bitte nicht lachen, aber ich hab das halt so dem Tabellenblatt zu gewiesen, der Button liegt auf dem Tabellenblat, code dahinter, aber wie bekomme ich es jetzt aktiviert? (mein vba ist wirklich bescheiden...sorry)
Grüße, Lucia

Anzeige
AW: Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 10:18:00
Oberschlumpf
darfst mich auch gern mit Hallo begrüßen ;-)
Hi Lucia
ups...haste da echt fast 10.000 Einträge (Zeilen) drin stehen?
Aber bevor wir hier weiter hin und her korrigieren, hast du vielleicht ine Bsp-Ddatei mit Bsp-Daten, die du uns zur Verfügung stellen kannst?
Es müssen keine fast 10.000 Bsp-Zeilen sein ;-) 10 oder so reichen schon.
Ciao
Thorsten
Anzeige
AW: Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 10:37:00
Lucia
Hi Thorsten,
Sorry....das war nicht böse und nachlässig gemeint....mir brennt grad der Hintern...aber das is natürlich keine Entschuldigung hier die Grundregeln nicht mehr zu befolgen, daher ein größer *entschuldigungsdrücker" hinterher;-)
unter:
https://www.herber.de/bbs/user/58604.zip
findest du eine Beispieldatei. Ich hoffe, sie hilft. Ja das mit den 10000 Zeilen, naja ganz wird das nicht hinkommen, 1500 werdens aber sicher werden. Über das File managen wir unser ganzen eingehenden Rechnungen (und natürlich noch mehr, was ich aber rausgelöscht hab;-)
Grüße, Lucia
Anzeige
AW: Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 10:46:00
Oberschlumpf
Hi Lucia
grins...mein Fehler...mit deiner Datei kann ich leider nix anfangen, da ich nicht mit xl2007 sondern mit XL XP arbeite.
Kannst du die datei bitte noch mal im XLS-Format speichern - und was hältst du von Erichs Vorschlag, der ja in seinem Bsp schon die mehreren Zeilen - und sogar mögliche Groß-Kleinschreibung bei "ja/JA/Ja/jA" berücksichtigt hat?
Ciao
Thorsten
Anzeige
AW: Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 11:21:00
Lucia
Hi Thorsten,
Noch etwas Geduld - er haut mir Datei immer auf 2 MB hoch, wenn ich auf 2003 bringen will....und gezippt sind das auch immernoch zu viel.....bald:-)
AW: Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 11:23:17
Lucia
Hi,
Was lange wärt wird endlich wahr:
https://www.herber.de/bbs/user/58609.zip
gruß,
Lucia
Anzeige
eine Möglichkeit...
20.01.2009 09:51:34
Tino
Hallo,
steht die letzte Spalte bei dir noch zur Verfügung, kannst Du mal dieses Makro testen.
Weise einem Button dieses Makro zu.
Sub Button_Daten_Uebertragen_Und_Loeschen()
   Dim Bereich As Range
   
   Set Bereich = Range("P2", Cells(Rows.Count, 16).End(xlUp))
   'prüfen ob Bereich in der Überschrift liegt. 
   If Not Intersect(Bereich, Rows(1)) Is Nothing Then Exit Sub
   
   Set Bereich = Bereich.Offset(0, Columns.Count - Bereich.Column)

With Application
 .ScreenUpdating = False
 .EnableEvents = False
  'Formel einfügen 
   Bereich.FormulaR1C1 = "=IF(RC16=""ja"",0,"""")"

On Error GoTo KeineZelle:
   
   Set Bereich = Bereich.SpecialCells(xlCellTypeFormulas, 1)
   
   Bereich.EntireRow.Copy
   
   With Worksheets("Rechnungenbezahlt")
    .Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15).PasteSpecial
    'Formelspalte löschen 
    .Columns(.Columns.Count).Delete
   End With
   'Zeilen löschen 
   Bereich.EntireRow.Delete

KeineZelle:
   'Formelspalte löschen 
   Columns(Columns.Count).Delete
 
 .CutCopyMode = False
 .EnableEvents = True
 .ScreenUpdating = True
End With

End Sub


Gruß Tino

Anzeige
AW: Teste mal mit Deiner Datei...
20.01.2009 11:13:25
Lucia
Hi,
Hui....hier prasselts jetzt aber auf mich ein....Also Code hat beim test mit einer und auch mehreren Zeilen funktioniert, wenn er sich auch sehr schwer getan hat (zeitlich gesehen). Wenn ich nun in die frei gewordene Zeile (Zeile 13) nur eine neue Rechnung eingegeben habe und bezahlt habe, dann wollte er sie nicht mehr haben:-) Was aber gut ist, er schreibt hier alle Zeilen untereinander:-)
Gruß,
LUcia
Anzeige
AW: Teste mal mit Deiner Datei...
20.01.2009 11:43:00
Tino
Hallo,
das kopieren geht sehr schnell, was sehr viel Zeit benötigt ist dass löschen der Zeilen.
Wahrscheinlich durch den Riesen Datenbereich den Du da hast, der geht ja bis in Zeile 1048576.
Schneller bekomme ich es so nicht hin.
Ersetze den Code durch diesen.
Private Sub CommandButton1_Click()
 Dim Bereich As Range
 Dim iCalc As Integer
   Set Bereich = Range("P13", Cells(Rows.Count, 16).End(xlUp))
   'prüfen ob Bereich in der Überschrift liegt. 
   If Not Intersect(Bereich, Rows("1:12")) Is Nothing Then Exit Sub
   
   Set Bereich = Bereich.Offset(0, Columns.Count - Bereich.Column)

With Application
 iCalc = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 .EnableEvents = False
  'Formel einfügen 
   Bereich.FormulaR1C1 = "=IF(UPPER(RC16)=""JA"",0,"""")"

On Error GoTo KeineZelle:
   Debug.Print Bereich.Address
   Set Bereich = Columns(Columns.Count).SpecialCells(xlCellTypeFormulas, 1)
   Bereich.EntireRow.Copy
     
   With Worksheets("Rechnungenbezahlt")
    .Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15).PasteSpecial
    'Formelspalte löschen 
    .Range(Bereich.Address).Clear
   End With
   'Zeilen löschen 
   Bereich.EntireRow.Delete xlUp

KeineZelle:
   'Formelspalte löschen 
   Columns(Columns.Count).Delete
 
 .CutCopyMode = False
 .EnableEvents = True
 .Calculation = iCalc
 .ScreenUpdating = True
End With
End Sub


Gruß Tino

Anzeige
AW: Teste mal mit Deiner Datei...
20.01.2009 11:51:00
Lucia
Hi Tino,
teste gerade...Excel hat sich nur kurzzeitig von mir verabschiedet, test wird später fortgeführt. Was recht gut klappt ist der Code von Erich (unter deinen threats)...kannst du dir auch mal ankucken for interest. danke dir auf jeden Fall schon mal:-)
Grüße,
Lucia
AW: Teste mal mit Deiner Datei...
20.01.2009 11:56:45
Tino
Hallo,
den habe ich getestet, das löschen der Zeile dauert auch so lang wie in meinem Code.
Wenn die ja Zeilen weit auseinander liegen, dauert er noch länger. ;-)
In meinem war noch ein kleiner Fehler,
die Formelspalte muss in Rechnungenbezahlt auch komplett gelöscht werden.
Option Explicit
Private Sub CommandButton1_Click()
 Dim Bereich As Range
 Dim iCalc As Integer
   Set Bereich = Range("P13", Cells(Rows.Count, 16).End(xlUp))
   'prüfen ob Bereich in der Überschrift liegt. 
   If Not Intersect(Bereich, Rows("1:12")) Is Nothing Then Exit Sub
   
   Set Bereich = Bereich.Offset(0, Columns.Count - Bereich.Column)

With Application
 iCalc = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 .EnableEvents = False
  'Formel einfügen 
   Bereich.FormulaR1C1 = "=IF(UPPER(RC16)=""JA"",0,"""")"

On Error GoTo KeineZelle:
   Debug.Print Bereich.Address
   Set Bereich = Columns(Columns.Count).SpecialCells(xlCellTypeFormulas, 1)
   Bereich.EntireRow.Copy
     
   With Worksheets("Rechnungenbezahlt")
    .Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15).PasteSpecial
    'Formelspalte löschen 
    .Columns(Columns.Count).Delete
   End With
   'Zeilen löschen 
   Bereich.EntireRow.Delete xlUp

KeineZelle:
   'Formelspalte löschen 
   Columns(Columns.Count).Delete
 
 .CutCopyMode = False
 .EnableEvents = True
 .Calculation = iCalc
 .ScreenUpdating = True
End With
End Sub


Gruß Tino

Anzeige
Sortieren ist das Zauberwort...
20.01.2009 12:41:00
Tino
Hallo,
was Geschwindigkeit bringen könnte, wäre Du Sortierst zuerst Deine Tabelle nach Spalte P.
Schneller bekomme ich nun wirklich nicht hin.
Option Explicit
Private Sub CommandButton1_Click()
 Dim Bereich As Range
 Dim iCalc As Integer
   Set Bereich = Range("P13", Cells(Rows.Count, 16).End(xlUp))
   'prüfen ob Bereich in der Überschrift liegt. 
    
   If Not Intersect(Bereich, Rows("1:12")) Is Nothing Then Exit Sub
   
   Set Bereich = Bereich.Offset(0, Columns.Count - Bereich.Column)

With Application
 iCalc = .Calculation
 .Calculation = xlCalculationManual
 .ScreenUpdating = False
 .EnableEvents = False
 Range("A13", Cells.SpecialCells(xlCellTypeLastCell)).Sort Range("P13"), xlAscending
  'Formel einfügen 
   Bereich.FormulaR1C1 = "=IF(UPPER(RC16)=""JA"",0,"""")"

On Error GoTo KeineZelle:
   Debug.Print Bereich.Address
   Set Bereich = Columns(Columns.Count).SpecialCells(xlCellTypeFormulas, 1)
   Bereich.EntireRow.Copy
     
   With Worksheets("Rechnungenbezahlt")
    .Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15).PasteSpecial
    'Formelspalte löschen 
    .Columns(Columns.Count).Delete
   End With
   'Zeilen löschen 
   Bereich.EntireRow.Delete xlUp

KeineZelle:
   'Formelspalte löschen 
   Columns(Columns.Count).Delete
 
 .CutCopyMode = False
 .EnableEvents = True
 .Calculation = iCalc
 .ScreenUpdating = True
End With
End Sub


Gruß Tino

Anzeige
AW: Sortieren ist das Zauberwort...
20.01.2009 13:48:32
Lucia
Hallo Tino,
Vielen lieben Dank für deine Mühen, es funktioniert auf jeden Fall und ich werd´s mal im Köpfle behalten:-)
Viele Grüße,
LUcia
AW: Zeile ausschneiden und verschieben, wenn "ja"
20.01.2009 10:25:45
Erich
Hallo Lucia,
probiers mal mit 

Private Sub CommandButton1_Click()
Dim rngC As Range, rngA As Range
For Each rngC In Range("P2", Cells(Rows.Count, 16).End(xlUp))
If rngC.Row > 1 And rngC.Value = "Ja" Then
If rngA Is Nothing Then Set rngA = rngC Else Set rngA = Union(rngA, rngC)
End If
Next rngC
If Not rngA Is Nothing Then
With Worksheets("Rechnungenbezahlt")            ' Zieltabelle
rngA.EntireRow.Copy .Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15)
rngA.EntireRow.Delete
End With
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: kleine Ergänzung
20.01.2009 10:29:51
Erich
Hi Lucia,
damit große und kleine ja's keine Probleme bereiten: 

Private Sub CommandButton1_Click()
Dim rngC As Range, rngA As Range
For Each rngC In Range("P2", Cells(Rows.Count, 16).End(xlUp))
If rngC.Row > 1 And UCase(rngC.Value) = "JA" Then
If rngA Is Nothing Then Set rngA = rngC Else Set rngA = Union(rngA, rngC)
End If
Next rngC
If Not rngA Is Nothing Then
With Worksheets("Rechnungenbezahlt")            ' Zieltabelle
rngA.EntireRow.Copy .Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15)
rngA.EntireRow.Delete
End With
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: kleine Ergänzung
20.01.2009 11:04:32
Lucia
Hi Erich,
Vielen Dank für deine Hilfe. Das Makro funktioniert schon mal:-) Das mit Groß ja und klein ja werd ich noch einbauen, hab zwar dateneingang beschränkt, aber siche rist sicher. Problem, was aufgetaucht ist, ist folgendes: wennn ich in mehreren Etappen "rüberbuche" überschreibt immer die neue Zeile die vorherige. das darf natürlich nicht passieren, toll wäre es, wenn die Zellen untereinander gereiht werden. Zum Beipiel prüfe nach unten wo nächste freie Zeile und schiebe dann rein. Oder So.
danke und liebe Grüße,
LUcia
Anzeige
AW: Rückfrage
20.01.2009 11:29:00
Erich
Hi Lucia,
das kann ich so nicht nachvollziehen - auch nicht beim Test.
Die Zielzelle wird bestimmt mit
.Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15)
Damit wird von Zelle Pnnnnnn aus aufwärts die erste belegte Zelle gesucht,
mit "Offset (1,...)" eine Zeile nach unten und mit "Offset (.., -15)" 15 Spalten nach links (in Spalte A) gegangen.
Ist evtl. in der letzten Zeile deiner Zieltabelle Spalte P leer? (Da sollte Ja drin stehen.)
Dann müsstest du schreiben, wie man die erste freie Zeile erkennen kann.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Rückfrage - sorry
20.01.2009 11:39:00
Lucia
Hi Erich,
Test 2....keine Ahnung was bei test 1 los war....test 2 funktioniert, läuft fix und rund. Sorry, irgendwas war da schief gelaufen. Danke dir!
Grüße aus Ulm,
Lucia
;

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
Zeile aus Tabelle und Listbox löschen
Andre

Hallo,
ich hatte ein Problem und hier wurde mir geholfen mit folgendem Code
Private Sub UserForm_Initialize() Private Sub UserForm_Initialize() Dim arr, l As Long, m As Long, n As Long, o As Long With Worksheets(2) arr = .Range(.Cells(1, 1), .Cells(62, 4)) End With For l = LBound(arr)...
10.11.2009 19:51:23
Thread-ID: 1115974
9 Beiträge
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
10 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
Anzeige
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
Inhalt Ausschneiden und Löschen
Sascha

Hallo,
ich möchte manuell einige Inhalte aus einer Zelle ausschneiden und in Word einfügen. Der Inhalt der Zelle sollte auch mit dem Ausschneiden verschwinden in der Excel Tabelle, so dass ich nicht immer rechte Maustaste und "Inhalt Löschen" betätigen muss. Welche Einstellung muss ich dafü...
17.06.2010 22:03:25
Thread-ID: 1162596
6 Beiträge
Zeilen zählen und leere löschen
Andi

HAllo zusammen,
zu meinem Problem habe ich bereits mehrere Beiträge gesehen und Teile zusammen gefügt.
Im Grunde genommen möchte ich "nur" in einem Bereich die leeren Zeilen löschen lassen.
Dazu lasse ich die Anzahl Zeilen zählen (minus 1 da er sonst die leere Zeile unter dem letzte...
07.01.2011 12:53:19
Thread-ID: 1194425
3 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
Anzeige
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
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeile ausschneiden und verschieben bei "Ja" in Excel

Schritt-für-Schritt-Anleitung

Um in Excel eine Zeile auszuschneiden und in ein anderes Blatt einzufügen, wenn in einer bestimmten Spalte "Ja" steht, kannst du die folgende Vorgehensweise nutzen:

  1. Visual Basic for Applications (VBA) öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Modul hinzufügen: Klicke auf Einfügen und wähle Modul.
  3. Makro einfügen: Füge den folgenden VBA-Code ein:
Private Sub CommandButton1_Click()
    Dim rngC As Range, rngA As Range
    For Each rngC In Range("P2", Cells(Rows.Count, 16).End(xlUp))
        If rngC.Row > 1 And UCase(rngC.Value) = "JA" Then
            If rngA Is Nothing Then Set rngA = rngC Else Set rngA = Union(rngA, rngC)
        End If
    Next rngC
    If Not rngA Is Nothing Then
        With Worksheets("Rechnungenbezahlt")
            rngA.EntireRow.Copy .Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15)
            rngA.EntireRow.Delete
        End With
    End If
End Sub
  1. Button erstellen: Füge einen Button auf deinem Excel-Blatt ein und weise ihm das Makro zu.
  2. Makro testen: Klicke auf den Button und überprüfe, ob die Zeilen korrekt ausgeschnitten und verschoben werden.

Häufige Fehler und Lösungen

  • Problem: Excel bleibt hängen oder reagiert langsam.

    • Lösung: Wenn du mit einer großen Tabelle arbeitest, kann das Löschen von Zeilen viel Zeit in Anspruch nehmen. Verwende den Befehl Application.ScreenUpdating = False, um die Bildschirmaktualisierung während des Makros zu deaktivieren.

  • Problem: Das Makro funktioniert nicht wie erwartet.

    • Lösung: Stelle sicher, dass die Zielzelle richtig definiert ist. Verwende .Cells(.Rows.Count, 16).End(xlUp).Offset(1, -15), um die nächste freie Zeile zu finden.

Alternative Methoden

  • Excel Shortcut für das Ausschneiden: Du kannst auch den Shortcut Strg + X verwenden, um eine Zeile auszuschneiden, und dann Strg + V, um sie an einer anderen Stelle einzufügen.
  • Excel Tabelle zuschneiden: Wenn du nur bestimmte Spalten oder Zeilen behalten möchtest, kannst du die Funktion Daten > Filter verwenden, um die Anzeige zu steuern.

Praktische Beispiele

  1. Einfaches Ausschneiden und Einfügen:

    • Wenn du in der Spalte P "Ja" eingibst, wird die gesamte Zeile in das Blatt "Rechnungenbezahlt" verschoben.

  2. Anpassung für mehrere Zeilen:

    • Verwende eine Schleife, um mehrere Zeilen auszuschneiden, falls es mehrere "Ja"-Einträge gibt.
For Each rngC In Range("P2", Cells(Rows.Count, 16).End(xlUp))
    If rngC.Value = "Ja" Then
        ' Führe die Ausschneide- und Einfügevorgänge durch
    End If
Next rngC

Tipps für Profis

  • Verwende UCase(): Um sicherzustellen, dass das Makro auch "ja", "Ja" oder "JA" erkennt, setze UCase(rngC.Value).
  • Optimierung: Sortiere die Tabelle zuerst nach der Spalte P, um die Verarbeitungsgeschwindigkeit zu erhöhen. Dies kann helfen, die Zeit für das Löschen von Zeilen zu reduzieren.

FAQ: Häufige Fragen

1. Wie kann ich das Makro aktivieren? Um das Makro zu aktivieren, musst du einen Button auf deinem Excel-Blatt einfügen und das Makro diesem Button zuweisen.

2. Funktioniert das Makro in älteren Excel-Versionen? Das Makro wurde ursprünglich in Excel 2003 entwickelt, funktioniert aber auch in neueren Versionen wie Excel 2007 und höher.

3. Was passiert, wenn ich mehrere Zeilen mit "Ja" habe? Das Makro schneidet alle Zeilen mit "Ja" aus und fügt sie untereinander in das Zielblatt ein. Achte darauf, dass die Zielzelle korrekt definiert ist, um Überschreibungen zu vermeiden.

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