Zellen, anstatt Zeilen löschen
08.11.2007 18:41:00
Wolfgang
den untenstehenden Code hatte mir Karin zur Verfügung gestellt und ich hatte auch schon eine Meldung geschickt, dass er läuft. Jetzt stelle ich nur fest, dass der Code offensichtlich die ganze Zeile und nicht die angesprochene Zelle löscht. - Ich würde gerne über ein UF mit Listbox den Bereich C6:C26 darin angezeigt bekommen (läuft auch soweit) und dann die darin jeweils markierte Zelle bzw. den Text aus der Zelle gelöscht bekommen. Die entstehende Lücke innerhalb des Bereiches im Tabellenblatt soll dann durch Nachrücken der Texte darunter gefüllt werden. Wie müßte ich den Code umstellen, damit nur die jeweilige Zelle und nicht Zeile gelöscht wird?
Danke für die Rückmeldung.
Gruß - Wolfgang
Private Sub CommandButton1_Click()
Dim inZeile As Integer
For inZeile = 19 To 0 Step -1
If ListBox1.Selected(inZeile) = True Then Rows(inZeile + 6).Delete
Next inZeile
End Sub
Anzeige