Datum

Titel

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

19.04.2024 17:05:40

Zählen von Zeilen, in denen in bestimmten Bereich Daten sind

19.04.2024 16:34:52

gemeinsamer Filter über drei Spalten

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1768to1772

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Zellen nach oben löschen bei Bedingung

Forumthread: Zellen nach oben löschen bei Bedingung
6 Beiträge zu diesem Forumthread
Anzeige
294 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen nach oben löschen bei Bedingung

11.07.2020 20:05:17

Hajo_Zi
Rückfrage

11.07.2020 20:38:32

Werner
AW: Rückfrage

11.07.2020 20:49:18

Simone
AW: Rückfrage

11.07.2020 21:46:11

Werner
AW: Rückfrage

11.07.2020 22:10:55

Simone
Gerne u. Danke für die Rückmeldung. o.w.T.

12.07.2020 11:38:08

Werner

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

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

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