|
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
|