Leerzeilen beim Wertevergleich
17.12.2021 08:10:19
Georg
https://www.herber.de/bbs/user/149861.xlsm
Der Code macht was er soll, bis auf die Tatsache, dass im Blatt "ohneRück" die Namen mit Leerzeilen ausgegeben werden. Meine Frage wie kann ich Leerzeilen vermeiden. so dass die Namen untereinander geschrieben werden?
Vielen Dank für eure Antworten. Gruß Georg
PS. Ich habe gestern schon eine wunderbare Formel dazu hier von Werner bekommen, wollte es aber jetzt noch mit VBA lösen, damit ich nicht aus der Übung komme
Sub keineAntwort()
Dim lastRDaten As Integer
Dim lastRnoAnswer As Integer
Dim wshDaten As Worksheet
Set wshDaten = ThisWorkbook.Worksheets("Daten")
Dim wshOhne As Worksheet
Set wshOhne = ThisWorkbook.Worksheets("OhneRück")
Dim i As Integer
With wshOhne
lastRnoAnswer = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To wshDaten.Cells(Rows.Count, 3).End(xlUp).Row
If wshDaten.Cells(i, 4).Value = 0 Then
.Cells(lastRnoAnswer, 1).Value = wshDaten.Cells(i, 3).Value
End If
lastRnoAnswer = lastRnoAnswer + 1
Next i
End With
End Sub
Anzeige