Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte Zeilenlöschung
03.08.2021 16:54:14 Philippe Kalevel
Solved
03.08.2021 20:03:04 Gast2971
NotSolved
04.08.2021 08:44:47 Gast77695
NotSolved
04.08.2021 12:39:58 Gast61883
****
NotSolved
04.08.2021 12:49:41 Gast57700
NotSolved
04.08.2021 14:23:07 Gast6605
***
NotSolved

Ansicht des Beitrags:
Von:
Philippe Kalevel
Datum:
03.08.2021 16:54:14
Views:
157
Rating: Antwort:
 Nein
Thema:
Bedingte Zeilenlöschung

Guten Tag,

erstmal vielen Dank für eure Hilfe.

Ich habe folgendes Problem: Es geht darum eien Tabelle zu haben in der Stammnummern und Ihre Versandadressen sind. Leider gibt es auch Meldeadressen. Die Stammadressen sind mit einem + gekennzeichnet und die anderen mit einem -

Problem ist nun, dass einige Konten keine Versandadresse haben also nur - in der zweiten Zeile.

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

Es sollen also allle - Adressen gelöscht werden und die + Adressen hochgezogen werden. Das Problem ist, dass ich nicht schlau genug bin einen Workaround für den Fall zu finden, dass nur - Adressen angegeben werden. Bisher sieht mein Code so aus:

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
 

 

Ich würde mich sehr sehr über Hilfe freuen. Danke euch schon mal :)


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
03.08.2021 16:54:14 Philippe Kalevel
Solved
03.08.2021 20:03:04 Gast2971
NotSolved
04.08.2021 08:44:47 Gast77695
NotSolved
04.08.2021 12:39:58 Gast61883
****
NotSolved
04.08.2021 12:49:41 Gast57700
NotSolved
04.08.2021 14:23:07 Gast6605
***
NotSolved