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

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
09.05.2016 08:11:09		 Views:
895		 Rating:
     
Antwort:
  Ja
Thema:
Löschen einer Zeile wenn Wert in Spalte

Hi

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

probiere das hier mal

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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

?
1
2
3
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
07.05.2016 18:02:30 VBA Anfänger
NotSolved
07.05.2016 23:37:28 Crazy Tom
NotSolved
08.05.2016 11:29:36 VBA Anfänger
NotSolved
08.05.2016 21:31:58 VBA Anfänger
NotSolved
Rot Löschen einer Zeile wenn Wert in Spalte
09.05.2016 08:11:09 Crazy Tom
NotSolved
09.05.2016 09:56:39 VBA Anfänger
NotSolved
11.05.2016 07:21:26 VBA Anfänger
NotSolved
11.05.2016 10:59:25 VBA Anfänger
NotSolved