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
Automatisch numerieren, differenzieren und Zeilen löschen	24.03.2021 17:36:28	Daniil
Automatisch numerieren, differenzieren und Zeilen löschen	24.03.2021 17:55:23	volti
Automatisch numerieren, differenzieren und Zeilen löschen	24.03.2021 18:07:48	volti
Automatisch numerieren, differenzieren und Zeilen löschen	24.03.2021 22:11:44	Daniil
Automatisch numerieren, differenzieren und Zeilen löschen	25.03.2021 00:02:42	Daniil
Crossposting	25.03.2021 06:21:22	Gast87198
Crossposting	25.03.2021 12:37:44	Daniil
Crossposting	25.03.2021 13:02:12	Gast46549
Crossposting und hier Schluss	25.03.2021 18:05:12	AlterDresdner

Ansicht des Beitrags:

Von:
volti

Datum:
24.03.2021 18:07:48

Views:
712

Rating:

Antwort:

Thema:
Automatisch numerieren, differenzieren und Zeilen löschen

Hallo,

hier noch mal eine ungetestete Anregung. Was Du mit Differenzierung meinst, weiß ich nicht, kriegst Du ja vielelicht auch selbst hin.

Da war noch ein Fehler in Deinem Code.

Code:

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

Sub Test()
  Dim Lastrow As Long
  Dim Lrow As Long
  Dim CalcMode As Long

  With Application
      CalcMode = .Calculation
      .Calculation = xlCalculationManual
      .ScreenUpdating = False
  End With
  With ActiveSheet
' letzte Zeile bestimmen
      Lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
' Von unten nach oben durchsuchen
      For Lrow = Lastrow To 2 Step -1
          If .Cells(Lrow, "D").Value <= "1" Then .Rows(Lrow).Delete
      Next Lrow
      For Lrow = 3 To .Cells(Rows.Count, "A").End(xlUp).Row
          .Cells(Lrow, "C").Value = .Cells(Lrow, "C").Value + 1
' Hier noch die Differenzierung rein....
      Next Lrow
  End With
  With Application
      .ScreenUpdating = True
      .Calculation = CalcMode
  End With
End Sub

_________
viele Grüße
Karl-Heinz

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
Automatisch numerieren, differenzieren und Zeilen löschen	24.03.2021 17:36:28	Daniil
Automatisch numerieren, differenzieren und Zeilen löschen	24.03.2021 17:55:23	volti
Automatisch numerieren, differenzieren und Zeilen löschen	24.03.2021 18:07:48	volti
Automatisch numerieren, differenzieren und Zeilen löschen	24.03.2021 22:11:44	Daniil
Automatisch numerieren, differenzieren und Zeilen löschen	25.03.2021 00:02:42	Daniil
Crossposting	25.03.2021 06:21:22	Gast87198
Crossposting	25.03.2021 12:37:44	Daniil
Crossposting	25.03.2021 13:02:12	Gast46549
Crossposting und hier Schluss	25.03.2021 18:05:12	AlterDresdner