Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

selektive Spalte löschen statt EntireRow.Delete | Herbers Excel-Forum


Betrifft: selektive Spalte löschen statt EntireRow.Delete von: Frederik
Geschrieben am: 26.11.2009 18:58:55

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

  

Betrifft: AW: selektive Spalte löschen statt EntireRow.Delete von: Uduuh
Geschrieben am: 26.11.2009 19:23:54

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



  

Betrifft: AW: selektive Spalte löschen statt EntireRow.Delete von: Frederik
Geschrieben am: 26.11.2009 20:18:27

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


  

Betrifft: AW: selektive Spalte löschen statt EntireRow.Delete von: frigo
Geschrieben am: 26.11.2009 20:28:08

Hallo Frederik,
genau das hat Dir Udo in "2." geschrieben. Oder verstehen wir das falsch?
frigo


  

Betrifft: AW: selektive Spalte löschen statt EntireRow.Delete von: Uduuh
Geschrieben am: 26.11.2009 20:59:19

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



  

Betrifft: AW: selektive Spalte löschen statt EntireRow.Delete von: Frederik
Geschrieben am: 26.11.2009 21:17:36

Super genau, danke!


Beiträge aus den Excel-Beispielen zum Thema "selektive Spalte löschen statt EntireRow.Delete"