Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte_Zeilenlöschung
04.08.2021 11:40:34 Philipp
Solved

Ansicht des Beitrags:
Von:
Philipp
Datum:
04.08.2021 11:40:34
Views:
164
Rating: Antwort:
 Nein
Thema:
Bedingte_Zeilenlöschung

Hallo zusammen,

erstmal vielen Dank für die Hilfe. Ihr seid super. Ich habe nun folgenden Problem:

Ich habe Adressen und Namen. vor der Richtigen Adresse ist ein + vor den flaschen ein - 

Nun sollen alle mit dem minus verschwinden. Das Problem ist, dass es auch welche gibt bei denen nur Minus steht. Ein toller Nutzer hier hat meine Frage schon folgendermaßen vereinfacht:

Aus dem hier:

999999 hans - Hausweg. 3
               - Baumweg 4
                + Entenweg 1
88880 Franz - Vogelweg 3
               + Superweg 2
5555 Eva - Janstr. 1
                - Grauer weg. 4 
               - Berndweg 2
888323 Jörg - Korallweg 1
              +

Meisterplatz 6

soll das hier werden:

999999 hans + Entenweg 1
88880 Franz + Superweg 2
888323 Jörg + Meisterplatz 6

Da ich kaum Ahnung habe ich mein Code bisher sehr rudimentät.

Ich freue mich über jede Hilfe!

 

Public Sub bedingte_Zeilenloeschung()

 

'** Ermittlung der letzten Zeile in Spalte A

lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row

 

'** Durchlauf aller Zeilen

For t = lz To 2 Step -1 'Zählung rückwärts bis Zeile 2

'Abfragen, ob in der zweiten Spalte ein "-" steht und in der ersten ein wert bei - zeile löschen

    If Cells(t, 2).Value = "-" And Cells(t, 1).Value = "" Then

        Rows(t).Delete Shift:=xlUp

       

        End If

   

    Next

    'wenn in der ersten zeile ein wert ist in der zweiten ein minus ab zweile zwei löschen

   

 

    If Cells(t, 1).Value = "" And Cells(t, 2) = "-" Then

   

    Cells(t, 2).Delete

   

   

    End If

   

    End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte_Zeilenlöschung
04.08.2021 11:40:34 Philipp
Solved