VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Löschen einer Zeile wenn Wert in Spalte	07.05.2016 18:02:30	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	07.05.2016 23:37:28	Crazy Tom
Löschen einer Zeile wenn Wert in Spalte	08.05.2016 11:29:36	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	08.05.2016 21:31:58	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	09.05.2016 08:11:09	Crazy Tom
Löschen einer Zeile wenn Wert in Spalte	09.05.2016 09:56:39	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	11.05.2016 07:21:26	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	11.05.2016 10:59:25	VBA Anfänger

Ansicht des Beitrags:

Von:
Crazy Tom

Datum:
09.05.2016 08:11:09

Views:
810

Rating:

Antwort:

Thema:
Löschen einer Zeile wenn Wert in Spalte

womöglich hast du einige Formel in deiner Datei die das Makro verlangsamen

probiere das hier mal

Sub test()
    Dim lngZeile As Long
    Dim lngLetzte As Long
    Dim oldCalc
    oldCalc = Application.Calculation
    With Application
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    On Error GoTo Fehler
    With Sheets("Tabelle1") 'Blattname anpassen
        lngLetzte = .Cells(.Rows.Count, 19).End(xlUp).Row
        For lngZeile = lngLetzte To 1 Step -1
            If .Cells(lngZeile, 19).Value = 0 Then
                .Rows(lngZeile).EntireRow.Delete
            End If
        Next
    End With
Fehler:
    With Application
        .Calculation = oldCalc
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

um das Makro bei Excelstart auszuführen diesen Code unter DieseArbeitsmappe

Private Sub Workbook_Open()
    Call test
End Sub

MfG Tom

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Löschen einer Zeile wenn Wert in Spalte	07.05.2016 18:02:30	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	07.05.2016 23:37:28	Crazy Tom
Löschen einer Zeile wenn Wert in Spalte	08.05.2016 11:29:36	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	08.05.2016 21:31:58	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	09.05.2016 08:11:09	Crazy Tom
Löschen einer Zeile wenn Wert in Spalte	09.05.2016 09:56:39	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	11.05.2016 07:21:26	VBA Anfänger
Löschen einer Zeile wenn Wert in Spalte	11.05.2016 10:59:25	VBA Anfänger