Office: Löschen mehrere Zeilen via VBA

Hallo zusammen,
folgendes Problem: Ich soll ein Makro erstellen, welches den Inhalt mehrerer Zellen in einer zusammenfasst und anschließend die kompletten Zeilen aller gewählten Zellen (bis auf die Zelle mit der Zusammenfassung) löscht.
Für die Zusammenfassung als solche habe ich folgendes Makro:
----------------------------------------------------------
Sub Zusammenfassen()
Dim Text As String
Dim Zelle As Range
Dim TrennZ As String


TrennZ = Chr(10)

For Each Zelle In Selection
Text = Text & Zelle.Value & TrennZ
Next

Set Zelle = Nothing
On Error Resume Next
Set Zelle = Application.InputBox(Prompt:="Zielzelle auswählen", Type:=8)
On Error GoTo 0
If Not Zelle Is Nothing Then Zelle.Value = Left(Text, Len(Text) - 1)
End Sub
-----------------------------------------------------------

Hierfür wähle ich von vornherein den zu kopierenden Bereich aus, danach die Zielzelle. Das klappt auch tadellos.

Zum löschen habe ich anschließend folgendes probiert:
------------------------------------------------------------
Sub Loeschen()
Dim Loeschzelle As Range
Set Loeschzelle = Application.InputBox("Zu löschende Zeilen wählen", Type:=8)
For Each Loeschzelle In Selection
Loeschzelle.EntireRow.Delete
Next
End Sub
------------------------------------------------------------

Hier löscht er allerdings nicht die gewählten Zellen, sondern alle von den für die Zusammenfassung gewählten Zellen bis auf die Letzte. Ich Vermute, dass es daran liegt, dass quasi die gewählten Zellen als Menge gelesen werden und schließlich eine entsprechende Menge von oben an löscht.

Ich würde mich über Lösungen oder Verbesserungsvorschläge sehr freuen.

Gruß, Azura.

:)

 

Moin Azura

hier mal die optimierung.

Ich glaube das mit dem "for each" in verbindug mit "Range" ist nicht so optimal. Zudem man günstigerweise "Rückwärts" löscht
Zudem hast du nen kleinen Denkfehler du definierst den Bereich als Löschzelle und referierst dann auf "Selection" .
Die Selection wiederum ist was ganz anderes und kann wo ganz anders sein- im Besten Fall auf in anderen Mappe =)

Daher anders =)

Code:

Grüße Jack

 

Hallo Jack
vielen vielen Dank für deine Hilfe. Deine Verbesserung funktioniert für meinen Verwendungszweck tadellos! *Smilie

 

Na blos gut ^^

Bitte gern =)