Nicht die ganze Zeile löschen
29.01.2009 10:42:00
A.Franz
ich hoffe mal wieder einen Tipp zu bekommen, womit ich folgendes Problem lösen kann.Ich habe eine ListBox mit 10-Spalten.Mit nachfolgendem Code kann ich einen ListBoxeintrag löschen wenn ich diesen markiere.Nun mein Problem:
Der Code löscht immer die ganze Zeile in meiner Tabelle und nicht nur die Zeilen A:J.Da ich aber ab Spalte K auch noch andere Daten stehen habe die nicht gelöscht werden sollen, müsste der Code angepasst werden.Habe alles mögliche ausprobiert..ich krieg es nicht hin.
Hoffe wirklich das mir jemand helfen kann !!!
Hier der Code mit welchem ich dieListBoxeinträge und damit auch die Einträge in (Tabelle1) lösche.
With ListBox1
=If .ListIndex grösser -1 Then
Sheets("Tabelle1").Rows(.ListIndex + 2).ClearContents
End If
End With
P.S Das Wort grösser in der Formel ist bei mir im Original das grösser Zeichen, aber damit ließ sich die Formel hier nicht rein kopieren.
Gruß Andre