VBA Bereich durchsuchen und gewisse Zeilen löschen?

Guten Tag,

ich habe ein kleines Problem.

Kurz zur Situation:

Ich möchte aus der Tabelle Test (Range A3:I102) nur die Zeilen löschen (ClearContents), wo in Spalte I "erledigt" steht. Jedoch sollen nur die Spalte A, B, D, E und I gelöscht werden. Dieses lasse ich über einen Button laufen.

Quasi: Wenn in Spalte I erledigt steht, dann lösche/cleare die dazugehörige Zeile in Spalte A, B, D, E und I. Die anderen Zeilen sollen nicht gelöscht werden. (Sind ja nicht erledigt :D)

Kann da jemand etwas aus dem stehgreif raushauen?

Vielen Dank!

Gruß

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

01.04.2020, 21:06

Auf die Schnelle, einfach gestrickt:

Private Sub CommandButton1_Click()
Dim Bereich As Range
Set Bereich = Range("I3:I102")
Dim Zelle As Range

On Error GoTo ErrorHandler
Application.ScreenUpdating = False

For Each Zelle In Bereich
  If Zelle.Value = "erledigt" Then
    Zelle.Offset(0, -8).ClearContents
    Zelle.Offset(0, -7).ClearContents
    Zelle.Offset(0, -5).ClearContents
    Zelle.Offset(0, -4).ClearContents
    Zelle.ClearContents
  End If
Next Zelle

ErrorHandler: Application.ScreenUpdating = True
End Sub

Klappt es? Habe ich Dich richtig verstanden?

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

RobinM66

Fragesteller

01.04.2020, 21:24

Vielen Dank, funktionier super! :)

Oubyi, UserMod Light

01.04.2020, 22:07

@RobinM66

Gern geschehen 😊.

Oubyi, UserMod Light

02.04.2020, 21:03

Danke fürs ☆
☼

Hannes62a

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

01.04.2020, 21:06

Nicht getestet, müsste aber funktionieren.

Mach vor dem Test eine Sicherheitskopie von der Datei!

Sub Erledigt_loeschen()
Dim Zeile As Integer
For Zeile = 3 To 102
    If Cells(Zeile, 9) = "erledigt" Then
        Range(Cells(Zeile, 1), Cells(Zeile, Zeile, 2)).ClearContents
        Range(Cells(Zeile, 4), Cells(Zeile, Zeile, 5)).ClearContents
        Cells(Zeile, 9).ClearContents
    End If
Next
End Sub

RobinM66

Fragesteller

01.04.2020, 21:33

vielen Dank für dein Hilfe. Ich habe die Lösung von Oubyi bereits verwendet. Trotzdem, Dankeschön :)

Hannes62a

01.04.2020, 21:34

@RobinM66

Gern geschehen.

Ähnliche Fragen

VBA bestimmten Zeileninhalt löschen?

Guten Abend,

ich möchte den Zelleninhalt bestimmter Zellen löschen, wenn eine gewisse Bedingung erfüllt ist. Dazu ist zu wissen, dass ich zwei Tabellen haben.
Tabelle 1: Rechungsliste
Tabelle 2: Uebersicht

Wenn ich in der Tabelle "Rechnungsliste" in Spalte I "erledigt" eintrage, soll in der Tabelle "Uebersicht" der dazu passende "Datensatz" (Spalte A-D) gelöscht werden. Jedoch nur der Inhalt, nicht die Zeile. Der Spalteninhalt aus Tabelle A dient als Suchkriterium. Die Range der Tabellen ist von A3:A100.

Beispiel:
Rechnungsliste: RE19002 (Spalte A) wird in "Spalte I" als "erledigt" markiert, dann soll in Tabelle "Uebersicht" der Inhalt der Spalten A-D von RE19002 gelöscht werden.

Ich weiß, dass dies als Funktion direkt im Tabellenblatt eingebaut werden muss, nur leider habe ich durch meine andere offene Frage kein Ansatz.

Das Prinzip müsste wie bei meiner anderen offenen Frage sein:

https://www.gutefrage.net/frage/vba-daten-in-zweite-tabelle-uebertragen#answer-328499597

Gruß

...zur Frage

VBA Code endet?

Hallo zusammen

Ich habe einen VBA Code erstellt, welcher die gesamte Zeile löscht, wenn in der Spalte L "Löschen" steht. Dieser funktioniert auch so weit jedoch endet das Makro bevor alle Zeilen mit "Löschen" gelöscht sind. Und ich muss das Makro mehre Male ausführen damit alle "Löschen" weg sind.

Vielen Dank für eure Antworten

...zur Frage

Excel VBA Selection begrenzen?

Hallo zusammen.

Ich komme leider beim meinem Problem nicht alleine weiter.

In meiner Tabelle werden in Spalte 2 und Zeile 4 Zeichen angezeigt, sobald ein Bereich selektiert wird. Die Zeichen sollen sich allerdings nur auf die Range J7:OJ57 beschränken, auch wenn die Selektion über die Range hinausgeht.

Denn jetzt, wenn ich z.B. eine Spalte markiere, schreibt der Code mir alle Zeichen in jede Zeile der Spalte, was fatal ist.

Kann ein Profi kurz helfen? :)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J6:OJ57")) Is Nothing Then
Dim cell As Range
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Application.EnableEvents = False
   Range("B6:B57").ClearContents
   Range("J4:OJ4").ClearContents
For Each cell In selection
  With cell
   Range(cell(.Row, 2), Cells(.Row, 2)) = ">>"
   Range(cell(4, .Column), Cells(4, .Column)) = "V"
  End With
Next
   Application.ScreenUpdating = True
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
End If
End Sub

...zur Frage

Excel Macro VBA löschen bestimmter Zellen

Hallo,

habe bisher nicht soviel Erfahrung mit VBA und bisher kam ich mit der Macroaufzeichnen funktion gut Zugange. Ich habe eine Tabelle die 271 Zeilen Umfasst, in Spalte C steht der Name und in Spalte D der Vorname. Nun soll man den Namen irgendwo eingeben können (Inputbox oder ähnliches) und dann nach dem Namen in Spalte C und D gesucht werden. Die gefundene Zeile soll gelöscht werden.

Kennt sich da jemand aus und kann mir helfen? Danke schon einmal

...zur Frage

Excel/VBA? Input Abfrage?

Guten Tag,

ich habe eine Frage und zwar geht es um VBA.

Ich möchte gerne über die MSG input?Funktion einen gewissen Wert abfragen. Die Werte befinden sich in Tabelle 2 Range (A1:A20).

Sollte sich der eingegebene Wert nicht in dieser Tabelle befinden, dann soll eine Fehlermeldung zurückgegeben werden.

Wird der gewünschte Wert gefunden bzw. existiert er in der Tabelle 2 Spalte A, soll in der dazugehörigen Zeile (Tabelle 2 Spalte B) das Wort "erledigt" stehen.

Danach soll der Prozess geschlossen werden. Das Wort "erledigt" soll natürlich bestehen bleiben.

Leider komme ich da nicht weiter.

Hat jemand eine Idee? Hoffe habe mich verständlich ausgedrückt. Leider habe ich auch nicht so Ahnung von VBA.

Vielen Dank schon mal.

Gruß.

...zur Frage

Excel VBA -> Spalten- und Zeilenlängen und Schriftgröße bestimmen

Hallo,

kleine Frage: (wie) kann man im Code Spalten- und Zeilengröße und Schriftgröße bestimmen? Ich meine damit nicht per Hand oben im Menü selber ändern, sondern direkt im Code eine Zeile und Spalte ansprechen (z.B. Range("A1") = ...) und ihre Zeilen- und Spaltenlängen bestimmen. Das selbe auch für die Schriftgröße!

Kann mir da jemand helfen? Google konnte nichts Produktives liefern -
Code zum Farben einstellen dagegen habe ich erfolgreich gefunden

MfG

...zur Frage

Wie kann ich mit Excel VBA, Werte mit bestimmtem Wortteil in einer Spalte finden und dann die zugehörigen Zeilenwerte ausgeben lassen - alle anderen Zeilen weg?

Ich brauche einen VBA code mitdem man aufgefordert wird einen Text einzugeben (Msg-Box) welche von Jan-Dec auswählbare diskrete Werte erlaubt und diese werte dann in einer Spalte B sucht (darin steht dann z.B. 10-OCT-2015) -> ich will dann OCT eingeben können und für alle Werte in Spalte B, die OCT enthalten, sollen dann die Spalten A,C,D,E ausgegeben werden bzw. sthen bleien und die restlichen Zeilen (die kein OCT in Spalte B enthalten), sollen gelöscht bzw. ausgeblendet werden.

...zur Frage

Excel VBA automatisch nächste freie Spalte nehmen?

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zur Frage

Zelleninhalte durch einen CommandButton löschen?

Ich möchte mit einem CommandButton einige Zelleninhalte auf anderen Tabellenblättern löschen. Mein Gedanke war so etwas:

Private Sub Reset_click()

Sheets("Tabellenblatt").Range("Zellenname").ClearContents

End Sub

Leider funktioniert das nicht.

Vielen Dank für Hilfe. Liebe Grüße

...zur Frage

Excel-Zeilen nach Inhalt über Button und VBA ausblenden?

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

...zur Frage

Excel VBA Private Sub Worksheet_Change(ByVal Target As Range)? Help Programm vom Kollegen Bearbeitet

Habe für einen Kollegen ein Programm geschrieben. Das Problem ist nun das er vorher als Change Bedienung einen Befehl drin hat denn ich nicht ganz verstehe(und mein Programm Stört). :/ Der Code hat seinen Sinn deswegen möchte ich ihn gerne drin lassen. Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A7:A100")) Is Nothing Then Exit Sub
   If Target.Value <> "" Then
      Target.Offset(0, 8).Value = Date
   Else
      Target.Offset(0, 8).ClearContents
   End If

End Sub

Ich denke der Code Funktioniert so. Er Speichert in der Variable "Target" die Range A7;A100 und guck nun dann ob sie leer sind wenn ja soll er das Sub Verlassen. Ist das gebiet 0,8 nicht "ungleich" Leer soll es in die Zelle 0,8 bzw "Offset"? Das Datum reinschreiben. Ist Target 0,8 leer? Löscht es die Komplette Zeile?...

So das Programm erzeugt immer wenn man in Spalte A in eine neue Zeile schreibt an der stelle 8/bzw. H das Datum.

Das Problem ist aber das der Debugger anspringt wenn man Zeilen per Rechtsklick Zeilen Löschen rauslöscht. Und da das wiederum unschön ist wäre hilfe wirklich schön :)

mfg Dennis

...zur Frage

Excel Vba, Bilder löschen?

Hallo, gibt es eine Möglichkeit in excel vba alle Bilder auf dem Tabellenblatt mit einer Ausnahme zu löschen? Also alle Bilder bis auf ein definiertes sollen gelöscht werden.

...zur Frage

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zur Frage

Excel, Spalte rechts nebenan kopieren?

Hallo, wie kann ich per Excel VBA eine Range (eine Spalte) mit einer Zelle vergleichen und nach einem Match die Zelle direkt rechts neben der Range (eine Spalte) selektieren?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen