Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.11.2025 08:28:51
VLOOKUP ... mal wieder
06.11.2025 07:28:20
Fragen zur bedingten Formatierung per VBA (Index/Bereich)
05.11.2025 15:53:39
Zeilenweise addieren ohne ausgeblendete Werte
05.11.2025 15:46:39
Excel Formel mit mehreren Bedingungen
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen markieren und löschen

Forumthread: Zeilen markieren und löschen

Zeilen markieren und löschen
29.01.2014 19:50:46
wolf
Hallo Excelfans, ganz besonders hary,
hary hat mir ein tolles Makro um Zeilen zu löschen geschrieben. Dieses habe ich jetzt ausführlich getestet und funktioniert mit einer Ausnahme: wenn in a2 und a4 je ein Wert steht und dazwischen je eine Leerzeile, haut er auf einen Schlag 4 Zeilen weg. Dieses kann nicht sein, da sonst Werte verloren gehen.
https://www.herber.de/bbs/user/89024.xls
Hier die Bitte an alle, ganz besonders an hary nochmal darüber schauen, vielleicht fällt jemand etwas auf.
Bei dieser Gelegenheit noch eine andere Frage. Ich arbeite mit einer Datenbank mit dessen Script kann ich auf das o.g. Sheet zugreifen und die Daten daraus importieren.
Besteht die Möglichkeit mittels dem Datenbankscript das Makro in dem Sheet auszuführen. Was für einen Pfad muß man da angeben?
Vielen Dank
wolf

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen markieren und löschen
30.01.2014 06:35:09
hary
Moin wolf
Zum 1.Problem. 
With Sheets("Tabelle1")
If .Cells(2, 1) = "" Then Exit Sub 'pruefen ob in A2 was drinsteht
.Cells(2, 1).Resize(.Cells(1, 1).End(xlDown).Row - 1).EntireRow.Delete
Do While .Cells(2, 1) = ""
If .Cells(.Rows.Count, 1).End(xlUp).Row = 1 Then
Exit Do
End If
.Rows(2).Delete
Loop
.Range("M2") = Application.CountA(.Cells(2, 1).Resize(.Cells(1, 1).End(xlDown).Row - 1))
End With

beim zweiten passe ich erstmal.
gruss hary

Anzeige
AW: Zeilen markieren und löschen
30.01.2014 20:29:38
wolf
Hallo hary,
danke für Deine Mühe. Ich kann die Korrektur leider erst am Wochenende testen, da ich bis Freitagabend noch beruflich unterwegs bin. Allerdings ist mir noch eine andere Frage eingefallen: In dem Sheet sind auch u.a. Blöcke mit über 500 Einträgen und mehr drin. Kann man es so einrichten, dass bei diesen Blöcken jeweils nach 500 Einträgen automatisch eine Leerzeile einfügt wird? Also, nur bei Blöcken größer 500.
Wegen der Korrektur melde ich mich nochmal am Wochenende.
Danke
wolf

Anzeige
AW: Zeilen markieren und löschen
31.01.2014 07:38:31
hary
Moin wolf
So nu teste mal am WE. Beide Mappen muessen geoeffnet sein!! 
Sub starten()
'--Makro in die Startmappe
'--Mappenname und Makroname anpassen
Application.Run ("'89024.xls'!Makro1") 'startet das Makro in der anderen geoeffneten Mappe
End Sub

In die Loeschmappe 
Sub Makro1()
'---------Makro in der Loeschmappe --------------
'----Mappenname und Blattname anpassen!!!!!!-----
With Workbooks("89024").Sheets("Tabelle1")
If .Cells(2, 1) = "" Then Exit Sub 'pruefen ob in A2 was drinsteht
.Cells(2, 1).Resize(.Cells(1, 1).End(xlDown).Row - 1).EntireRow.Delete
Do While .Cells(2, 1) = ""
If .Cells(.Rows.Count, 1).End(xlUp).Row = 1 Then
Exit Do
End If
.Rows(2).Delete
Loop
.Range("M2") = Application.CountA(.Cells(2, 1).Resize(.Cells(1, 1).End(xlDown).Row - 1))
If .Range("M2") > 500 Then .Rows(502).Insert Shift:=xlDown 'Leerzeile einfuegen
End With
End Sub

gruss hary

Anzeige
AW: Zeilen markieren und löschen
31.01.2014 20:50:08
wolf
Hallo Hary,
habe gleich nach meiner Rückkehr losgetestet.
Die Korrektur zu 1) haut hin, er löscht jetzt die Zeilen korrekt.
Das Leerzeilen einfügen haut auch hin. Nur mit dem zählen, da klappt es noch nicht. Wenn der gesamte Block z.B. 1700 Zeilen hat, setzt er 1700 in M2, trotz Leerzeile. Es sollte aber 500 in M2 stehen, sonst komme ich mit dem Export ins schleudern.
Bezüglich Makrostart, dieses teste ich am WE in aller Ruhe.
Danke und bis denne
Gruß
wolf

Anzeige
AW: Zeilen markieren und löschen
01.02.2014 07:52:47
hary
Moin
Dann ersetz mal zwischen Loop und end with. Ungetestet. 

If Application.CountA(.Cells(2, 1).Resize(.Cells(1, 1).End(xlDown).Row - 1)) > 500 Then
.Rows(502).Insert Shift:=xlDown 'Leerzeile einfuegen
End If
.Range("M2") = Application.CountA(.Cells(2, 1).Resize(.Cells(1, 1).End(xlDown).Row - 1))

gruss hary

Anzeige
AW: Zeilen markieren und löschen
01.02.2014 20:30:19
wolf
Hallo Hary,
alle Korrekturen (auch die letzte ungetestete) klappen astrein. Das einzige wo ich noch rumbasteln muß ist der Makrostart in der Datenbank. Aber ich habe ja noch den Sonntag. Sollten alle Stricke reissen würde ich mich nochmal melden.
Nochmals Danke und schönen Sonntag
wolf
Anzeige
;

Forumthreads zu verwandten Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Anzeige
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Anzeige
Suchen und Zeile kopieren
Steffi

Hallo liebes Forum,
wie kann ich es am besten lösen...?
Ich habe in Tabelle2 von B1 bis B3500 Daten stehen.
In Tabelle1 habe ich von A1 bis A3500 die Daten auch aber in nicht sortierter Reihenfolge stehen.
Nun möchte ich die Daten von Tabelle2 B1 bis B3500 mit Tabelle1 A1 bis A3...
15.07.2009 22:28:08
Thread-ID: 1088922
2 Beiträge
Zeilen suchen und in neues Blatt uebertragen
TT

Hallo liebe Excel- und VBA-Cracks!
Möchte zur Zeiterfassung von mehreren Personen, die alle in mehrerer Projekten und darin in unterschiedlichen Arbeitspaketen arbeiten, folgendes tun:
Projektmitarbeiter fuellt in einem Monatsblatt alle notwendigen Angaben aus, wobei er fuer jede Tätigk...
21.10.2009 06:33:49
Thread-ID: 1110868
2 Beiträge
Spalte mit Datum suchen und Wert von Zeile kopiere
Zeile

Hi, folgendes Problem:
Ich möchte hinter eine Schaltfläche ein Makro legen, welches im Quellsheet 'Tabelle2' die Zeile 12 nach dem Vormonat (also: aktueller Monat - 1) durchsucht (Werte der Zeile 12 sind in der Datumsform z.B. 01.11.2009 und werden benutzerdefiniert dargestellt als MMM JJ)....
11.11.2009 14:08:13
Thread-ID: 1116202
3 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
suchen, Treffer-Zeilen löschen
David

Hallo zusammen,
ich habe eine Export-Datei, in der bei 10.000 Gesamtzeilen etwa 2/3 nur aus kaskadierten Ergebniszeilen besteht. Eine Gliederung oder ähnliches ist nicht vorhanden, die Zeilen sind nur am Text "Ergebnis" zu identifizieren.
Da ich diese in der weiteren Verarbeitung nicht...
16.11.2009 17:09:14
Thread-ID: 1117704
13 Beiträge
Anzeige
Tabelle durchsuchen und Zeilenwert wiedergeben
toni

Hallo,
1.) ich suche eine Formel die einen Text über mehrere Spalten und zeilen nach einem bestimmten Text durchsucht z.B. " paar Socken" und soll dann den Wert der Zeile wiedergeben, d.h. in welcher Zeile dieser Wert ist.
Toni
25.11.2009 21:19:38
Thread-ID: 1120085
16 Beiträge
Anzeige
Tabelle durchsuchen und Zeilenwert wiedergeben
toni

Hallo,
ich suche eine Formel, mit der ich einen Teil eines Wertes finden und die Formel die Zeile wiedergibt.
=MAX(ISTZAHL(FINDEN("linke Socke";A1:G99))*ZEILE(A1:G99)) als Matrix, ist aus einem alten Beitrag
nun will ich nicht nur die "linke Socke" sondern nur noch "ock" soll gesich...
03.12.2009 21:56:16
Thread-ID: 1121712
3 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