Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen nach oben löschen bei Bedingung

Forumthread: Zellen nach oben löschen bei Bedingung

Zellen nach oben löschen bei Bedingung
11.07.2020 19:55:15
Simone
Hallo zusammen,
ich habe folgendes Problem und bisher keine Lösung gefunden:
In Spalte A sind ca. 1000 Werte untereinander gespeichert. Ich möchte, dass die Zellen (nicht Zeilen) darüber gelöscht werden, sobald in einer Zelle das Wort "Buchstabe" auftaucht.
In A1 ist eine Überschrift. Wenn also in A501 das erste mal "Buchstabe" steht, dann sollen die Zellen A2:A500 gelöscht werden.
Kann mir jemand helfen?
Danke und viele Grüße
Simone
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen nach oben löschen bei Bedingung
11.07.2020 20:05:17
Hajo_Zi
Hallo Simone,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle. 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Not IsNumeric(Target) Then
Application.EnableEvents = False
Range("A2:A" & Target.Row - 1).ClearContents
Application.EnableEvents = True
End If
End If
End Sub

Anzeige
Rückfrage
11.07.2020 20:38:32
Werner
Hallo,
gelöscht und die unteren Zellen sollen nach oben nachrücken?
oder nur geleert?
Gruß Werner
AW: Rückfrage
11.07.2020 20:49:18
Simone
Hallo Werner,
die Zellen sollen gelöscht und die unteren Zellen nach oben nachgerückt werden.
Hätte ich besser formulieren können ... sorry.
Danke und Grüße
AW: Rückfrage
11.07.2020 21:46:11
Werner
Hallo,
Sub Schaltfläche1_Klicken()
Dim raFund As Range
With Worksheets("Tabelle1")
Set raFund = .Columns("A").Find(what:="Buchstabe", _
LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
.Range(.Cells(2, "A"), .Cells(raFund.Row, "A")).Delete shift:=xlUp
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner
Anzeige
AW: Rückfrage
11.07.2020 22:10:55
Simone
Hallo Werner,
funktioniert super!! :-)
Vielen Dank
Gerne u. Danke für die Rückmeldung. o.w.T.
12.07.2020 11:38:08
Werner
;

Forumthreads zu verwandten Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
teilstring suchen nachfolgende zellen nach links
maruseru

Hallo werte Profis
Ich konsolidiere zwangzig Arbeitsblätter mit je etwa 1000 Zeilen in ein Arbeitsblatt.
Leider haben vier der Arbeitsblätter jeweils eine Spalte mehr, dessen Inhalt ich nicht brache.
Nun möchte ich im konsolidierten Arbeitsblatt per Marko folgendes lösen:
Suche...
17.10.2008 12:26:00
Thread-ID: 1017118
11 Beiträge
Formate in Zellen per Makro entfernen.
Joachim

Hi,
gibt es in VBA einen Befehl, mit dem man zB Spalte D so bearbeiten kann, dass alle Formateinstellungen rausfliegen, also alles sozusagen auf Standard steht.
Danke
Joachim
25.03.2009 18:56:49
Thread-ID: 1063929
4 Beiträge
Hyperlink entfernen und Zelle einfärben / Wert ?
Selma

Hallo Leute,
was muss ich in unten stehendem Makro anpassen, damit nicht nur der Hyperlink in Spalte C entfernt wird, sondern auch der Wert der nach dem Entfernung des Hyperlinks stehen bleibt ?
Sub Hyperlink_Makro() 'Wenn in Spalte C die Zelle die Füllfarbe 22 und ein Hyperlink hat d...
07.05.2009 15:13:04
Thread-ID: 1073652
17 Beiträge
Leere Zellen entfernen per Makro
Joachim

Hallo
Ich habe in einem Tabellenblatt einen fest definierten Bereich (A10:K20) Datensätze drin stehen. Also in A10:K10 der erste DS
A11:K11 der zweite DS
...usw
A20:K20 der 20ste DS
Nun werden verschidene DS, die nicht mehr gebraucht werden , gelöscht. Nun zum Problem. Ich...
02.07.2009 16:34:05
Thread-ID: 1086022
4 Beiträge
Anzeige
leere Zellen löschen
Udo

Hallo zusammen,
ich hab folgendes Problem:
In Spalte A und B stehen Zahlen drin, wenn in Spalte A eine Zelle leer ist, steht in Spalte B eine Zahl und umgekehrt. Nun möchte ich die Werte der Spalten A und B zusammenführen, so dass ich nur eine Spalte mit den Zahlen habe ohne leere Zelle...
25.07.2009 21:51:47
Thread-ID: 1091320
20 Beiträge
Zeilen nach oben verschieben
Josef_T

Hallo zusammen,
habe wieder ein Problem, dass ich nicht gelöst bekomme und deshalb Hilfe von Experten
benötige.
Mein Prob, habe ich hier näher beschrieben: https://www.herber.de/bbs/user/63496.xls
Danke
Gruß Josef
28.07.2009 19:13:39
Thread-ID: 1092043
9 Beiträge
Wirklich leere Zeilen löschen
Markus

Hallo,
verschiedene Makro's die ich im Archiv gefunden haben,
lösen nicht mein Problem.
Ich möchte alle Zeilen im aktuellen Sheet löschen, aber nur dann wenn,
keine Formeln, keine Werte und keine Formatierungen (z.B. Zellen gelb hinterlegt), keine Kommentare in den entsprechende...
30.09.2009 14:36:43
Thread-ID: 1106327
4 Beiträge
Makro, Suchfunktion, Zelle nach oben bis Wert
Markus

Hallo Leute!
Ich bin absoluter Excel und VBA Neuling, aber bring mir das ganz gerade ein bisschen bei, indem ich Suchmaschinen um Rat frage. Diese geniale Seite hat mir auch schon oft weiter geholfen, nur bei meinem folgenden Problem komm ich nicht weiter:
Ich habe ein Excel-Sheet in fo...
15.10.2009 00:57:03
Thread-ID: 1109555
4 Beiträge
Teileintrag in Zelle entfernen
Günter

Guten Morgen,
hätte hier ein Problem mit Zelleinträgen.
Vielleicht gibt es hierzu eine Formellösung.
Folgendes: In Zellen (Spalte A) habe ich wie
folgt Einträge:
Biblis (06245)
Nun hätte ich gerne, dass per Formel, dass die Vorwahl,
incl. Klammern entfernt werden. Es...
18.02.2010 09:53:38
Thread-ID: 1139421
10 Beiträge
Link - angesprungene Zelle nach links oben
Jörg-HH

Hallo zusammen
wenn ich im Blatt einen Link auf Zellen innerhalb desselben Blattes setze, erscheinen die angesprungenen Zellen immer irgendwo rechs unten, und ich muß dann erst umständlich scrollen, wenn ich den daran hängenden Bereich sehen will.
Ist das normal, oder liegt das an irgen...
23.03.2010 12:38:56
Thread-ID: 1147824
24 Beiträge
Leere Zellen löschen
Putenbrust

Hallo,
ich möchte in Spalte B im Bereich B100:B300 eines Tabellenblattes alle leeren Zellen löschen. Es kann auch die ganze Zeile gelöscht werden, in der sich eine leere Zelle des Bereichs B100:B300 befindet.
Das ganze über VBA
Kann mir jemand helfen ?
Vielen Dank
Grüsse
...
11.05.2010 07:07:04
Thread-ID: 1156561
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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