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