HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
selektive Spalte löschen statt EntireRow.Delete
Frederik

Hi zusammen,
ich habe in einem CommandButton folgenden Code hinterlegt:
Dim Zeile As Long, ZeileLetzte As Long
Dim myRange     As Range
Dim strAddress  As String
With Worksheets("Tabelle1")
Set myRange = .Columns2).Find(What:=Userform1.ComboBox1.Value, _
LookIn:=xlValues, LookAt:=xlPart, After:=.Cells(Rows.Count, 2))
If Not myRange Is Nothing Then
strAddress = myRange.Row
.Rows(strAddress).EntireRow.Delete 'hier nur Spalte 2-6 löschen!!!
Application.ScreenUpdating = False
End If
End With
Wie kann ich denn in der Zeile .Rows(strAddress)... das EntireRow.Delete durch den Befehl nur die Spalten 2-6 zu löschen ersetzen?
LG, Frederik

AW: selektive Spalte löschen statt EntireRow.Delete
Uduuh

Hallo,
1. klappt das nicht, weil hier Set myRange = .Columns2).Find eine Klammer fehlt.
2. Willst du nur den Inhalt löschen?
Range(.Cells(strAddress,2),.Cells(strAddress, 6)).ClearContents
Gruß aus’m Pott
Udo

AW: selektive Spalte löschen statt EntireRow.Delete
Frederik

Hi Udo,
ist es auch möglich, die Zeile im Bereich der Spalte 2-6 zu löschen? Das funktioniert ja auch manuell!
LG, Frederik
AW: selektive Spalte löschen statt EntireRow.Delete
frigo

Hallo Frederik,
genau das hat Dir Udo in "2." geschrieben. Oder verstehen wir das falsch?
frigo
AW: selektive Spalte löschen statt EntireRow.Delete
Uduuh

Hallo,
du meinst, die Zellen löschen?
Range(.Cells(strAddress,2),.Cells(strAddress, 6)).delete shift:=xltoleft 'oder xlUp, je nach dem
Gruß aus’m Pott
Udo

AW: selektive Spalte löschen statt EntireRow.Delete
Frederik

Super genau, danke!