Microsoft Excel

Herbers Excel/VBA-Archiv

mehrere Spalten löschen

Betrifft: mehrere Spalten löschen von: Sersch
Geschrieben am: 01.12.2015 09:11:18

Hallo zusammen,
ich bin ein absoluter Neuling mit VBA, deshalb bitte ich im Voraus für Verständnis.

In einer erstellten Tabelle soll es möglich sein, den gesamten Inhalt zu markieren und löschen zu können. Momentan gibt mir das System einen Langzeitfehler '13' mit dem Hinweis "Typen unverträglich" wieder. Soweit ich das verstehe ist das ein Schleifenfehler?

Die Tabelle besteht aus 7 Spalten, die mittels VBA in Abhängigkeit zu einenader stehen. Der Bediener soll alle Spalten und Zeilen markieren und löschen können.

Gibt es einen Code oder Befehl, der diesen Fehler beseitigt? Oder liegt des Pudels Kern wo ganz anders?

Vielen Dank und Grüße

  

Betrifft: AW: mehrere Spalten löschen von: Rudi Maintaire
Geschrieben am: 01.12.2015 10:08:28

Hallo,
Gibt es einen Code oder Befehl, der diesen Fehler beseitigt?
Ja.

Rück mal deinen Code/ die Mappe raus.

Gruß
Rudi


  

Betrifft: AW: mehrere Spalten löschen von: Sersch
Geschrieben am: 01.12.2015 11:02:55

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    With ThisWorkbook.Worksheets("OPL")
        If Not Intersect(Target, ThisWorkbook.Worksheets("OPL").Range("OPL[[erledigen bis]:[ _
erledigt am]]")) Is Nothing Then
            If Target.Value <> "" Then
                If Mid$(Target.Value, 3, 1) <> " " Then
                    Target.Value = Left$(Target.Value, 2) & " " & Mid$(Target.Value, 3, Len( _
Target.Value) - 2)
                End If
                If IsNumeric(Mid$(Target.Value, 4, 2)) = False Or Len(Target.Value) < 5 Then
                    Target.Value = Left$(Target.Value, 3) & "0" & Mid$(Target.Value, 4, Len( _
Target.Value) - 3)
                End If
                If InStr(Target.Value, "/") = 0 Then
                    Target.Value = Target.Value & "/1"
                End If
            End If
        End If
    End With
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
        
End Sub



  

Betrifft: was hat das mit dem Thema zu tun? owT von: Rudi Maintaire
Geschrieben am: 01.12.2015 11:07:46




  

Betrifft: AW: was hat das mit dem Thema zu tun? owT von: Sersch
Geschrieben am: 01.12.2015 11:14:01

Bitte eine etwas genauere Aussage.

Das ist der Code aus der Mappe. Hier wird der Fehler angezeigt und zwar genau in dieser Spalte:

If Target.Value <> "" Then


 

Beiträge aus den Excel-Beispielen zum Thema "mehrere Spalten löschen"