Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Aktuelle Zeile loeschen

VBA-Aktuelle Zeile loeschen
27.10.2005 10:58:39
RainerS
Hallo zusammen ,
bastle gerade an einem Makro rum und möchte gerne die Zeile
in der sich der cursor gerade befindet löschen.
Hier mein code:
.
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then

ActiveCell.Offset(1, 4).Select
Selection.Cut
ActiveCell.Offset(-1, -1).Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Hier soll der Befehl rein, der die Zeile löscht &lt---
Selection.End(xlToLeft).Select
ActiveCell.Offset(1, 0).Select

End If
ActiveCell.Offset(1, 0).Select

Loop
Hat jemand einen Tipp?
Vielen Dank im voraus für die Hilfe.
Gruß
RainerS

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

Betreff
Datum
Anwender
Anzeige
AW: VBA-Aktuelle Zeile loeschen
27.10.2005 11:15:50
Andi
Hi,
die Zeile kannst Du mit
Rows(Activecell.Row).Delete
löschen.
Ich kapier allerdings nicht so ganz, was Du überhaupt vorhast (vielleicht liegt das aber auch an mir...);
mit
Selection.End(xlToRight).Select
wählst Du die ganz rechte Zelle der aktuellen Spalte aus, und mit
ActiveCell.Offset(0, 1).Select
willst Du dann noch eins weiter nach rechts; das geht doch nicht.
Wenn Du mir kurz erläuterst, was Du vorhast, dann bekommen wir Deinen Code wahrscheinlich auch noch etwas übersichtlicher hin, ohne die ganze Selektiererei.
Schönen Gruß,
Andi
AW: VBA-Aktuelle Zeile loeschen
27.10.2005 12:19:51
RainerS
Hallo Andi,
vielen Dank für die schnelle Antwort.
Mir ist schon klar,daß mein code nicht toll aussieht aber ich glaube er funktioniert mittlerweile.
Ich hab eine Tabelle(Aus SAP-würg)in der in der Spalte A Teilenummern stehen und in Spalte E Texte dazu.
Nun soll , wenn die nächste Teilenummer die gleiche ist der Text in Spalte E eine Zeile nach oben daneben geschrieben werden , so daß immer nur eine Teilenummer vorhanden ist.
Hoffe ich habe mich klar genung ausgedrückt.
Wenn Du den code natürlich vereinfachen kannst bin ich dir dankbar.
Erklärung wäre nett(Damit ich was lerne)
Hier die Datei
https://www.herber.de/bbs/user/27888.xls
Gruß
RainerS
Anzeige
AW: VBA-Aktuelle Zeile loeschen
27.10.2005 15:34:56
Andi
Hi,
ich würde das so machen, is zwar nicht wesentlich kürzer, kommt aber ohne die ganzen selects aus, wodurch ein Code zumindest mal schnell, und meist auch übersichtlicher wird.
Ganz allgemein wäre noch anzumerken, dass Routinen, die Zeilen löschen sollen, immer von unten nach oben laufen müssen, weil sonst ggf Zeilen übersprungen und nicht gelöscht werden.

Sub loeschen()
Dim zeile As Integer
Application.ScreenUpdating = False      'Bildschirmaktualisierung aus, sonst flimmerts bei längeren Listen ne Weile
For zeile = Cells(65536, 1).End(xlUp).Row To 2 Step -1      'Zeilen löschen grundsätzlich immer von unten nach oben
If Cells(zeile, 1).Value = Cells(zeile - 1, 1).Value Then     'Wenn zwei gleiche Nummern in Spalte A
Range(Cells(zeile, 5), Cells(zeile, Cells.SpecialCells(xlCellTypeLastCell).Column)).Copy      'Kopiere in der aktuellen Zeile ab Spalte 5 (=Spalte E) bis zur letzten Spalte mit Inhalt
Range("F" & zeile - 1).PasteSpecial     'Füge eine Zeile weiter oben ab Spalte F ein
Rows(zeile).Delete      'Zeile löschen
End If
Next zeile
Application.ScreenUpdating = True     'Bildschirmaktualisierung wieder ein
End Sub

Schönen Gruß,
Andi
Anzeige
@Andi - Besten Dank - Gruß RainerS - eom
27.10.2005 16:30:39
RainerS
.
Gern geschehen... (ot)
27.10.2005 16:59:32
Andi
.
AW: VBA-Aktuelle Zeile loeschen
27.10.2005 11:18:38
Ralf
Hallo Rainer,
Spalte = activecell.row
Rows(spalte & ":" & spalte).delete
Ciao, Ralf

67 Forumthreads zu ähnlichen Themen

VBA: Zeile Löschen trotz Blattschutz
Mathias

Hallo zusammen!
Ich bräuchte nochmals Hilfe. Habe zwar einige Bausteine gefunden, aber alles nicht das, was ich will.
Ich habe in Excel mehrere Tabellenblätter.
Darin sind einzelne Spalten geschützt
Wenn ich über eine Userform-Formular etwas in die Excel-Tabelle eintragen möchte...
25.08.2009 12:02:31
Thread-ID: 1098366
5 Beiträge
Anzeige
VBA Profis: Leerzeile in Textdatei löschen
Joe

Hallo,
habe folgendes Makro "ZeileLöschenLangsam" gefunden um leere Zeilen in einer Textdatei zu löschen.
Das ganze funktioniert, aber dauert bei großen TextDateien (>20.000 Zeilen) extrem lange.
Ich habe deshhalb das Makro "ZeileLöschenSchnell" geschrieben welches nur wenige Se...
11.02.2010 23:36:52
Thread-ID: 1137630
2 Beiträge
VBA: bei Wert 0 in Zelle A5, Zeile 9 löschen
Steffen

Hallo zusammen,
ich benötige kurz eure kompetente Hilfe!
Ich habe folgendes Problem....
Wenn in Zelle A5 in Mappe1 der Wert 0 steht dann soll die Zeile 9 in Mappe2 gelöscht werden.
Ich hoffen mir kann jemand weiterhelfen!
Vielen Dank für die Hilfe und einen Lieben Gruß
S...
04.09.2010 18:17:19
Thread-ID: 1175718
13 Beiträge
Anzeige
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 Beiträge
LeerZeilen löschen mit VBA
Sibylle

Guten Tag,
eine importierte Datei enthält Leerzeilen, die entfernt werden sollen, und zwar so, dass die Datensätze unter der Leerzeile nach oben rücken. Wie lässt sich dies mit VBA machen?
Ich bitte um Lösungsansätze oder fertige Lösungen, die ich dann umstricken kann.
Dank im Vorau...
04.10.2011 12:03:14
Thread-ID: 1232503
12 Beiträge
VBA: leere Zeilen löschen
Fritz_W

Hallo Forumsbesucher,
ich bitte um Eure Hilfe:
Mit welchem Code lassen sich alle leere Zeilen der aktiven Spalte (bis zur letzten Zeile mit Inhalt) löschen.
Beispiel: Befindet sich der Cursor in Zelle C6 und ist in Spalte C die letzte Zelle mit Inhalt die Zelle C957 sollten alle lee...
19.10.2011 09:27:12
Thread-ID: 1234458
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
1
12
6
2
3
6
11
2
10
7
10
16
2
4
6
4
4
6
2
7
2
2
6