Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zwischen Einträgen löschen

Zeilen zwischen Einträgen löschen
12.11.2015 16:14:48
VBA_Neuling
Hallo liebes Forum,
Hat jemand für mich ein Lösungsvorschlag bei folgendem Problem?
Ich wäre euch sehr dankbar.
Und zwar habe ich in Spalte B vier Einträge deren Abstände variieren.
Das heisst, dass sich die Abstände jede Woche ändern.
Nun möchte ich zu Beginn einer Woche die Abstände der Einträge löschen.
Dabei sollen die dazwischen liegenden Zeilen entfernt werden.
Ich bedanke mich schon einmal im Voraus!
MfG

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in diesem Fall ...
12.11.2015 16:24:15
...
Hallo,
... kannst Du das auch einfach ohne VBA lösen.
In einer Hilfsspalte schreibst Du in die erste Zeile folgende kleine Formel: =B1""
und kopierst diese weit genug nach unten. Nun setzt Du den Autofilter auf die Hilfsspalte (mehr dazu sieh mal hier: http://www.online-excel.de/excel/singsel.php?f=102 und filterst nach FALSCH. Die gefilterten Zeilen markierst und löschst Du und hebst danach den Autofilter wieder auf und blendest die Spalte nur aus (dann hast Du diese gleich für das nächste mal wieder)
Gruß Werner
.. , - ...

Anzeige
AW: in diesem Fall ...
12.11.2015 16:29:55
VBA_Neuling
Hallo Werner,
Danke erst einmal für die Hilfe.
Leider muss es mit VBA sein, da der Vorgang automatisiert sein muss.
LG

AW: Dann zeig bitte Deine konkreten Verhältnisse..
12.11.2015 16:37:01
Michael
Hallo Neuling,
...die bei Dir in der Mappe vorherrschen.
Die Info habe ich in Spalte B vier Einträge deren Abstände variieren ist leider ein bisschen wenig um Dir passendes zu programmieren.
D.h.: Zeig eine beispielhafte Tabelle (Upload hier im Forum, mit Dummy-Daten) und v.a. auch den Zielzustand nach dem "automatisierten Entfernen der Abstände". Dann kann Dir sicherlich schnell jemand helfen.
LG
Michael

AW: in diesem Fall ...
12.11.2015 20:25:29
Sepp
Hallo ? (mit einem Namen, den man an-/aus-sprechen kann, macht es mehr Spaß!)
nach deinen Vorgaben.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub LeereLöschen()
Dim rng As Range

On Error Resume Next

With Sheets("Tabelle1") 'Tabellenname - Anpassen!
  Set rng = .Range("B2:B" & Application.Max(2, .Cells(.Rows.Count, _
    2).End(xlUp).Row)).SpecialCells(xlCellTypeBlanks)
  If Not rng Is Nothing Then rng.EntireRow.Delete
End With

Err.Clear
On Error GoTo 0

Set rng = Nothing
End Sub

Gruß Sepp

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige